Reworkder HttpRequest class to use RETRY functionality

[arvados.git] / sdk / R / tests / testthat / test-HttpRequest.R

diff --git a/sdk/R/tests/testthat/test-HttpRequest.R b/sdk/R/tests/testthat/test-HttpRequest.R
index 427ec346cd72cd2545eb8ee5a46e91136a679fe9..66ab9af19636a33f96e257eebbdf3fa0813add72 100644 (file)
--- a/sdk/R/tests/testthat/test-HttpRequest.R
+++ b/sdk/R/tests/testthat/test-HttpRequest.R
@@ -1,6 +1,13 @@
-context("Http Parser")
+context("Http Request")
 
 
+test_that("execyte raises exception if http verb is not valid", {
+
+    http <- HttpRequest$new()
+    expect_that(http$execute("FAKE VERB", "url"),
+               throws_error("Http verb is not valid."))
+}) 
+
 test_that(paste("createQuery generates and encodes query portion of http",
                 "request based on filters, limit and offset parameters"), {