Check for rescaling pie warning in as.theta.

AEBilgrau · Jan 9, 2019 · c7b4815 · c7b4815
1 parent 05d9ea5
commit c7b4815
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/tests/testthat/test-as.theta.R b/tests/testthat/test-as.theta.R
@@ -24,6 +24,10 @@ x2 <- unname(list( # Unnamed
                               comp2 = diag(d)))  # array, not a list
 ))
 
-test_that("Check that as.theta works for 'matrix means'", {
-  expect_true(is.theta(as.theta(x2)))
+test_that("Check that as.theta works for 'matrix means', 'array sigma', and
+          mixture proportions that do not sum to1 ", {
+  expect_warning(
+    expect_true(is.theta(as.theta(x2))),
+    'rescaled'
+  )
 })