diff --git a/tests/testthat/test-textMetadata.R b/tests/testthat/test-textMetadata.R
index b81ec00..9a8610b 100644
--- a/tests/testthat/test-textMetadata.R
+++ b/tests/testthat/test-textMetadata.R
@@ -10,3 +10,9 @@
   m <- new("KorAPConnection") %>% 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") %>% textMetadata("WUD17/B96/57558")
+  expect("staat-gesellschaft\\tbiographien-interviews" == m$textClass[1], "multiple text classes / domnains should be tab separated")
+})