Test snapshots in describe/it

tests/testthat/_snaps/describe.md

@@ -1,3 +1,17 @@
+# snapshot tests in describe
+
+    Code
+      1 + 1
+    Output
+      [1] 2
+
+# snapshot tests in describe / and in it
+
+    Code
+      1 + 1
+    Output
+      [1] 2
+
 # has to have a valid description for the block
 
     Code

tests/testthat/test-describe.R

@@ -13,6 +13,17 @@ describe("describe", {
   })
 })
 
+test_that("can write snaphot tests", {
+  local_description_set()
+
+  describe("snapshot tests in describe", {
+    expect_snapshot(1 + 1)
+    it("and in it", {
+      expect_snapshot(1 + 1)
+    })
+  })
+})
+
 test_that("unimplemented specs generate skips", {
   expectations <- capture_expectations({
     it("can have not yet implemented specs", {