tests/testthat/test-ooplahClass.R

test_that("ooplah class behaves as expected", {
  obj <- ooplah$new()
  expect_equal(private(obj)$.goodbye, "Goodbye World")
  expect_true(obj$logically)
  obj$logically <- FALSE
  expect_false(obj$logically)
})

Try the ooplah package in your browser

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

ooplah documentation built on Jan. 21, 2022, 5:07 p.m.