♻️💄 simplify KorAPConnection class instantiations to modern syntax
Update all class instantiations from `new("KorAPConnection")` to `KorAPConnection()`.
This is possible with R >= 4.0.
Change-Id: I01131fb32045e084cafbb9e05cd8ba99f8f20f1b
diff --git a/tests/testthat/test-textMetadata.R b/tests/testthat/test-textMetadata.R
index 2355322..ab9ba01 100644
--- a/tests/testthat/test-textMetadata.R
+++ b/tests/testthat/test-textMetadata.R
@@ -1,18 +1,18 @@
test_that("textMetadata works", {
skip_if_offline()
- m <- new("KorAPConnection", accessToken = NULL) %>% textMetadata(c("WUD17/B96/57558", "WUD17/A97/08541"))
+ m <- KorAPConnection(accessToken = NULL) %>% textMetadata(c("WUD17/B96/57558", "WUD17/A97/08541"))
expect("textType" %in% names(m), "textMetadata value should contain a textType column")
})
test_that("textMetadata works for unknown text sigles", {
skip_if_offline()
- m <- new("KorAPConnection", accessToken = NULL) %>% textMetadata(c("WUD17/B96/57558", "unknownsigle"))
+ m <- KorAPConnection(accessToken = NULL) %>% textMetadata(c("WUD17/B96/57558", "unknownsigle"))
expect("errors" %in% names(m), "textMetadata should return an errors column if a text does not exist")
})
test_that("textMetadata works with list valued fields", {
skip_if_offline()
- m <- new("KorAPConnection", accessToken = NULL) %>% textMetadata("WUD17/B96/57558")
+ m <- KorAPConnection(accessToken = NULL) %>% textMetadata("WUD17/B96/57558")
expect("staat-gesellschaft\\tbiographien-interviews" == m$textClass[1], "multiple text classes / domnains should be tab separated")
})