16 lines
251 B
R
16 lines
251 B
R
|
|
|
|
#' x <- LETTERS
|
|
#' y <- c(letters, LETTERS)
|
|
#' match_test(x, y)
|
|
#'
|
|
#'
|
|
context("Test Basic Output for match_test")
|
|
|
|
test_that("pretty_per respects rounding", {
|
|
x <- LETTERS
|
|
y <- c(letters, LETTERS)
|
|
testthat::expect_output(match_test(x, y))
|
|
|
|
})
|