rudimentary tests

PolMine · Feb 26, 2024 · 3da34f7 · 3da34f7
1 parent e492359
commit 3da34f7
Show file tree

Hide file tree

Showing 3 changed files with 23 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -29,7 +29,8 @@ Suggests:
     knitr,
     WikidataQueryServiceR,
     GermaParl2,
-    quanteda
+    quanteda,
+    testthat
 Remotes:
   polmineR=github::PolMine/polmineR@dev
 AdditionalRepositories: https://polmine.github.io/drat/

diff --git a/tests/testthat.R b/tests/testthat.R
@@ -0,0 +1,4 @@
+library(testthat)
+library(dbpedia)
+
+test_check("dbpedia")
diff --git a/tests/testthat/test_dbpedia.R b/tests/testthat/test_dbpedia.R
@@ -0,0 +1,17 @@
+testthat::context("dbpedia")
+
+test_that(
+  "get_dbpedia_uris() for quanteda corpus",
+  {
+    library(quanteda)
+
+    uritab <- quanteda::data_char_ukimmig2010[1:3] %>%
+      corpus() %>%
+      get_dbpedia_uris(
+        api = "http://api.dbpedia-spotlight.org/en/annotate",
+        language = "en",
+        progress = FALSE,
+        verbose = FALSE
+      )
+  }
+)