tests/testthat/test_ranges_df.R

In julianstanley/SensorOverlord: A Tyrant of Absolute Quantitative Ratiometric Microscopy

test_that("error_df works for redox sensors", {
  my_sensor <- new("redoxSensor", new("Sensor", Rmin = 1, Rmax = 5, delta = 0.2), e0 = -250)
  test_ranges <- ranges_df(my_sensor)
  minimum <- test_ranges$Minimum
  maximum <- test_ranges$Maximum

  expect_equal(minimum[1], "NA")
  expect_lt(as.numeric(minimum[2]) + 256.99, 0.01)
  expect_lt(as.numeric(minimum[3]) + 264.86, 0.01)
  expect_lt(as.numeric(minimum[4]) + 269.44, 0.01)
  expect_lt(as.numeric(minimum[5]) + 272.67, 0.01)

  expect_equal(maximum[1], "NA")
  expect_lt(as.numeric(maximum[2]) + 222.08, 0.01)
  expect_lt(as.numeric(maximum[3]) + 214.32, 0.01)
  expect_lt(as.numeric(maximum[4]) + 209.77, 0.01)
  expect_lt(as.numeric(maximum[5]) + 206.56, 0.01)


})


test_that("Multiple inaccuracies are not excluded from a ranges df", {
  my_sensor <- new("Sensor", Rmin = 0.852, Rmax = 6.65, delta = 0.171)
  my_redox_sensor <- new("redoxSensor", my_sensor, e0 = -265)
  ranges <- ranges_df(my_redox_sensor, inaccuracies = c(0.018, 0.028, 0.018), thresholds=c(1))
  expect_equal(nrow(ranges), 3)
})