tests/testthat/test-check_args.R

In wlandau/downsize: A Tool to Downsize Large Analysis Projects for Testing

# library(testthat); library(downsize)
context("check_args")

test_that("Function check_args() runs correctly", {
  data(mtcars)
  for(r in c(T, F)) for(d in c(T, F)){
    args = list(big = rbind(mtcars, mtcars), small = mtcars, random = r, downsize = d)
    expect_error(check_args(args))
    args$warn = T
    expect_silent(check_args(args))
    x = args
    x$random = NULL
    expect_error(check_args(x))
    x$random = "random"
    expect_error(check_args(x))
    expect_error(check_args(list(big = 10)))
  }
})