tests/testthat/test-args.R

In skubicius/dictionary: Hashmap Data Structure

context("arg checking")

test_that("arguments are correctly checked", {
  l <- list(keys = 1, values = 2)
  expect_equal(get_keys(l), 1)
  expect_equal(get_values(l), 2)

  arg_names <- c("keys", "values")
  expect_true(all_explicit(arg_names))
  expect_true(any_explicit(arg_names))
  expect_true(none_empty(arg_names))
  expect_false(any_empty(arg_names))

  arg_names <- c("key", "values")
  expect_false(all_explicit(arg_names))
  expect_true(any_explicit(arg_names))

  arg_names <- c("key", "value")
  expect_false(all_explicit(arg_names))
  expect_false(any_explicit(arg_names))

  arg_names <- NULL
  expect_false(all_explicit(arg_names))
  expect_false(any_explicit(arg_names))
  expect_false(none_empty(arg_names))
  expect_true(any_empty(arg_names))
})