Test for station error with many calls

k5cents · Feb 27, 2021 · d0f3e20 · d0f3e20
1 parent 87cc6e8
commit d0f3e20
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/tests/testthat/test-rail-info.R b/tests/testthat/test-rail-info.R
@@ -8,3 +8,7 @@ test_that("stations info is listed for multiple stations", {
   expect_type(s$LineCodes, "list")
   expect_gt(length(unique(s$Code)), 1)
 })
+
+test_that("station info fails for more than 9", {
+  expect_error(station_info(StationCode = metro_stations[1:10]))
+})