tests/testthat/test_Utils.R

In wegar-2/okeanos.ustr.ir: Retrieve yields curves published by US Treasury (https://home.treasury.gov/)

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

  testthat::expect_true(object = bIsScalarOfClass(objIn = 123L,
                                                  cClassName = "integer"))

  testthat::expect_true(object = bIsScalarOfClass(objIn = rnorm(n = 1),
                                                  cClassName = "numeric"))

  testthat::expect_false(object = bIsScalarOfClass(objIn = c(123L, 33L),
                                                  cClassName = "integer"))

})