tests/testthat/test-check_sc_dm_seyeselc.R

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

test_that("Function returns true when no errors are present" ,{
  dm <- data.frame(USUBJID = c(1,2))
  sc <- data.frame(USUBJID  = c(1,1,1,2,2,2),
                  SCTEST   = c("Eye Meeting Eligibility Criteria",
                               "Focus of Study-Specific Interest",
                               " ",
                               "Eye Meeting Eligibility Criteria",
                               "Focus of Study-Specific Interest", " "),
                  SCTESTCD = c("ELIGEYE", "FOCID", "", "ELIGEYE", "FOCID", ""),
                  SCCAT    = c("STUDY EYE SELECTION",
                               "STUDY EYE SELECTION",
                               "",
                               "STUDY EYE SELECTION",
                               "STUDY EYE SELECTION", ""),
                  SCORRES  = c("LEFT", "OS", "", "RIGHT", "OD", ""),
                  SCDTC    = rep("2021-01-01", 6),
                  stringsAsFactors = FALSE)

  expect_true(check_sc_dm_seyeselc(SC=sc, DM=dm))
})

test_that("Function returns false when errors present", {
  dm <- data.frame(USUBJID = c(1,2,3,4))
  sc <- data.frame(USUBJID  = c(1,1,1,2,2,2),
                  SCTEST   = c("Eye Meeting Eligibility Criteria",
                               "Focus of Study-Specific Interest",
                               " ",
                               "Eye Meeting Eligibility Criteria",
                               "Focus of Study-Specific Interest",
                               " "),
                  SCTESTCD = c("ELIGEYE", "FOCID", "", "ELIGEYE", "FOCID", ""),
                  SCCAT    = c("STUDY EYE SELECTION",
                               "STUDY EYE SELECTION",
                               "",
                               "STUDY EYE SELECTION",
                               "STUDY EYE SELECTION", ""),
                  SCORRES  = c("LEFT", "OS", "", "RIGHT", "", ""),
                  SCDTC    = rep("2021-01-01", 6),
                  stringsAsFactors = FALSE)

 expect_false(check_sc_dm_seyeselc(SC=sc, DM=dm))
})


test_that("Function returns false when expected column not present", {
  dm <- data.frame(USUBJID = c(1,2,3,4))
  sc <- data.frame(USUBJID  = c(1,1,1,2,2,2),
                   SCTEST   = c("Eye Meeting Eligibility Criteria",
                                "Focus of Study-Specific Interest",
                                " ",
                                "Eye Meeting Eligibility Criteria",
                                "Focus of Study-Specific Interest",
                                " "),
                   SCTESTCD = c("ELIGEYE", "FOCID", "", "ELIGEYE", "FOCID", ""),
                   SCCAT    = c("STUDY EYE SELECTION",
                                "STUDY EYE SELECTION",
                                "",
                                "STUDY EYE SELECTION",
                                "STUDY EYE SELECTION", ""),
                   SCORRES  = c("LEFT", "OS", "", "RIGHT", "", ""),
                   SCDTC    = rep("2021-01-01", 6),
                   stringsAsFactors = FALSE)
  
  sc$SCORRES <- NULL
  expect_false(check_sc_dm_eligcrit(SC=sc, DM=dm))
})