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")
})
Generated by dwww version 1.15 on Sat May 18 13:14:44 CEST 2024.