/usr/share/doc/r-cran-bbmisc/tests/testthat/test_addClasses.R

dwww Home | Show directory contents | Find package

context("addClasses")

test_that("addClasses", {
  x = list(a=1)
  x = addClasses(x, "foo1")
  expect_equal(x, structure(list(a=1), class=c("foo1", "list")))
  x = addClasses(x, c("foo2", "foo3"))
  expect_equal(x, structure(list(a=1), class=c("foo2", "foo3", "foo1", "list")))
})

Generated by dwww version 1.15 on Sat May 18 14:58:35 CEST 2024.