Missing httpbin methods

[gaborcsardi]

• /digest-auth
• /hidden-basic-auth
• /cache
• /cache/{value}
• /etag
• /response-headers
• /brotli
• /deflate
• /drip
• /links/{n}{offset}
• /range/{numbytes}
• /stream-bytes/{n}
• /stream/{n}
• /cookies
• /cookies/delete
• /cookies/set
• /cookies/set/{name}/{value}

[juliasilge]

I use /cache and /etag in the tests for pins and would love to switch over to using webfakes in these cases.

[gaborcsardi]

@juliasilge can you please try if it works for you now?

[juliasilge]

The regular /cache and /etag work great for me, but the cache control like /cache/60 (cacheable for 60 sec, for example) does not behave how I was expecting:

library(webfakes)

httpbin <- local_app_process(httpbin_app())
url1 <- httpbin$url("/cache/60")
resp1 <- httr::GET(url1)
httr::cache_info(resp1)
#> <cache_info>  http://127.0.0.1:52399/cache/60
#>   Cacheable:     TRUE
#> Error in http_date(x$expires): inherits(x, "POSIXt") is not TRUE

url2 <- "https://httpbin.org/cache/60"
resp2 <- httr::GET(url2)
httr::cache_info(resp2)
#> <cache_info>  https://httpbin.org/cache/60
#>   Cacheable:     TRUE
#>   Expires:       Tue, 09 May 2023 16:37:26 GMT
#>   Last-Modified: 
#>   Etag:

^{Created on 2023-05-09 with reprex v2.0.2}

[gaborcsardi]

Right! Should be good now. Thanks for checking!

[juliasilge]

Is it possible something has gone awry with timezones?

library(webfakes)

httpbin <- local_app_process(httpbin_app())
url1 <- httpbin$url("/cache/60")
resp1 <- httr::GET(url1)
cache1 <- httr::cache_info(resp1)
cache1$expires
#> [1] "2023-05-09 11:51:04 GMT"

url2 <- "https://httpbin.org/cache/60"
resp2 <- httr::GET(url2)
cache2 <- httr::cache_info(resp2)
cache2$expires
#> [1] "2023-05-09 17:51:06 GMT"

^{Created on 2023-05-09 with reprex v2.0.2}

When I ran this, 11:50 or so was my local time in US Mountain Time, not GMT.

[gaborcsardi]

Ah, yes. Hopefully it is good now.

[juliasilge]

This works great now, and the pins CI is so much less painful! Thank you so much! 🙌