tests/testthat/test-load_uv.R

In bentrueman/fffprocessr: Process FFF-UV-MALS-ICP-MS Data

test_that("load_uv() example yields expected number of rows", {
  path <- system.file("extdata", package = "fffprocessr")
  expect_equal(nrow(load_uv(path = path, UV254_1, UV254_2, LS90)),  9363)
})

test_that("load_icp() yields expected column means", {
  path <- system.file("extdata", package = "fffprocessr")
  expect_equal(
    dplyr::summarize_if(
      load_uv(path = path, UV254_1, UV254_2, LS90),
      is.numeric, ~ round(mean(.x), 1)
    ),
    tibble::tibble(time = 19, conc = .1)
  )
})

test_that("load_uv() yields the expected warning when some files match the naming convention for MALS data.", {
  path <- system.file("extdata/mals", package = "fffprocessr") # wrong path
  expect_warning(
    load_uv(path = path, UV254_1),
    "Some filenames include"
  )
})