Explicitely test that Bad Gateway errors result in graceful fails

Change-Id: I267fceca9e5b2ce64e01291842f3d587624bc3ac
KorAP · Apr 18, 2023 · f650629 · f650629
1 parent 9cdb4be
commit f650629
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/tests/testthat/test-KorAPConnection.R b/tests/testthat/test-KorAPConnection.R
@@ -6,6 +6,10 @@ test_that("KorAPConnection fails gracefully on timeout", {
   expect_message(new("KorAPConnection", apiUrl="http://httpbin.org/delay/3", timeout = 1), "No internet|Timeout|json")
 })
 
+test_that("KorAPConnection fails gracefully on Bad Gateway errors", {
+  expect_message(new("KorAPConnection", apiUrl="http://httpbin.org/status/502", timeout = 1), "No internet|Timeout|json|502")
+})
+
 test_that("KorAPConnection is printable", {
   kco <- new("KorAPConnection", timeout = 10)
   skip_if(is.null(kco@welcome))