dwww Home | Show directory contents | Find package

context("checkListElementClass")

test_that("checkListElementClass", {
  checkListElementClass(list(1, 5), cl="numeric")
  expect_error(checkListElementClass(list(1, "a"), cl="numeric"), "numeric")
  
  xs = list("a", "b")
  checkListElementClass(xs, "character")
  expect_error(checkListElementClass(xs, "integer"), "character")
})


Generated by dwww version 1.15 on Sun Jun 16 20:35:18 CEST 2024.