#' 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))

})