tests/testthat/test_BasicUtils.R

In wegar-2/VariousUtils: Various utility functions

testthat::context(desc = "testing class BasicUtils...")

testthat::test_that(desc = "testing function bIsScalarOfClass", code = {

  testthat::expect_true(
    object = BasicUtils$bIsScalarOfClass(objIn = "asdf", cClassName = "character")
  )
  testthat::expect_true(
    object = BasicUtils$bIsScalarOfClass(objIn = 123L, cClassName = "integer")
  )
  testthat::expect_false(
    object = BasicUtils$bIsScalarOfClass(objIn = 123.33, cClassName = "double")
  )


})