Fix field name in corpus query test
Change-Id: I22bdc3c6dd9276bfe0327f5b507365b07b4c622b
diff --git a/tests/testthat/test-corpusQuery.R b/tests/testthat/test-corpusQuery.R
index f080345..65cb870 100644
--- a/tests/testthat/test-corpusQuery.R
+++ b/tests/testthat/test-corpusQuery.R
@@ -95,7 +95,7 @@
test_that("Non-empty query result is printable", {
skip_if_offline()
q <- new("KorAPConnection", cache = TRUE, verbose = TRUE) %>%
- corpusQuery("Ameisenplage", "pubDate since 2014", fields=c("sigle")) %>%
+ corpusQuery("Ameisenplage", "pubDate since 2014", fields=c("textSigle")) %>%
fetchRest()
expect_output(print(q), "Ameisenplage.*pubDate since 2014")
})