tests/testthat/test_hasColumn.R

In safetyGraphics: Interactive Graphics for Monitoring Clinical Trial Safety

context("Tests for the hasColumn() function")
library(safetyGraphics)

test_that("columns are found when expected",{
  # simple test case works
  expect_true(hasColumn(columnName="PARAM",data=safetyData::adam_adlbc))
  expect_true(hasColumn(columnName="SUBJID",data=safetyData::adam_adlbc))

  #doesn't care about case
  expect_true(hasColumn(columnName="param",data=safetyData::adam_adlbc))
  expect_true(hasColumn(columnName="SuBjId",data=safetyData::adam_adlbc))

  # returns false when fieldValue isn't there or there is a type mismatch
  expect_false(hasColumn(columnName="PARAMETER",data=safetyData::adam_adlbc))
  expect_false(hasColumn(columnName="SUBJID2",data=safetyData::adam_adlbc))
  
  # returns false for null columnName
  expect_false(hasColumn(columnName=NULL,data=safetyData::adam_adlbc))
  
  # fails with invalid parameters
  expect_error(hasColumn(columnName=123,data=safetyData::adam_adlbc))
  expect_error(hasColumn(columnName=c("PARAM","SUBJID"),data=safetyData::adam_adlbc))
  expect_error(hasColumn(columnName="PARAM",data=list(safetyData::adam_adlbc)))
})