tests/testthat/test-get_species_names.R

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

## Data for tests ----

df_cpr <- data.frame(
  "data_type" = rep("CPR North", 5),
  "species" = c(
    "n_pachyderma",
    "n_pachyderma",
    "conglobatus",
    "g_rubescens",
    "g_rubescens"
  )
)

df_net <- data.frame(
  "data_type" = rep("Net", 5),
  "n_pachyderma" = c(1:5),
  "conglobatus" = c(1:5),
  "g_rubescens" = c(1:5)
)


## get_species_names() ----

test_that("Test get_species_names() for success", {
  species <- get_species_names(df_cpr)

  expect_true(class(species) == "character")
  expect_true(length(species) == 3L)

  expect_equal(species[1], "n_pachyderma")
  expect_equal(species[2], "conglobatus")
  expect_equal(species[3], "g_rubescens")

  species <- get_species_names(df_net)

  expect_true(class(species) == "character")
  expect_true(length(species) == 3L)

  expect_equal(species[1], "n_pachyderma")
  expect_equal(species[2], "conglobatus")
  expect_equal(species[3], "g_rubescens")
})