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_true("data.frame" %in% class(x))
  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
  )
})