tests/testthat/test_lNA.R

In jbullock35/Bullock: Tools for table-making and miscellaneous helper utilities

# test_lNA.R
# Created on 2019-01-18
# Created by John Bullock

context("Check lNA() output")

x <- c(3, NA, NA, 5)
# lNA(x)            # [1] 2
# lNA1 <- lNA(x)    # no message
#
# lNAv(x)           # 1-line message         
# lNAv1 <- lNAv(x)  # 1-line message


test_that("lNA() assigns values and prints messages as it should", {
  expect_identical(lNA(x), 2L)
  expect_output(lNA(x), NA)          # Should be no printed output
  expect_output(lNA1 <- lNA(x), NA)  # Should be no printed output
})


test_that("lNAv() assigns values and prints messages as it should", {
  sink(tempfile())
    expect_identical(lNAv(x), 2L)
  sink()
  expect_output(lNAv(x), '2 \\(length with NA=4\\)$')        
  expect_output(lNAv1 <- lNAv(x), '2 \\(length with NA=4\\)$') 
})


test_that("lNA() handles nonexistent vectors appropriately", {
  data(iris)
  expect_identical(lNA(iris$Petal.Width), 150L)
  expect_error(lNA(iris$Petal.WidthXXX))
  expect_error(lNA(iris[, "Petal.WidthXXX"]))  
})