tests/testthat/test-read_cpr_north_data.R

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

## Data for tests ----

df <- data.frame("count_bin_min" = rep(1, 2), 
                 "count_bin_max" = rep(1, 2))


## read_cpr_north_data() ----

test_that("Test read_cpr_north_data() for error", {
  
  create_tempdir()
  
  expect_error(read_cpr_north_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_cpr_north_data(version = "07"),
               paste0("The North CPR dataset does not exist. Please use the ", 
                      "function 'download_forcis_db()'."),
               fixed = TRUE)
})

test_that("Test read_cpr_north_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_cpr_north_test.csv"),
             row.names = FALSE)
  
  x <- read_cpr_north_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("CPR North" %in% x$"data_type")
  
  expect_message({ x <- read_cpr_north_data(version = "07") },
                 paste0("A newer version of the FORCIS database is available. ",
                        "Use 'download_forcis_db(version = NULL)' to download ",
                        "it."),
                 fixed = TRUE)
})