Make tests conditional

koheiw · Dec 13, 2024 · b2aa24e · b2aa24e
1 parent f4eeddd
commit b2aa24e
Showing 1 changed file with 19 additions and 4 deletions.
diff --git a/tests/testthat/test-textmodel.R b/tests/testthat/test-textmodel.R
@@ -304,10 +304,25 @@ test_that("textmodel_lss works with non-existent seeds", {
                  "No seed word is found in the dfm")
 })
 
-test_that("RSpectra and irlba work", {
-
-    expect_silent(textmodel_lss(dfmt_test, seedwords("pos-neg"), k = 10, engine = "RSpectra"))
-    expect_silent(textmodel_lss(dfmt_test, seedwords("pos-neg"), k = 10, engine = "irlba"))
+test_that("rsvd and irlba work", {
+
+    if (requireNamespace("irlba")) {
+        expect_silent(textmodel_lss(dfmt_test, seedwords("pos-neg"), k = 10, engine = "irlba"))
+    } else {
+        expect_error(
+            expect_silent(textmodel_lss(dfmt_test, seedwords("pos-neg"), k = 10, engine = "irlba")),
+            "irlba package must be installed"
+        )
+    }
+
+    if (requireNamespace("rsvd")) {
+        expect_silent(textmodel_lss(dfmt_test, seedwords("pos-neg"), k = 10, engine = "rsvd"))
+    } else {
+        expect_error(
+            expect_silent(textmodel_lss(dfmt_test, seedwords("pos-neg"), k = 10, engine = "rsvd")),
+            "rsvd package must be installed"
+        )
+    }
 
 })