tests/testthat/test-check.R

In shinyypr: Run Ypr Shiny App

context("check function tests")

test_that("file upload checks work", {
  x <- ypr::adams_bt_03
  x <- data.frame(Parameter = names(x), Value = unlist(x), row.names = NULL, stringsAsFactors = FALSE)
  y <- x
  y$Parameter[y$Parameter == "tmax"] <- "tma"
  y$Parameter[y$Parameter == "Rk"] <- "Rko"
  testthat::expect_error(chk_parameter_names(y), "The following parameters are unrecognised: 'tma' and 'Rko'.", class = "chk_error")
  testthat::expect_identical(chk_parameter_names(x), x)

  colnames(y) <- c("param", "Value")
  testthat::expect_error(chk_colnames(y), "Column names in uploaded data must be 'Parameter' and 'Value'.", class = "chk_error")
  testthat::expect_identical(chk_colnames(x), x)

  expect_identical(chk_population(ypr::adams_bt_03), ypr::adams_bt_03)
  expect_error(chk_parameters(tmax = 1.5),
    "`tmax` must inherit from S3 class 'integer'.",
    class = "chk_error"
  )
})