Add custom metadata query test on instance KED
Change-Id: If03b188b26c7cf5a218ff53c580237f5339e7905
diff --git a/tests/testthat/test-corpusQuery.R b/tests/testthat/test-corpusQuery.R
index 34aba74..1c8b3ea 100644
--- a/tests/testthat/test-corpusQuery.R
+++ b/tests/testthat/test-corpusQuery.R
@@ -146,3 +146,46 @@
expect_true(all(matches$matchEnd == matches$matchStart))
})
+test_that("extended metadata fields work cortrectly on instane KED", {
+ kco <- new("KorAPConnection", KorAPUrl = "https://korap.ids-mannheim.de/instance/ked", verbose = TRUE)
+ q <- corpusQuery(
+ kco,
+ "einfache",
+ fields = c(
+ "textSigle",
+ "pubDate",
+ "pubPlace",
+ "availability",
+ "textClass",
+ "snippet",
+ "tokens",
+ "KED.cover1Herder",
+ "KED.cover2Herder",
+ "KED.cover3Herder",
+ "KED.cover4Herder",
+ "KED.cover5Herder",
+ "KED.nPara",
+ "KED.nPunct1kTks",
+ "KED.nSent",
+ "KED.nToks",
+ "KED.nToksSentMd",
+ "KED.nTyps",
+ "KED.rcpnt",
+ "KED.rcpntLabel",
+ "KED.strtgy",
+ "KED.strtgyLabel",
+ "KED.topic",
+ "KED.topicLabel",
+ "KED.txttyp",
+ "KED.txttypLabel"
+ )
+ )
+ q <- q %>% fetchAll()
+ df <- q@collectedMatches
+ expect_gt(nrow(df), 0)
+ expect_gt(min(as.numeric(df$KED.nToks)), 100)
+ expect_gt(min(as.numeric(df$KED.nSent)), 8)
+ expect_gt(min(nchar(df$KED.rcpnt)), 5)
+})
+
+