tests/testthat/test-m_import_lizard_data.R

In sebmader/LizardsAndNiches: Handleing specific data frames of lizard morphology and reflectance data

#' Tests for import_lizard_data function

context("Testing importing lizard data")

test_that("importing a data set results in data frame", {
  expect_output(str(m_import_lizard_data()),
                "data.frame")
})

test_that("default for species parameter includes all species", {
  data <- read.csv("example_lizard_data.csv", header = T, stringsAsFactors = T)
  specieslvl <- levels(data$Species)
  data1 <- m_import_lizard_data(path = "example_lizard_data.csv")
  specieslvl1 <- levels(data1$Species)
  expect_identical(specieslvl, specieslvl1)
})

test_that("when selecting species, extra levels are dropped", {
  path <- "example_lizard_data.csv"
  data <- m_import_lizard_data(path = path)
  species <- levels(data$Species)
  for (spec in species) {
    data <- m_import_lizard_data(path = path, species = spec)
    expect_length(levels(data$Species), 1)
  }
})

test_that("juveniles are dropped from dataset", {
  path <- "example_lizard_data.csv"
  data <- m_import_lizard_data(path = path)
  expect_equal(which(data$SEX == "J"), integer(0))
})

test_that("error message when the species is not present in data set", {
  path <- "example_lizard_data.csv"
  expect_error(m_import_lizard_data(path = path, species = "somethingstrange"),
               regexp = "The species you are looking for is not existent in this data frame.
          Try another species and make sure the genus and species names are separated
          by an underscore.")
})