tests/testthat/test-check_mh_missing_month.R

In sdtmchecks: Data Quality Checks for Study Data Tabulation Model (SDTM) Datasets

test_that("Function returns true when no errors are present", {
  
  MH <- data.frame(USUBJID = LETTERS[1:5],
                   MHTERM = LETTERS[5:1],
                   MHSTDTC = c("2014", NA, "2014-01", "", "2014---02"),
                   stringsAsFactors = FALSE)
   
   MH=MH[1:3,]
  
  
  expect_true(check_mh_missing_month(MH))
})



test_that("Function returns false when errors are present", {
  
  MH <- data.frame(USUBJID = LETTERS[1:5],
                   MHTERM = LETTERS[5:1],
                   MHSTDTC = c("2014", NA, "2014-01", "", "2014---02"),
                   stringsAsFactors = FALSE)
  
  expect_false(check_mh_missing_month(MH))
})

test_that("Function returns true when no errors are present", {
  
  MH <- data.frame(USUBJID = LETTERS[1:5],
                   MHTERM = LETTERS[5:1],
                   MHSTDTC = c("2014", NA, "2014-01", "", "2014-02---"),
                   stringsAsFactors = FALSE)
   
  
  expect_true(check_mh_missing_month(MH))
})


test_that("Function returns false when expected column MHSTDTC not present", {
  
  MH <- data.frame(USUBJID = LETTERS[1:5],
                   MHTERM = LETTERS[5:1],
                   MHSTDTC = c("2014", NA, "2014-01", "", "2014---02"),
                   stringsAsFactors = FALSE)
  
  MH$MHSTDTC=NULL
  
  expect_false(check_mh_missing_month(MH))
})

test_that("Function returns false when expected column MHSTDTC even if MHENDTC present and no errors", {
  
  MH <- data.frame(USUBJID = LETTERS[1:5],
                   MHTERM = LETTERS[5:1],
                   MHENDTC = c("2014-01-01", "2014-01-01", "2014-01-04", "", "2014-01-02"),
                   stringsAsFactors = FALSE)
   
  expect_false(check_mh_missing_month(MH))
})



test_that("Function returns false when expected column USUBJID not present", {
  
  MH <- data.frame(USUBJID = LETTERS[1:5],
                   MHTERM = LETTERS[5:1],
                   MHSTDTC = c("2014", NA, "2014-01", "", "2014---02"),
                   stringsAsFactors = FALSE)
  
  MH$USUBJID=NULL
  
  expect_false(check_mh_missing_month(MH))
})



test_that("Function returns false when error in MHSTDTC and optional variable MHENDTC present", {
  
  MH <- data.frame(USUBJID = LETTERS[1:5],
                   MHTERM = LETTERS[5:1],
                   MHSTDTC = c("2014", NA, "2014-01", "", "2014---02"),
                   MHENDTC = c("2014", NA, "2014-01", "", "2014---02"),
                   stringsAsFactors = FALSE)

  expect_false(check_mh_missing_month(MH))
})

test_that("Function returns false when error in MHSTDTC and optional variable MHENDTC not present", {
  
  MH <- data.frame(USUBJID = LETTERS[1:5],
                   MHTERM = LETTERS[5:1],
                   MHSTDTC = c("2014", NA, "2014-01", "", "2014---02"), 
                   stringsAsFactors = FALSE) 
  
  expect_false(check_mh_missing_month(MH))
})


test_that("Function returns false when error in optional column MHENDTC but no error in MHSTDTC", {
  
  MH <- data.frame(USUBJID = LETTERS[1:5],
                   MHTERM = LETTERS[5:1],
                   MHSTDTC = c("2014", NA, "2014-01-01", "", "2014-02-01"),
                   MHENDTC = c("2014", NA, "2014-01", "", "2014---02"),
                   stringsAsFactors = FALSE) 
  
  expect_false(check_mh_missing_month(MH))
})