tests/testthat/Testbox_attached_modules_functions_R6/tests/testthat/test-attached_R6.R

In jimhester/covr: Test Coverage for Packages

box::use(
  testthat[test_that, expect_equal, expect_s3_class]
)

box::use(
  app/modules/moduleR6[TestR6]
)

test_that("TestR6 class can be instantiated", {
  skip_if(is_r_devel())
  t1 <- TestR6$new() # nolint

  expect_s3_class(t1, "R6")
  expect_s3_class(t1, "TestR6")
})

test_that("TestR6 Methods can be evaluated", {
  skip_if(is_r_devel())
  t1 <- TestR6$new() # nolint

  expect_equal(t1$show(), 4)
  expect_equal(t1$print2(), 3)
})