tests/testthat/test-plate.R

In ddpcr: Analysis and Visualization of Droplet Digital PCR in R and on the Web

context("plate")

.plate <- new_plate(sample_data_dir(), type = plate_types$custom_thresholds)
get_plate <- function() {
  .plate
}

test_that("reset works", {
  plate <- get_plate()
  expect_equal(plate %>% status, 1L)
  expect_identical(plate %>% type, "custom_thresholds")
  plate <- plate %>% analyze
  expect_gt(plate %>% status, 1L)
  plate <- plate %>% reset(keep_type = TRUE)
  expect_equal(plate %>% status, 1L)
  expect_identical(plate %>% type, "custom_thresholds")
  plate <- plate %>% reset(type = plate_types$fam_positive_pnpp)
  expect_identical(plate %>% type, "fam_positive_pnpp")
  plate <- plate %>% reset
  expect_identical(plate %>% type, "ddpcr_plate")
})

test_that("well_info works", {
  plate <- get_plate()
  expect_equal(
    plate %>% well_info(c("A05", "C05"), "drops"),
    c(13165, 14109)
  )
})

test_that("wells_used works", {
  plate <- get_plate()
  expect_equal(
    plate %>% wells_used,
    c("A01", "A05", "C01", "C05", "F05")
  )
  expect_equal(
    plate %>% subset("A05, F05") %>% wells_used,
    c("A05", "F05")
  )
})

test_that("next_step and analyze work", {
  plate <- get_plate()
  expect_equal(plate %>% status, 1L)
  expect_equal(plate %>% next_step %>% status, 2L)
  expect_equal(plate %>% next_step(2) %>% status, 3L)
  expect_equal(plate %>% next_step %>% next_step %>% status, 3L)
  expect_equal(plate %>% next_step(50) %>% status, plate %>% analyze %>% status)
})