Added test of issue vubiostat#105

spgarbet · Sep 13, 2021 · 1a90ba9 · 1a90ba9
1 parent 8bb78da
commit 1a90ba9
Showing 1 changed file with 9 additions and 2 deletions.
diff --git a/inst/tests/test_as_yaml.R b/inst/tests/test_as_yaml.R
@@ -444,5 +444,12 @@ test_custom_tag_for_unnamed_list <- function() {
 test_latin1_strings <- function() {
   data <- list(description = enc2native("á"))
   result <- as.yaml(data)
-  checkEquals(result, enc2utf8("description: á\n"))
-}
+  checkEquals(result, "description: á\n")
+}
+
+test_unknown_strings <- function() {
+  data <- list(x="\x9b")
+  result <- as.yaml(data)
+  checkEquals(result, "x: <9b>\n")
+}
+