tests/testthat/test_breathtest_read_function.R

In breathtestcore: Core Functions to Read and Fit 13c Time Series from Breath Tests

library(purrr)
filename = "NewBreathID_multiple.xml"
read_function = read_breathid_xml

check_and_read = function(filename, read_function){
  file = btcore_file(filename)
  expect_true(file.exists(file))
  f = breathtest_read_function(file)
  expect_equal(f, read_function)
  bt = f(file)
  if (inherits(bt, "breathtest_data_list")) {
    expect_true(all(map_lgl(bt, function(x) {class(x) == "breathtest_data"})))
    bt = bt[[1]]  
  } else if (inherits(bt, "breathtest_data")) {
    expect_s3_class(bt, "breathtest_data")
    expect_gt(nrow(bt$data), 1)
  }
}

test_that("btcore_file without arguments returns all files in sample directory",{
  file = btcore_file()  
  expect_type(file, "character")
  expect_gt(length(file), 21L)
})

test_that("Correct file format returned and files correctly read" , {
  check_and_read("NewBreathID_multiple.xml", read_breathid_xml)
  check_and_read("350_20043_1_GER.txt", read_breathid)
  check_and_read("IrisCSV.TXT", read_iris_csv)
  check_and_read("IrisMulti.TXT", read_iris)
})
  
test_that("Wrong formats throws exception or return null" , {
  expect_error(breathtest_read_function(btcore_file("a.TXT")),"exist")
  expect_null(breathtest_read_function(text = "This is not a breathtest file"))
})

read_any_file = function(filename){
  file = btcore_file(filename)
  expect_true(file.exists(file))
  breathtest_read_function(file)(file)
}


test_that("Valid files with datea errors throw exception" , {
  expect_error(read_any_file("IrisCSV_MissingColumn.TXT"), "unexpected 12 columns")
  expect_error(read_any_file("IrisCSV_invalidValues.TXT"), "Invalid or missing PDR/DOB data")
})