tests/testthat/test_BaseClass.R

In mikebesso/two.laws.big.bang:

library(two.laws.big.bang)


SetTestContext("create new")



CreateTestCase(
  "Initialized Set",
  {
    Base <- BaseClass$new()
    testthat::expect_true(Base$Initialized )
  }
)


CreateTestCase(
  "Validate",
  {
    Base <- BaseClass$new()
    testthat::expect_true(Base$Validate())
  }
)