inst/tinytest/test_S3WrapperGenerator.R

In DTSg: A Class for Working with Time Series Data Based on 'data.table' and 'R6' with Largely Optional Reference Semantics

expect_error(
  S3WrapperGenerator(DTSg$private_fields$.na.status),
  info = "not a function or expression returns error"
)

expect_error(
  S3WrapperGenerator(DTSg$private_methods$aggregate),
  info = "not a public method returns error"
)

expect_error(
  S3WrapperGenerator(expression(noDTSg$public_methods$aggregate)),
  info = 'not an "R6ClassGenerator" returns error'
)