Add test for throttle rate

clessn · Jun 14, 2023 · 405cbe1 · 405cbe1
1 parent ad2a717
commit 405cbe1
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/CRAN-SUBMISSION b/CRAN-SUBMISSION
@@ -0,0 +1,3 @@
+Version: 0.1.3
+Date: 2023-06-07 15:28:34 UTC
+SHA: b9256de5930ff921a053a5084c68d312d6957faf
diff --git a/tests/testthat/test-locate.R b/tests/testthat/test-locate.R
@@ -71,4 +71,7 @@ test_that("create request works", {
                "http://ip-api.com/csv/132.203.167.188?fields=status%2Cmessage%2Ccountry%2Ccity&header=true")
 
   expect_error(get_location(ip = "132.203.167.188", lang = "uk"))
+
+  req <- create_req()
+  expect_equal(environment(req[["policies"]][["throttle_delay"]])[["rate"]], 0.75)
 })