context("checkList") test_that("checkList", { myobj = list(1, 2, 3) expect_succ_all(List, myobj) myobj = TRUE expect_fail_all(List, myobj) expect_true(testList(list())) expect_false(testList(NULL)) expect_true(testList(list(1))) expect_false(testList(iris)) x = as.list(iris) expect_true(testList(x, types = c("numeric", "factor"))) expect_false(testList(x, types = c("integer", "factor"))) expect_false(testList(x, types = c("numeric", "character"))) expect_true(testList(x, types = c("vector", "factor"))) expect_true(testList(list(NULL), types = "NULL")) expect_true(testList(list(), types = "numeric")) expect_false(testList(list(TRUE), types = "numeric")) expect_error(assertList(x, types = "numeric"), "numeric") expect_error(assertList(x, len = 33), "Must have length 33") expect_true(testList(list(), names = "named")) x = list(1, NULL) expect_true(testList(x)) expect_false(testList(x, any.missing = FALSE)) x = 1:3 class(x) = "foo" x = list(x, 1:3) expect_true(testList(x, types = c("foo", "integerish"))) expect_error(assertList(1), "list") }) test_that("missingness in lists", { x = list(1, NULL) expect_true(testList(x)) expect_true(testList(x, all.missing = FALSE)) expect_false(testList(x, any.missing = FALSE)) x = list(NULL) expect_true(testList(x)) expect_false(testList(x, all.missing = FALSE)) expect_false(testList(x, any.missing = FALSE)) })
Generated by dwww version 1.15 on Mon Jun 24 15:32:11 CEST 2024.