inst/tests/test-get_all_ref_classes.R

In robertzk/refclass: Refactor of R reference classes

context('get_all_ref_classes')

test_that('it can get all reference class and superclasses for a simple example', {
  methods::setRefClass('test__c')
  methods::setRefClass('test__d', contains = 'test__c')
  expect_equal(get_all_ref_classes(list(getClass('test__d'))),
               c('test__d', 'test__c', 'envRefClass'))
  removeClass('test__c')
  removeClass('test__d')
})