Transform snapshot with variable output (#448)

Author: hadley

tests/testthat/_snaps/session.md

@@ -7,7 +7,7 @@
       <session> https://hadley.nz/
         Status: 200
         Type:   text/html; charset=utf-8
-        Size:   20773
+        Size:   <size>
     Code
       expect_true(is.session(s))
       s <- session_follow_link(s, css = "p a")

tests/testthat/test-session.R

@@ -6,7 +6,7 @@ test_that("basic session process works as expected", {
 
     s <- session_follow_link(s, css = "p a")
     session_history(s)
-  })
+  }, transform = function(x) gsub("Size: .*", "Size:   <size>", x))
 })
 
 test_that("session caches xml parsing and sets base url", {
@@ -103,4 +103,3 @@ test_that("can submit a form", {
   resp <- httr::content(s$response)
   expect_equal(resp$query, "x=1&y=2")
 })
-