tests/testthat/test-059-isZeroCodedCheckField.R

In redcapAPI: Interface to 'REDCap'

context("isZeroCodedCheckField Functionality (and warnings)")

#####################################################################
# isZeroCodedCheckField                                          ####

test_that(
  "test isZeroCodedCheckField",
  {
    expect_true(isZeroCodedCheckField("checkbox___0"))
    expect_true(isZeroCodedCheckField("some_field_name___0"))
    expect_false(isZeroCodedCheckField("four_underscore____0"))
    expect_false(isZeroCodedCheckField("checkbox___0_"))
    expect_false(isZeroCodedCheckField("checkbox___1"))
    expect_false(isZeroCodedCheckField("checkbox___a"))
    expect_false(isZeroCodedCheckField("checkbox___00"))
  }
)

test_that(
  "Return an error if field_name is not character(1)",
  {
    local_reproducible_output(width = 200)
    expect_error(isZeroCodedCheckField(0))
    expect_error(isZeroCodedCheckField(c("checkbox___0", 
                                         "checkbox___1")))
  }
)

#####################################################################
# warnOfZeroCodedCheckCasting                                    ####

test_that(
  "Return a warning when casting a zero-coded field likely to fail", 
  {
    local_reproducible_output(width = 200)
    check <- factor(c(0, 1, 0, 1), 
                    0:1, 
                    c("", "0"))
    expect_warning(warnOfZeroCodedCheckCasting(field_name = "check_zero___0", 
                                               x = check), 
                   "Zero-coded check field .+ may not have been cast correctly")
    
    expect_silent(warnOfZeroCodedCheckCasting(field_name = "check_zero___0", 
                                              factor(letters)))
    expect_silent(warnOfZeroCodedCheckCasting(field_name = "check_zero___0", 
                                              0:10))
    expect_silent(warnOfZeroCodedCheckCasting(field_name = "check_zero___1", 
                                              x = check))
  }
)

test_that(
  "warnOfZeroCodedCheckCasting argument validation", 
  {
    local_reproducible_output(width = 200)
    expect_error(warnOfZeroCodedCheckCasting(field_name = 1, 
                                             x = 1:3), 
                 "'field_name': Must be of type 'character'")
    expect_error(warnOfZeroCodedCheckCasting(field_name = letters[1:2], 
                                             x = 1:3), 
                 "'field_name': Must have length 1")
    
    expect_error(warnOfZeroCodedCheckCasting(field_name = "check_zero___0", 
                                             x = mtcars), 
                 "'x': Must be of type 'atomic'")
  }
)

#####################################################################
# warnZeroCodedFieldPresent                                      ####

test_that(
  "Issue warning when zero-coded check fields are present", 
  {
    local_reproducible_output(width = 200)
    expect_warning(
      warnZeroCodedFieldPresent(field_names = c("checkbox_zero___0", 
                                                "checkbox_zero___1")), 
      "Zero-coded check fields found. Verify that casting is correct for checkbox_zero___0")
    
    expect_warning(
      warnZeroCodedFieldPresent(field_names = c("checkbox_zero___0", 
                                                "checkbox_other___0")), 
      "Zero-coded check fields found. Verify that casting is correct for checkbox_zero___0, checkbox_other___0")
    
    expect_silent(
      warnZeroCodedFieldPresent(field_names = "field_name")
    )
  }
)

test_that(
  "warnZeroCodeFieldPresent argument validation", 
  {
    local_reproducible_output(width = 200)
    expect_error(
      warnZeroCodedFieldPresent(field_names = 1:3), 
      "'field_names': Must be of type 'character'"
    )
  }
)