tests/testthat/test-btps.R

In Lightbridge-KS/rslab: Functions for Respiratory System Physiology Lab

test_that("multiplication works", {
  expect_equal(2 * 2, 4)
})


# Test lung_vol_atps_btps() -----------------------------------------------


test_that("Test lung_vol_atps_btps()",{

  expect_s3_class(lung_vol_atps_btps(FEV1 = 5,
                                     FVC = 10,
                                     PEF = 4,
                                     TV = 9,
                                     IC = 10,
                                     EC = 12,
                                     VC = 10),
                  "data.frame")
  # Error
  ## Check any args has length more than 1
  expect_error(lung_vol_atps_btps(temp = 30:31), "All arguments must be length = 1")
  ## Check Invalid Lung Volume
  expect_error(lung_vol_atps_btps(EC = 5, TV = 10), "Not a valid lung volumn.")
  expect_error(lung_vol_atps_btps(VC = 5, IC = 10), "Not a valid lung volumn.")
  expect_error(lung_vol_atps_btps(TV = 15, IC = 10), "Not a valid lung volumn.")

})

# Test btps_factor() --------------------------------------------------------


test_that("test get_btps_factor()",{

  # Check from Randomly generated numbers
  expect_type(get_btps_factor(runif(10, 0, 50)), "double")
  # Check how it handle `NA`
  expect_type(get_btps_factor(c(20,NA, 21:22)), "double")
  # Check Value from Lookup
  expect_identical(get_btps_factor(20:37), btps_df$Factor_37)

  # Check Error Msg
  expect_error(get_btps_factor("hello"), "`temp` must be a numeric vector.")

})