tests/testthat/test-asserts.R

In JanMarvin/openxlsx2: Read, Write and Edit 'xlsx' Files

testsetup()

test_that("assert_class() works", {
  expect_null(assert_class(2L, "integer"))
  expect_null(assert_class(2, "numeric"))
  expect_error(assert_class(2, "integer"))
  expect_null(assert_class(2, c("numeric", "integer")))
  expect_null(assert_class("2", "character"))
  expect_null(assert_class(Sys.Date(), "Date"))
  expect_null(assert_class(Sys.time(), "POSIXt"))
})

test_that("class assertions work", {
  # nolint start
  expect_null(assert_comment(    wb_comment()))
  expect_null(assert_color(      wb_colour()))
  expect_null(assert_hyperlink(  wb_hyperlink()))
  expect_null(assert_sheet_data( wb_sheet_data()))
  expect_null(assert_workbook(   wb_workbook()))
  expect_null(assert_worksheet(  wb_worksheet()))
  # nolint end
})

test_that("missing check works", {
  wb <- wb_workbook()
  expect_silent(assert_workbook(wb))

  wb <- substitute()
  expect_error(assert_workbook(wb), "input wb is missing")

  wb <- "Not_a_workbook"
  expect_error(assert_workbook(wb), "wb must be class wbWorkbook or R6")
})

test_that("match_oneof() works", {
  expect_identical(match_oneof(1:4, 3:4), 3L)
  expect_identical(match_oneof(1:4, 3:4, several = TRUE), 3:4)
  expect_null(match_oneof(NULL, 1:3, or_null = TRUE))
  expect_error(match_oneof("d", letters[1:3]))
  expect_error(match_oneof("d", letters[1:3], several = TRUE))
})