Fix test warnings via class expectations on errors (#10).

miraisolutions · Feb 25, 2020 · e4ac407 · e4ac407
1 parent cf4669f
commit e4ac407
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/tests/testthat/test-TRNG.Engine.R b/tests/testthat/test-TRNG.Engine.R
@@ -262,11 +262,11 @@ test_that("$split errors for out-of-range subsequence indices", {
     p <- 5L
     if (!grepl("(lagfib|mt)", engineClass)) {
       expect_error(
-        e$split(p, 0L), "invalid", # 1-base indexing
+        e$split(p, 0L), class = "std::invalid_argument", # 1-base indexing
         info = .name(engineClass)
       )
       expect_error(
-        e$split(p, p + 1L), "invalid",
+        e$split(p, p + 1L), class = "std::invalid_argument",
         info = .name(engineClass)
       )
       expect_error(

diff --git a/tests/testthat/test-TRNG.Random.R b/tests/testthat/test-TRNG.Random.R
@@ -131,8 +131,8 @@ test_that("TRNGsplit errors for out-of-range subsequence indices", {
   TRNGkind(KIND)
   TRNGseed(SEED)
   p <- 5L
-  expect_error(TRNGsplit(p, 0L), "invalid") # 1-base indexing
-  expect_error(TRNGsplit(p, p + 1L), "invalid")
+  expect_error(TRNGsplit(p, 0L), class = "std::invalid_argument") # 1-base indexing
+  expect_error(TRNGsplit(p, p + 1L), class = "std::invalid_argument")
   expect_error(TRNGsplit(p, -1L), "negative")
   expect_error(TRNGsplit(-1L, 1L), "negative")
 })