trois petites lignes en plus dans les tests unitaires

InseeFr · Feb 7, 2024 · ad28c99 · ad28c99
1 parent 31a64df
commit ad28c99
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/tests/testthat/test-reView.R b/tests/testthat/test-reView.R
@@ -26,6 +26,7 @@ test_that("display_vector", {
 })
 
 test_that("get_preset", {
+  expect_identical(get_preset(NULL), NA)
   expect_equal(get_preset(twoStepsBenchmark(turnover,construction,include.differenciation = TRUE)),1)
   expect_equal(get_preset(twoStepsBenchmark(turnover,construction,include.differenciation = TRUE,
                                             set.const = 0)),2)
@@ -227,6 +228,14 @@ test_that("rePort produces a report when time boundaries are set",{
   unlink(temp_html)
 })
 
+test_that("reView and rePort return an error on multivariate benchmarks",
+          {
+            expect_error(rePort(twoStepsBenchmark(cbind(turnover,turnover_catering), construction)),
+                         "univariate benchmarks")
+            expect_error(reView(twoStepsBenchmark(cbind(turnover,turnover_catering), construction)),
+                         "univariate benchmarks")
+          })
+
 test_that("reView-withoutset",{
 
   # important : the package should have been rebuilt for these tests