test: test replicate_orientation in qp_tidy

KaiAragaki · Nov 5, 2023 · c503f7c · c503f7c
1 parent 4afcaa4
commit c503f7c
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/tests/testthat/test-qp_tidy.R b/tests/testthat/test-qp_tidy.R
@@ -38,3 +38,8 @@ test_that("max_unknowns calculated correctly", {
   expect_equal(get_max_unknowns(3, 2, 1), 0)
   expect_equal(get_max_unknowns(0, 2, 2), 0)
 })
+
+test_that("vertical replicate_orientation works", {
+  f <- system.file("extdata", "absorbances.txt", package = "qp")
+  expect_no_error(suppressWarnings(qp_tidy(f, replicate_orientation = "v")))
+})