Add a test

DataSlingers · Jun 27, 2019 · c5ac406 · c5ac406
1 parent 323c221
commit c5ac406
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/tests/testthat/test_arguments.R b/tests/testthat/test_arguments.R
@@ -437,6 +437,19 @@ test_that("Correct match for PG loop settings", {
         "EPS 1.21231e-05 MAX_ITER 12957000 EPS_inner 1.987e-06 MAX_ITER_inner 98728376"
     )
 
+     expect_error(
+        moma_svd(
+            matrix(runif(12), 3, 4),
+            pg_setting = c(
+                EPS = 1.212312e-5,
+                MAX_ITER = 1.2957e+7,
+                EPS_inner = 1.987e-6,
+                MAX_ITER_inner = 98728376
+            )
+        ),
+        "pg_setting penalty should be of class ‘moma_pg_setting’."
+    )
+
     on.exit(MoMA::moma_logger_level(old_logger_level))
 })