wip

XmacsLabs · Jun 20, 2024 · 34d26da · 34d26da
1 parent 25948b5
commit 34d26da
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/Data/String/cork.cpp b/Data/String/cork.cpp
@@ -61,7 +61,7 @@ string
 tm_decode (string s) {
   // TeXmacs encoding to verbatim
   string r;
-  int s_N= N(s);
+  int    s_N= N (s);
   for (int i= 0; i < s_N; i++) {
     if (s[i] == '<') {
       int j;

diff --git a/tests/Data/String/cork_test.cpp b/tests/Data/String/cork_test.cpp
@@ -28,6 +28,13 @@ TEST_CASE ("tm_var_encode") {
   string_eq (tm_encode (""), "");
 }
 
+TEST_CASE ("tm_decode") {
+  string_eq (tm_decode ("<less><gtr>"), "<>");
+  string_eq (tm_decode ("<#ABCD>"), "<#ABCD>");
+  string_eq (tm_decode ("abc"), "abc");
+  string_eq (tm_decode (""), "");
+}
+
 TEST_CASE ("tm_length") {
   string_eq (tm_string_length (""), 0);
   string_eq (tm_string_length ("<#ABCD>"), 1);