tests/testthat/test-read_pump_data.R

In FRBCesab/forcis: An R Client to Access the FORCIS Database

## Data for tests ----

df <- data.frame("crassula"  = rep(1, 2), 
                 "dehiscens" = rep(1, 2))


## read_pump_data() ----

test_that("Test read_pump_data() for error", {
  
  create_tempdir()
  
  expect_error(read_pump_data(version = "07"),
               paste0("The directory './forcis-db/version-07' does not exist. ",
                      "Please check the argument 'path' or use the function ", 
                      "'download_forcis_db()'."),
               fixed = TRUE)
  
  dir.create(file.path("forcis-db", "version-07"), recursive = TRUE)
  
  expect_error(read_pump_data(version = "07"),
               paste0("The Pump dataset does not exist. Please use the ", 
                      "function 'download_forcis_db()'."),
               fixed = TRUE)
})

test_that("Test read_pump_data() for success", {
  
  create_tempdir()
  
  dir.create(file.path("forcis-db", "version-07"), recursive = TRUE)
  
  write.csv2(df, 
             file = file.path("forcis-db", "version-07", 
                              "FORCIS_pump_test.csv"),
             row.names = FALSE)
  
  x <- read_pump_data(version = "07", check_for_update = FALSE)
  
  expect_equal(class(x), "data.frame")
  expect_equal(ncol(x), 3L)
  expect_equal(nrow(x), 2L)
  
  expect_true("data_type" %in% colnames(x))
  expect_true("Pump" %in% x$"data_type")
  
  expect_message({ x <- read_pump_data(version = "07") },
                 paste0("A newer version of the FORCIS database is available. ",
                        "Use 'download_forcis_db(version = NULL)' to download ",
                        "it."),
                 fixed = TRUE)
})