tests/testthat/test-ant-efficiency.R

In hugo-marques/ORFID: Manage and Summarize Data from Oregon RFID ORMR and ORSR Antenna Readers

testthat::test_that("ant_efficiency produces an error if incorrect locations are used", {
  test_data <- join_multireader_data(list(reader_ds, reader_us))
  testthat::expect_error(ant_efficiency(test_data, LOC_vec = c("reader_ds", "reader_us")))
})

testthat::test_that("ant_efficiency produces a warning if the length of LOC_vector doesn't match the number of locations in the dataframe", {
  test_data <- join_multireader_data(list(reader_ds, reader_us))
  testthat::expect_warning(ant_efficiency(test_data, LOC_vec = c("downstream_A1")))
})

testthat::test_that("ant_efficiency doesn't produce NA values", {
  test_data <- join_multireader_data(list(reader_ds, reader_us))
  data_out <- ant_efficiency(test_data, LOC_vec = c("downstream_A1", "upstream_A1"))
  res <- apply(data_out, 2, function(x) sum(is.na(x)) > 0)
  testthat::expect_false(all(res))
})