1test_that("regular function `a` works as expected", { 2 expect_equal(a(1), 1) 3 expect_equal(a(2), 2) 4 expect_equal(a(3), 2) 5 expect_equal(a(4), 2) 6 expect_equal(a(0), 1) 7}) 8 9test_that("TestS4 class can be instantiated", { 10 t1 <- TestS4() # nolint 11}) 12 13test_that("TestS4 Methods can be evaluated", { 14 t1 <- TestS4() # nolint 15 16 show(t1) 17 print(print2(t1)) 18 19 print(print2(t1, "hi")) 20}) 21