Add test for #376

r-lib · Dec 15, 2022 · 9f0d412 · 9f0d412
1 parent ab20789
commit 9f0d412
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/tests/testthat/test-read-xml.R b/tests/testthat/test-read-xml.R
@@ -106,3 +106,14 @@ test_that("read_xml and read_html fail with > 1 input", {
   expect_error(read_xml(c("foo", "bar")), "`x` must be a string of length 1")
   expect_error(read_html(c("foo", "bar")), "`x` must be a string of length 1")
 })
+
+test_that("read_xml with an invalid file allows deletion of the file (#376)", {
+  tmp <- tempfile(fileext = ".xml")
+  on.exit(unlink(tmp))
+  writeLines("<a>", con = tmp)
+
+  expect_error(
+    read_xml(tmp)
+  )
+  expect_true(file.remove(tmp))
+})