tests/testthat/test-convert_to_long_format.R

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

## Data for tests ----

req_cols <- get_required_columns()

df_net <- data.frame(matrix(1:(length(req_cols) + 4), nrow = 1))
colnames(df_net) <- c(req_cols, "n_pachyderma", "conglobatus", "g_rubescens",
                      "toto")

df_net$"data_type" <- "Net"

df_cpr <- data.frame(matrix(1:(length(req_cols) + 4), nrow = 1))
colnames(df_cpr) <- c(req_cols, "species", "count_bin_min", "count_bin_max",
                      "toto")

df_cpr$"data_type" <- "CPR North"


## convert_to_long_format() ----

test_that("Test convert_to_long_format() for error", {

  expect_error(convert_to_long_format(df_cpr),
               "This function is not designed to work with 'CPR North' data",
               fixed = TRUE)
})

test_that("Test convert_to_long_format() for success", {
  
  expect_silent(df <- convert_to_long_format(df_net))
  
  expect_true(is.data.frame(df))
  expect_equal(ncol(df), length(req_cols) + 2)
  expect_equal(nrow(df), 3L)
  
  expect_true("taxa" %in% colnames(df))
  expect_true("counts" %in% colnames(df))
  
  expect_false("n_pachyderma" %in% colnames(df))
})