tests/testthat/test_normfluodbf.R

In normfluodbf: Cleans and Normalizes FLUOstar DBF and DAT Files from 'Liposome' Flux Assays

## normfluodbf - R package that Cleans and Normalizes FLUOstar DBF and DAT Files
## Copyright (C) 2024 Tingwei Adeck

capture_output <- function(f, ...) {
  sink(tempfile())
  on.exit(sink())
  f(...)
}

test_normfluodbf <- function(dbf, norm_scale){
  out <- capture_output(normfluodbf, dbf, norm_scale)
  expect_false(is.null(normfluodbf(dbf, norm_scale)))
}

test_that("test normfluodbf which is a modified version of my functions normfluordbf and norm_tidy_dbf", {
  lipsum_214 <- system.file("extdata", "liposomes_214.dbf", package = "normfluodbf")
  test_normfluodbf(lipsum_214, norm_scale = 'raw')
})