tests/testthat/test-util-assert.R

In richfitz/toxiproxyr: Client for 'toxiproxy'

context("util (assert)")

test_that("assert_scalar", {
  object <- 1:5
  expect_error(assert_scalar(object), "'object' must be a scalar")

  expect_error(assert_scalar(NULL), "must be a scalar")

  expect_silent(assert_scalar(TRUE))
})


test_that("assert_numeric", {
  object <- NULL
  expect_error(assert_numeric(object), "'object' must be numeric")

  expect_error(assert_numeric("a"), "must be numeric")

  expect_silent(assert_numeric(pi))
})


test_that("assert_character", {
  object <- NULL
  expect_error(assert_character(object), "'object' must be a character")

  expect_error(assert_character(1), "must be a character")
  expect_error(assert_character(pi), "must be a character")

  expect_silent(assert_character("a"))
})


test_that("assert_integer", {
  expect_error(assert_integer(pi), "'pi' must be integer")
  expect_silent(assert_integer(1L))
  expect_silent(assert_integer(1))
  expect_silent(assert_integer(1 + 1e-15))
})


test_that("assert_logical", {
  expect_error(assert_logical(pi), "'pi' must be a logical")
  expect_silent(assert_logical(TRUE))
  expect_silent(assert_logical(FALSE))
})


test_that("match_value", {
  expect_error(match_value("foo", letters), "must be one of 'a', 'b'")
  expect_silent(match_value("a", letters))
})


test_that("assert_scalar_logical", {
  expect_true(assert_scalar_logical(TRUE))
  expect_error(assert_scalar_logical("1", "data"),
               "'data' must be a logical")
})


test_that("assert_scalar_integer", {
  expect_equal(assert_scalar_integer(1), 1)
  expect_error(assert_scalar_integer("1", name = "data"),
               "'data' must be integer")
})


test_that("assert_scalar_numeric", {
  expect_equal(assert_scalar_numeric(pi), pi)
  expect_error(assert_scalar_numeric(TRUE, "data"),
               "'data' must be numeric")
})


test_that("assert_scalar_character", {
  expect_equal(assert_scalar_character("string"), "string")
  expect_error(assert_scalar_character(TRUE, "data"),
               "'data' must be a character")
})


test_that("assert_file_exists", {
  path <- tempfile()
  expect_error(assert_file_exists(path),
               "The path '.+?' does not exist")
  file.create(path)
  expect_silent(assert_file_exists(path))
})


test_that("assert_named", {
  object <- list(1, 2, 3)
  expect_error(assert_named(object), "'object' must be named")

  expect_error(assert_named(setNames(object, c("a", "b", "")), name = "x"),
               "All elements of 'x' must be named")
  expect_error(assert_named(setNames(object, c("a", "b", "b")), TRUE, "x"),
               "'x' must have unique names")
  expect_silent(assert_named(setNames(object, c("a", "b", "b")), FALSE, "x"))
  expect_silent(assert_named(setNames(object, c("a", "b", "c")), TRUE, "x"))
})