tests/testthat/test-prepare_hcv_report_data.R

In JayAchar/hisreportr: hisreportr: Automating MSF OCA EMR reporting

context("test-prepare_hcv_report_data")

data <- system.file("testdata", "testdata-prepare_hcv_report_data.rds", package = "hisreportr") %>% 
  readRDS()


out <- prepare_hcv_report_data(data, 
                               categorise_age = TRUE)

test_that("merged correctly", {
  expect_equal(nrow(data[[1]]), nrow(out))
  expect_true(is.data.frame(out))
  # # search for any duplicated variables by searching for variable names 
  # # ending with .x
  expect_false(any(grepl("\\.x$", names(out))))
  expect_true(all(out$assessment_date < out$starttre, na.rm = TRUE))
  expect_true(all(out$adm_date < out$starttre, na.rm = TRUE))
  expect_true(all(out$visit_date >= out$starttre, na.rm = TRUE))
  expect_true(all(out$end_tx_date > out$starttre, na.rm = TRUE))
})