1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
context("proxies")
test_that("proxy without http requests works", {
skip_on_cran()
aa <- proxy("http://97.77.104.22:3128")
bb <- proxy("97.77.104.22:3128")
cc <- proxy("http://97.77.104.22:3128", "foo", "bar")
dd <- proxy("http://97.77.104.22:3128", "foo", "bar", auth = "digest")
ee <- proxy("http://97.77.104.22:3128", "foo", "bar", auth = "ntlm")
expect_is(aa, "proxy")
expect_is(unclass(aa), "list")
expect_is(aa$proxy, "character")
expect_type(aa$proxyport, "double")
expect_type(aa$proxyauth, "double")
expect_is(bb, "proxy")
expect_is(unclass(bb), "list")
expect_is(bb$proxy, "character")
expect_type(bb$proxyport, "double")
expect_type(bb$proxyauth, "double")
expect_is(cc, "proxy")
expect_is(unclass(cc), "list")
expect_is(cc$proxy, "character")
expect_type(cc$proxyport, "double")
expect_type(cc$proxyauth, "double")
expect_is(dd, "proxy")
expect_is(unclass(dd), "list")
expect_is(dd$proxy, "character")
expect_type(dd$proxyport, "double")
expect_type(dd$proxyauth, "double")
expect_is(ee, "proxy")
expect_is(unclass(ee), "list")
expect_is(ee$proxy, "character")
expect_type(ee$proxyport, "double")
expect_type(ee$proxyauth, "double")
})
test_that("proxy - using in HttpClient", {
skip_on_cran()
aa <- HttpClient$new(
url = "http://www.google.com",
proxies = proxy("http://97.77.104.22:3128")
)
expect_is(aa, "HttpClient")
expect_is(aa$proxies, "proxy")
})
test_that("proxy fails well", {
skip_on_cran()
expect_error(proxy(), "proxy URL not of correct form")
expect_error(proxy(user = mtcars), "proxy URL not of correct form")
expect_error(proxy("adff", user = 5), "user must be of class character")
expect_error(proxy("adff", pwd = 5), "pwd must be of class character")
})
|
