tests/testthat/test-check.R

In poissonconsulting/shinyypr: Run ypr Shiny App

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(check_population(ypr::adams_bt_03), ypr::adams_bt_03)
})