Add known output test

krlmlr · krlmlr · commit 5519ce90f8b7 · 2019-02-09T16:44:29.000+01:00
diff --git a/tests/testthat/blob.txt b/tests/testthat/blob.txt
@@ -0,0 +1 @@
+[1] blob[4.00 B]  blob[2.05 kB] blob[1.05 MB]
diff --git a/tests/testthat/test-format.R b/tests/testthat/test-format.R
@@ -45,3 +45,11 @@ test_that("similar sizes", {
     )
   )
 })
+
+test_that("output", {
+  skip_on_cran()
+
+  x <- blob(raw(2 ** 2), raw(2 ** 11), raw(2 ** 20))
+
+  expect_known_output(print(x), "blob.txt")
+})

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1 @@`
	`1`	`+[1] blob[4.00 B] blob[2.05 kB] blob[1.05 MB]`
Original file line number	Diff line number	Diff line change
`@@ -45,3 +45,11 @@ test_that("similar sizes", {`
`45`	`45`	`)`
`46`	`46`	`)`
`47`	`47`	`})`
	`48`	`+`
	`49`	`+test_that("output", {`
	`50`	`+ skip_on_cran()`
	`51`	`+`
	`52`	`+ x <- blob(raw(2 2), raw(2 11), raw(2 ** 20))`
	`53`	`+`
	`54`	`+ expect_known_output(print(x), "blob.txt")`
	`55`	`+})`