tests/testthat/test_create_error_df_pH_multiple.R

test_that("Error table with two sensors has correct dimensions, pH", {
  test_df <- create_error_df_pH_multiple(
    c(0.01, 0.02), 2, 10,
    data.frame(
      "Rmin" = c(1, 2),
      "Rmax" = c(5, 6),
      "delta" = c(0.2, 1.2),
      "name" = c("normal", "plusOne"),
      "pKa" = c(7, 8)
    )
  )

  expect_equal(all(dim(test_df) == c(3204, 6)), TRUE)
})
julianstanley/SensorOverlord documentation built on Oct. 19, 2020, 2:29 p.m.