tests/testthat/test_matchArg.R

context("matchArg")

test_that("matchArg", {
  x = c("pearson", "kendall", "spearman")
  choices = x
  expect_equal(matchArg(x, choices), choices[1])
  expect_equal(matchArg(x, choices, several.ok = TRUE), choices)

  x = substr(x, 1, 1)
  expect_equal(matchArg(x[2], choices, several.ok = FALSE), choices[2])
  expect_equal(matchArg(x[c(1, 3)], choices, several.ok = TRUE), choices[c(1, 3)])

  expect_error(matchArg(1, 1:10), "character")
  expect_error(matchArg(1, letters), "character")
  expect_error(matchArg(letters, 1:10), "character")
  expect_error(matchArg(x[1:2], choices), "length")
  expect_error(matchArg(x[0], choices), "length 0")
})

Try the checkmate package in your browser

Any scripts or data that you put into this service are public.

checkmate documentation built on Sept. 11, 2024, 8:40 p.m.