tests/testthat/test_biosets.R

In randomchars42/eenv: Import often used functions, settings and packages

library(eenv)
context("Test biosets")

test_that("biosets are read correctly", {
  calibrator_names <-
    c("CAL1", "CAL2", "CAL3", "CAL4", "CAL5", "CAL6", "CAL7", "CAL8", "CAL9",
      "CAL10")
  calibrator_values <- exp(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10))
  sets <-
    plates_read(
      plates = 2,
      cal_names = calibrator_names,
      cal_values = calibrator_values,
      write_data = FALSE,
      use_written_data = FALSE)

  expect_true(is.tibble(sets$all))
})

test_that("biosets are cached correctly", {
  calibrator_names <-
    c("CAL1", "CAL2", "CAL3", "CAL4", "CAL5", "CAL6", "CAL7", "CAL8", "CAL9",
      "CAL10")
  calibrator_values <- exp(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10))
  sets <-
    plates_read(
      plates = 2,
      cal_names = calibrator_names,
      cal_values = calibrator_values,
      write_data = TRUE,
      use_written_data = FALSE)
  sets2 <-
    plates_read(
      plates = 2,
      cal_names = calibrator_names,
      cal_values = calibrator_values,
      write_data = FALSE,
      use_written_data = TRUE)

  expect_true(is.tibble(sets2$all))
})