tests/testthat/test-app_server.R

In Rapporteket/ablanor: AblaNor- Rapporteket

# Database infrastructure is only guaranteed at Github Actions and our own
# dev env.
# Tests running on other environments should be skipped:
check_db <- function(is_test_that = TRUE) {
  if (Sys.getenv("R_RAP_INSTANCE") == "DEV") {
    NULL
  } else if (Sys.getenv("GITHUB_ACTIONS_RUN_DB_UNIT_TESTS") == "true") {
    NULL
  } else {
    if (is_test_that) {
      testthat::skip("Possible lack of database infrastructure")
    } else {
      1
    }
  }
}

withr::with_envvar(
  new = c(
    "R_RAP_CONFIG_PATH" = tempdir()
  ),
  code = {
    test_that("env vars needed for testing is present", {
      check_db()
      expect_true("DB_HOST" %in% names(Sys.getenv()))
      expect_true("DB_USER" %in% names(Sys.getenv()))
      expect_true("DB_PASS" %in% names(Sys.getenv()))
    })

    # prep db for testing
    if (is.null(check_db(is_test_that = FALSE))) {
      con <- RMariaDB::dbConnect(RMariaDB::MariaDB(),
                                 host = Sys.getenv("DB_HOST"),
                                 user = Sys.getenv("DB_USER"),
                                 password = Sys.getenv("DB_PASS"),
                                 bigint = "integer"
      )
      RMariaDB::dbExecute(con, "CREATE DATABASE testDb;")
      RMariaDB::dbDisconnect(con)
    }

    # make temporary config
    base_config <- paste0(
      "r:",
      "\n  raplog :",
      "\n    archiveDir : logArchive",
      "\n    eolDays : 730",
      "\n    target: file",
      "\n    key: raplogTest\n",
      "\n",
      "\n  autoReport:",
      "\n    target: file",
      "\n    key: autoreport\n",
      "\n",
      "\n  testUser:",
      "\n    user : ttester",
      "\n    groups : ablanor",
      "\n    role : LC",
      "\n    resh_id : 1",
      "\n    email : ttester@reg.no",
      "\n    full_name : Tore Tester",
      "\n    phone : 0123456789\n"
    )
    test_config <- paste0(
      "ablanor:",
      "\n  host : ", Sys.getenv("DB_HOST"),
      "\n  name : testDb",
      "\n  user : ", Sys.getenv("DB_USER"),
      "\n  pass : ", Sys.getenv("DB_PASS"),
      "\n  disp : ephemaralUnitTesting\n"
    )

    cf <- file(file.path(Sys.getenv("R_RAP_CONFIG_PATH"), "rapbaseConfig.yml"))
    writeLines(base_config, cf)
    close(cf)
    cf <- file(file.path(Sys.getenv("R_RAP_CONFIG_PATH"), "dbConfig.yml"))
    writeLines(test_config, cf)
    close(cf)

    # make queries for creating tables
    fc <- file(system.file("testDb.sql", package = "ablanor"), "r")
    t <- readLines(fc)
    close(fc)
    sql <- paste0(t, collapse = "\n")
    queries <- strsplit(sql, ";")[[1]]

    test_that("relevant test database and tables can be made", {
      check_db()
      con <- rapbase::rapOpenDbConnection("ablanor")$con
      for (i in seq_len(length(queries))) {
        expect_equal(class(RMariaDB::dbExecute(con, queries[i])), "integer")

      }
      rapbase::rapCloseDbConnection(con)
    })

    test_that("an org can be added to db", {
      check_db()
      con <- rapbase::rapOpenDbConnection("ablanor")$con
      query <- paste("INSERT INTO friendlycentre SET ID=1, CENTRESHORTNAME='s1',",
                     "FRIENDLYNAME='friendly1';")
      RMariaDB::dbExecute(con, query)
      expect_equal(class(getHospitalName("ablanor", 1)), "character")
      expect_equal(getHospitalName("ablanor", 1), "friendly1")
      expect_equal(getHospitalName("ablanor", 1, shortName = TRUE), "s1")
      rapbase::rapCloseDbConnection(con)
    })

    # rapbase modules are already tested. For now, just make sure the server run
    # by dummy class test of auto report list
    test_that("server can run", {
      check_db()
      shiny::testServer(app = app_server, {
        expect_equal(class(subReports), "list")
      })
    })

    # remove test db
    if (is.null(check_db(is_test_that = FALSE))) {
      con <- rapbase::rapOpenDbConnection("ablanor")$con
      RMariaDB::dbExecute(con, "DROP DATABASE testDb;")
      rapbase::rapCloseDbConnection(con)
    }
  }
)