tests/testthat/TestR6/tests/testthat/test-TestR6.R

test_that("regular function `a` works as expected", {
  expect_equal(a(1), 1)
  expect_equal(a(2), 2)
  expect_equal(a(3), 2)
  expect_equal(a(4), 2)
  expect_equal(a(0), 1)
})

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

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

  t1$show()
  print(t1$print2())
})

Try the covr package in your browser

Any scripts or data that you put into this service are public.

covr documentation built on Nov. 9, 2023, 9:07 a.m.