Add dmozDomain and wikiDomain to default metadata fetches
Resolves #31
Change-Id: I61fcd8f045ebf164ee0586470ab58ea929e8e7ba
diff --git a/tests/testthat/test-corpusQuery.R b/tests/testthat/test-corpusQuery.R
index b5b73ee..7ef9e00 100644
--- a/tests/testthat/test-corpusQuery.R
+++ b/tests/testthat/test-corpusQuery.R
@@ -70,15 +70,15 @@
expect_equal(matches$matchStart[1], matches$matchEnd[1])
})
-test_that("fetchAll fetches textClass metadatum", {
+test_that("fetchAll fetches dmozDomain metadatum", {
skip_if_offline()
q <- KorAPConnection(accessToken = NULL, verbose = TRUE) %>%
corpusQuery("Ameisenplage", vc = "pubDate since 2014")
expectedResults <- q@totalResults
matches <- fetchAll(q)@collectedMatches
- expect_true(any(grepl("wissenschaft ", matches$textClass)))
- expect_true(any(grepl(" populaerwissenschaft", matches$textClass)))
- expect_true(any(grepl("kultur literatur", matches$textClass)))
+ # DeReKo-2026 renamed textClass to dmozDomain (space separated)
+ expect_true(any(grepl("wissenschaft ", matches$dmozDomain)))
+ expect_true(any(grepl(" populaerwissenschaft", matches$dmozDomain)))
})
test_that("Uncached query for non-matching search string return 0 results", {
diff --git a/tests/testthat/test-textMetadata.R b/tests/testthat/test-textMetadata.R
index 13c754a..6a44cd6 100644
--- a/tests/testthat/test-textMetadata.R
+++ b/tests/testthat/test-textMetadata.R
@@ -54,8 +54,10 @@
kco <- KorAPConnection(accessToken = NULL)
m <- textMetadata(kco, "WUD17/B96/57558")
- expect_true("staat-gesellschaft\\tbiographien-interviews" == m$textClass[1] ||
- grepl("\\t", m$textClass[1]),
+ # DeReKo-2026 renamed textClass to dmozDomain (list valued); list
+ # valued fields are flattened tab separated
+ expect_true("staat-gesellschaft\\tbiographien-interviews" == m$dmozDomain[1] ||
+ grepl("\\t", m$dmozDomain[1]),
"multiple text classes / domains should be tab separated")
})