snapshot tests for show_body_diff setting

Author: sckott

tests/testthat/_snaps/Adapter.md

@@ -0,0 +1,63 @@
+# show_body_diff configuration setting
+
+    Code
+      POST("https://hb.opencpu.org/post", body = list(apple = "red"))
+    Condition
+      Error:
+      ! Real HTTP connections are disabled.
+      ! Unregistered request:
+      i POST:  https://hb.opencpu.org/post  with body {apple: red}  with headers {Accept: application/json, text/xml, application/xml, */*}
+      
+      You can stub this request with the following snippet:
+       stub_request('post', uri = 'https://hb.opencpu.org/post') %>%
+           wi_th(
+             headers = list('Accept' = 'application/json, text/xml, application/xml, */*'),
+             body = list(apple="red")
+           )
+      
+      registered request stubs:
+       GET: https://hb.opencpu.org/post   with body {"apple":"green"}
+      
+      
+      Body diff:
+      < stub$body    > request_s..
+      @@ 1,3 @@      @@ 1,3 @@    
+        $apple         $apple     
+      < [1] "green"  > [1] "red"  
+                                  
+      
+      ============================================================
+
+# show_body_diff configuration setting - > 1 stub
+
+    Code
+      POST("https://hb.opencpu.org/post", body = list(apple = "red"))
+    Condition
+      Error:
+      ! Real HTTP connections are disabled.
+      ! Unregistered request:
+      i POST:  https://hb.opencpu.org/post  with body {apple: red}  with headers {Accept: application/json, text/xml, application/xml, */*}
+      
+      You can stub this request with the following snippet:
+       stub_request('post', uri = 'https://hb.opencpu.org/post') %>%
+           wi_th(
+             headers = list('Accept' = 'application/json, text/xml, application/xml, */*'),
+             body = list(apple="red")
+           )
+      
+      registered request stubs:
+       GET: https://hb.opencpu.org/post   with body {"apple":"green"}
+       GET: https://hb.opencpu.org/post   with body {"apple":"green"}
+       GET: https://hb.opencpu.org/post   with body {"pear":"purple"}
+      
+      
+      Body diff:
+      i diffs: >1 stub found, showing diff with least differences
+      < stub$body    > request_s..
+      @@ 1,3 @@      @@ 1,3 @@    
+        $apple         $apple     
+      < [1] "green"  > [1] "red"  
+                                  
+      
+      ============================================================
+

tests/testthat/test-Adapter.R

@@ -16,3 +16,37 @@ test_that("Adapter initialize method errors as expected", {
   )
   expect_error(adap$new(), "should not be called directly")
 })
+
+test_that("show_body_diff configuration setting", {
+  webmockr_configure(show_body_diff = TRUE)
+  withr::defer(webmockr_configure(show_body_diff = FALSE))
+
+  library(httr, warn.conflicts = FALSE)
+  enable(adapter = "httr")
+
+  stub_request("get", "https://hb.opencpu.org/post") %>%
+    wi_th(body = list(apple = "green"))
+
+  expect_snapshot(
+    POST("https://hb.opencpu.org/post", body = list(apple = "red")),
+    error = TRUE
+  )
+})
+
+test_that("show_body_diff configuration setting - > 1 stub", {
+  webmockr_configure(show_body_diff = TRUE)
+  withr::defer(webmockr_configure(show_body_diff = FALSE))
+
+  library(httr, warn.conflicts = FALSE)
+  enable(adapter = "httr")
+
+  stub_request("get", "https://hb.opencpu.org/post") %>%
+    wi_th(body = list(apple = "green"))
+  stub_request("get", "https://hb.opencpu.org/post") %>%
+    wi_th(body = list(pear = "purple"))
+
+  expect_snapshot(
+    POST("https://hb.opencpu.org/post", body = list(apple = "red")),
+    error = TRUE
+  )
+})