tests/testthat/test-multiple-classes.r

In decisionpatterns/sticky: Persist Attributes Across Data Operations

library(magrittr)
source('utils.r')

context( "Additional Classes")
test_that( "Additional Classes", {

  x <- rnorm(5)
  # x %<>% base.tools::append_class( "something")
  x %<>% sticky()

   x %>% class %>% testthat::expect_equal(c('sticky', 'numeric' ) )

})