tests/testthat/test_001_processor_respirometer.R

In LEEF-UZH/LEEF.measurement.o2meter: Pre-Process and Extract o2meter

# Setup -------------------------------------------------------------------

hash <- function(dir) {
  new_files <- list.files(dir, full.names = FALSE, recursive = TRUE)
  x <- lapply(
    new_files,
    function(fn) {
      fnc <- file.path( dir, fn )
      f <- file( fnc, open = "rb" )
      hash <- as.character( openssl::sha256( f ) )
      close(f)
      rm(f)
      hash <- paste(hash, fn, sep = "  ")
    }
  )
  unlist(x)
}

raw <- system.file( "0.raw.data", package = "LEEF.measurement.o2meter")
pre_processed <- tempfile(pattern = "test_processed_")
extracted <- tempfile(pattern = "test_extracted_")

# Skip if data not there --------------------------------------------------

if (!file.exists(raw)) skip("Test data not available!")

# Test pre_processor ------------------------------------------------------

context("Test pre_processor_o2meter()")

test_that(
  "pre_processor_o2meter() runs without error",
  expect_error(
    object = suppressMessages( pre_processor_o2meter( input = raw, output = pre_processed ) ),
    regexp = NA
  )
)

test_that(
  "pre_processor_o2meter() returns correct result",
  expect_known_hash(
    hash( file.path(pre_processed, "o2meter") ),
    hash = "381e24de24"
  )
)


# Test extractor ----------------------------------------------------------


context("Test extractor_o2meter()")

test_that(
  "extractor_o2meter() runs without error",
  expect_error(
    object = suppressMessages( extractor_o2meter( input = pre_processed, output = extracted) ),
    regexp = NA
  )
)

test_that(
  "extractor_o2meter() returns correct result",
  expect_known_hash(
    hash( file.path(extracted, "o2meter") ),
    hash = "5fdc0b5f85"
  )
)


# Teardown ----------------------------------------------------------------

unlink(pre_processed, recursive = TRUE, force = TRUE)
unlink(extracted, recursive = TRUE, force = TRUE)