Revert change

tests/testthat/_snaps/xml_write.md

@@ -1,12 +1,5 @@
 # write_xml errors for incorrect directory and with invalid inputs
 
-    Code
-      x <- read_xml("<x/>")
-      filename <- "does_not_exist/test.xml"
-      write_xml(x, filename)
-    Condition
-      Error in `path_to_connection()`:
-      ! 'does_not_exist' does not exist in current working directory ('C:/Users/RoyO/Documents/rrr-forks/xml2/tests/testthat').
     Code
       write_xml(x, c("test.xml", "foo"))
     Condition
@@ -15,12 +8,6 @@
 
 # write_xml works with nodeset input and connections
 
-    Code
-      filename <- "../test.xml.gz"
-      write_xml(y, filename, options = "no_declaration")
-    Condition
-      Error in `write_xml()`:
-      ! Can only save length 1 node sets
     Code
       write_xml(y[1], c(filename, "foo"))
     Condition

tests/testthat/test-xml_write.R

@@ -1,8 +1,9 @@
 test_that("write_xml errors for incorrect directory and with invalid inputs", {
+  x <- read_xml("<x/>")
+  filename <- "does_not_exist/test.xml"
+  expect_error(write_xml(x, filename), "'does_not_exist' does not exist in current working directory")
+
   expect_snapshot(error = TRUE, {
-    x <- read_xml("<x/>")
-    filename <- "does_not_exist/test.xml"
-    write_xml(x, filename)
     write_xml(x, c("test.xml", "foo"))
   })
 })
@@ -68,11 +69,13 @@ test_that("write_xml works with nodeset input and connections", {
   x <- read_xml("<x><y/><y/></x>")
   y <- xml_find_all(x, "//y")
 
-
+  filename <- "../test.xml.gz"
+  expect_error(
+    write_xml(y, filename, options = "no_declaration"),
+    "Can only save length 1 node sets"
+  )
 
   expect_snapshot(error = TRUE, {
-    filename <- "../test.xml.gz"
-    write_xml(y, filename, options = "no_declaration")
     write_xml(y[1], c(filename, "foo"))
   })