context("checkLogical")

test_that("checkLogical", {
  myobj = TRUE
  expect_succ_all(Logical, myobj)
  myobj = 1
  expect_fail_all(Logical, myobj)

  expect_true(testLogical(logical(0)))
  expect_false(testLogical(NULL))
  expect_true(testLogical(TRUE))
  expect_true(testLogical(NA))
  expect_true(testLogical(NA_real_))
  expect_true(testLogical(FALSE))
  expect_false(testLogical(NA, any.missing=FALSE))
  expect_false(testLogical(NA, all.missing=FALSE))
  expect_false(testLogical(iris))
  expect_true(testLogical(c(TRUE, FALSE), min.len = 2))

  expect_error(assertLogical(1), "logical")
})

test_that("typed.missing", {
  expect_true(testLogical(NA_character_))
  expect_true(testLogical(NA_character_, typed.missing = FALSE))
  expect_false(testLogical(NA_character_, typed.missing = TRUE))

  expect_true(testLogical(character()))
  expect_true(testLogical(character(), typed.missing = FALSE))
  expect_false(testLogical(character(), typed.missing = TRUE))
})