packrat/lib/x86_64-w64-mingw32/3.4.3/rlang/tests/testthat/test-arg.R

In UBC-MDS/Karl:

context("arg")

test_that("matches arg", {
  myarg <- c("foo", "baz")
  expect_identical(arg_match(myarg, c("bar", "foo")), "foo")
  expect_error(
    regex = "`myarg` should be one of: \"bar\" or \"baz\"",
    arg_match(myarg, c("bar", "baz"))
  )
})

test_that("informative error message on partial match", {
  myarg <- "f"
  expect_error(
    regex = "Did you mean \"foo\"?",
    arg_match(myarg, c("bar", "foo"))
  )
})

test_that("gets choices from function", {
  fn <- function(myarg = c("bar", "foo")) arg_match(myarg)
  expect_error(fn("f"), "Did you mean \"foo\"?")
  expect_identical(fn("foo"), "foo")
})

test_that("is_missing() works with symbols", {
  x <- missing_arg()
  expect_true(is_missing(x))
})

test_that("is_missing() works with non-symbols", {
  expect_true(is_missing(missing_arg()))

  l <- list(missing_arg())
  expect_true(is_missing(l[[1]]))
  expect_error(missing(l[[1]]), "invalid use")
})