context("checkScalar")

test_that("checkScalar", {
  myobj = "a"
  expect_succ_all(Scalar, myobj)
  myobj = 1:2
  expect_fail_all(Scalar, myobj)

  expect_true(testScalar(TRUE))
  expect_true(testScalar(1L))
  expect_true(testScalar(1))
  expect_true(testScalar(1+1i))
  expect_false(testScalar(list(1)))
  expect_false(testScalar(NA, na.ok = FALSE))
  expect_true(testScalar(NA, na.ok = TRUE))

  expect_error(assertScalar(integer(0)), "length 1")
  expect_error(assertScalar(iris), "scalar")
})