diff --git a/tests/testthat/test-KorAPConnection.R b/tests/testthat/test-KorAPConnection.R
new file mode 100644
index 0000000..883b10c
--- /dev/null
+++ b/tests/testthat/test-KorAPConnection.R
@@ -0,0 +1,29 @@
+test_that("KorAPConnection is printable", {
+  kco <- new("KorAPConnection")
+  expect_error(print(kco), NA)
+})
+
+test_that("KorAPConnection without access token prints ToS message", {
+  expect_message(new("KorAPConnection", accessToken = NULL),
+                 ".*By using.*non-commercial.*purposes", perl = TRUE)
+})
+
+test_that("Opening KorAPConnection with apiToken works", {
+  kco <- new("KorAPConnection", accessToken="test token")
+  persistAccessToken(kco)
+  kco <- new("KorAPConnection")
+  expect_equal(kco@accessToken, "test token")
+  clearAccessToken(kco)
+  kco <- new("KorAPConnection")
+  expect_null(kco@accessToken)
+  expect_error(persistAccessToken(kco),
+               ".*not supplied any access token.*",
+               perl = TRUE)
+})
+
+test_that("Opening KorAPConnection with KorAPUrl works", {
+  kco <- new("KorAPConnection", KorAPUrl="https://korap.ids-mannheim.de")
+  expect_equal(kco@apiUrl, paste0("https://korap.ids-mannheim.de/api/", kco@apiVersion, "/"))
+  kco <- new("KorAPConnection", KorAPUrl="https://korap.ids-mannheim.de/")
+  expect_equal(kco@apiUrl, paste0("https://korap.ids-mannheim.de/api/", kco@apiVersion, "/"))
+})
diff --git a/tests/testthat/test-corpusQuery.R b/tests/testthat/test-corpusQuery.R
new file mode 100644
index 0000000..ab97765
--- /dev/null
+++ b/tests/testthat/test-corpusQuery.R
@@ -0,0 +1,44 @@
+test_that("corpusQuery returns results", {
+  q <- new("KorAPConnection") %>%
+    corpusQuery("Ameisenplage")
+  expect_gt(q@totalResults, 0)
+})
+
+test_that("fetchAll fetches all results", {
+  q <- new("KorAPConnection", verbose = TRUE) %>%
+    corpusQuery("Ameisenplage", vc = "pubDate since 2014")
+  expectedResults <- q@totalResults
+  matches <- fetchAll(q)@collectedMatches
+  expect_equal(nrow(matches), expectedResults)
+})
+
+test_that("Uncached query for non-matching search string return 0 results", {
+  q <- new("KorAPConnection", cache = FALSE) %>% corpusQuery("Xmeisenplagx")
+  expect_equal( q@totalResults, 0)
+})
+
+test_that("Empty query result is printable", {
+  q <- new("KorAPConnection", cache = TRUE, verbose = TRUE) %>%
+    corpusQuery("Xmeisenplagx", vc = "pubDate in 2012") %>%
+    fetchNext()
+  expect_output(print(q), "Xmeisenplagx.*pubDate in 2012")
+})
+
+test_that("Non-empty query result is printable", {
+  q <- new("KorAPConnection", cache = TRUE, verbose = TRUE) %>%
+    corpusQuery("Ameisenplage", "pubDate since 2014", fields=c("sigle")) %>%
+    fetchRest()
+  expect_output(print(q), "Ameisenplage.*pubDate since 2014")
+})
+
+test_that("Query from KorAP URL returns as many results as corresponding direct query", {
+  kco <- new("KorAPConnection")
+  r1 <- corpusQuery(kco, KorAPUrl = "https://korap.ids-mannheim.de/?q=Ameisenplage&cq=pubDate+since+2014&ql=poliqarp")@totalResults
+  r2 <- corpusQuery(kco, "Ameisenplage", "pubDate since 2014")@totalResults
+  expect_equal(r1, r2)
+})
+
+test_that("Typo in query causes error", {
+  kco <- new("KorAPConnection", verbose = TRUE)
+  expect_error(kco %>% corpusQuery("[[xx"), "unbalanced")
+})
diff --git a/tests/testthat/test-corpusStats.R b/tests/testthat/test-corpusStats.R
new file mode 100644
index 0000000..8143886
--- /dev/null
+++ b/tests/testthat/test-corpusStats.R
@@ -0,0 +1,17 @@
+test_that("corpusStats works", {
+  stats <- new("KorAPConnection") %>% corpusStats()
+  expect_gt(stats@tokens, 0)
+  expect_gt(stats@paragraphs, 0)
+  expect_gt(stats@documents, 0)
+})
+
+
+test_that("Printing corpusStats for the whole corpus works", {
+  stats <- new("KorAPConnection") %>% corpusStats()
+  expect_error(print(stats), NA)
+})
+
+test_that("Printing corpusStats for a sub-corpus works", {
+  stats <- new("KorAPConnection") %>% corpusStats("pubDate in 2018")
+  expect_error(print(stats), NA)
+})
diff --git a/tests/testthat/test-demos.R b/tests/testthat/test-demos.R
new file mode 100644
index 0000000..1269760
--- /dev/null
+++ b/tests/testthat/test-demos.R
@@ -0,0 +1,143 @@
+test_that("Alternatives over time highcharter example works", {
+  year <- c(1990:2018)
+  alternatives <- c("macht []{0,3} Sinn", "ergibt []{0,3} Sinn")
+
+  hc <- new("KorAPConnection", verbose = TRUE) %>%
+    frequencyQuery(
+      query = alternatives,
+      vc = paste("textType = /Zeit.*/ & pubDate in", year),
+      as.alternatives = TRUE
+    ) %>%
+    hc_freq_by_year_ci(as.alternatives = TRUE)
+  expect_true(all(class(hc) %in% c("highchart", "htmlwidget")))
+})
+
+test_that("Multiple queries over time highcharter example works", {
+  year <- c(2013:2018)
+  alternatives <- c("macht []{0,3} Sinn", "ergibt []{0,3} Sinn")
+
+  hc <- new("KorAPConnection", verbose = TRUE) %>%
+    frequencyQuery(
+      query = alternatives,
+      vc = paste("textType = /Zeit.*/ & pubDate in", year),
+      as.alternatives = FALSE
+    ) %>%
+    hc_freq_by_year_ci(as.alternatives = FALSE)
+  expect_true(all(class(hc) %in% c("highchart", "htmlwidget")))
+})
+
+test_that("Single query in multiple over time highcharter example works", {
+  year <- c(2013:2018)
+  alternatives <- c("macht []{0,3} Sinn", "ergibt []{0,3} Sinn")
+
+  hc <- new("KorAPConnection", verbose = TRUE) %>%
+    frequencyQuery(
+      query = alternatives,
+      vc = paste("textType = /Zeit.*/ & pubDate in", year),
+      as.alternatives = FALSE
+    ) %>%
+    hc_freq_by_year_ci(as.alternatives = FALSE)
+  expect_true(all(class(hc) %in% c("highchart", "htmlwidget")))
+})
+
+test_that("Single query over time highcharter example works", {
+  year <- c(2013:2018)
+  q <- c("macht []{0,3} Sinn")
+
+  hc <- new("KorAPConnection", verbose = TRUE) %>%
+    frequencyQuery(
+      query = q,
+      vc = paste("textType = /Zeit.*/ & pubDate in", year),
+      as.alternatives = FALSE
+    ) %>%
+    hc_freq_by_year_ci(as.alternatives = FALSE)
+  expect_true(all(class(hc) %in% c("highchart", "htmlwidget")))
+})
+
+test_that("Auto conditions over time highcharter example works", {
+  kco <- new("KorAPConnection", verbose=TRUE)
+  hc <- expand_grid(
+    myconditions = c("textDomain = /Wirtschaft.*/",
+                  "textDomain != /Wirtschaft.*/"),
+    year = (2009:2013)
+  ) %>%
+    cbind(frequencyQuery(
+      kco,
+      c("[tt/l=Heuschrecke]", "Ameise"),
+      paste(.$myconditions, "& pubDate in", .$year)
+    ))  %>%
+    hc_freq_by_year_ci()
+  expect_true(all(class(hc) %in% c("highchart", "htmlwidget")))
+})
+
+test_that("Single condition over time highcharter example works", {
+  kco <- new("KorAPConnection", verbose=TRUE)
+  hc <- expand_grid(
+    condition = c("textDomain = /Wirtschaft.*/"),
+    year = (2009:2013)
+  ) %>%
+    cbind(frequencyQuery(
+      kco,
+      c("[tt/l=Heuschrecke]", "Ameise"),
+      paste(.$condition, "& pubDate in", .$year),
+    ))  %>%
+    hc_freq_by_year_ci()
+  expect_true(all(class(hc) %in% c("highchart", "htmlwidget")))
+})
+
+test_that("Multiple conditions over time highcharter example works", {
+  kco <- new("KorAPConnection", verbose=TRUE)
+  hc <- expand_grid(
+    condition = c("textDomain = /Wirtschaft.*/",
+                  "textDomain != /Wirtschaft.*/"),
+    year = (2009:2013)
+  ) %>%
+    cbind(frequencyQuery(
+      kco,
+      c("[tt/l=Heuschrecke]", "Ameise"),
+      paste(.$condition, "& pubDate in", .$year),
+    ))  %>%
+    hc_freq_by_year_ci()
+  expect_true(all(class(hc) %in% c("highchart", "htmlwidget")))
+})
+
+test_that("Multiple conditions and queries over time highcharter example works", {
+  kco <- new("KorAPConnection", verbose=TRUE)
+  hc <- expand_grid(
+    qx = c("[tt/l=Heuschrecke]", "Ameise"),
+    condition = c("textDomain = /Wirtschaft.*/",
+                  "textDomain != /Wirtschaft.*/"),
+    year = (2009:2013)
+  ) %>%
+    cbind(frequencyQuery(
+      kco,
+      .$qx,
+      paste(.$condition, "& pubDate in", .$year),
+    ))  %>%
+    hc_freq_by_year_ci()
+  expect_true(all(class(hc) %in% c("highchart", "htmlwidget")))
+})
+
+test_that("Conditions over time ggplotly example works", {
+  kco <- new("KorAPConnection")
+  p <- expand_grid(
+    condition = c("textDomain = /Wirtschaft.*/",
+                  "textDomain != /Wirtschaft.*/"),
+    year = (2009:2013)
+  ) %>%
+    cbind(frequencyQuery(
+      kco,
+      "[tt/l=Heuschrecke]",
+      paste(.$condition, "& pubDate in", .$year)
+    ))  %>%
+    ipm() %>%
+    ggplot(aes(
+      x = year,
+      y = ipm,
+      fill = condition,
+      colour = condition
+    )) +
+    geom_freq_by_year_ci()
+  pp <- ggplotly(p)
+  expect_error(print(pp), NA)
+})