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)
})
xoopR/R6misc documentation built on April 5, 2022, 4:19 a.m.