We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
...
1 parent 2f3da48 commit a1bea33Copy full SHA for a1bea33
tests/testthat/test-write_xml.R
@@ -2,8 +2,8 @@ context("write_xml")
2
3
test_that("write_xml errors for incorrect directory and with invalid inputs", {
4
x <- read_xml("<x/>")
5
- filename <- ".../test.xml"
6
- expect_error(write_xml(x, filename), "'...' does not exist in current working directory")
+ filename <- "does_not_exist/test.xml"
+ expect_error(write_xml(x, filename), "'does_not_exist' does not exist in current working directory")
7
8
9
expect_error(write_xml(x, c("test.xml", "foo")), "`file` must be a non-zero character of length 1")
0 commit comments