unit test match funs

2023-07-19 17:37:18 -04:00
parent a0b4abdb9e
commit 9acebb5133
8 changed files with 138 additions and 1 deletions
@@ -0,0 +1,15 @@
+
+
+#' 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))
+
+})