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