verify it can correctly convert XML for tags containing hyphens

robertzk · Feb 20, 2015 · 2779cdb · 2779cdb
1 parent 3bfd460
commit 2779cdb
Showing 1 changed file with 22 additions and 0 deletions.
diff --git a/tests/testthat/test-nonstandard_tags.R b/tests/testthat/test-nonstandard_tags.R
@@ -0,0 +1,22 @@
+context('nonstandard tags')
+
+test_that('it can correctly convert XML for tags containing hyphens', {
+  xml <- rokogiri({
+    "what-if-we-need"({
+      "xml-tags"()
+      "like-this"(2)
+    })
+  })
+
+  expected_xml <- "
+    <what-if-we-need>
+      <xml-tags />
+      <like-this>
+        2
+      </like-this>
+    </what-if-we-need>
+  "
+
+  remove_spacing <- function(x) { gsub("[ \n]", "", x) }
+  expect_equal(remove_spacing(xml), remove_spacing(expected_xml))
+})