1 files changed, 39 insertions, 0 deletions
diff --git a/tests/015/esc.tl b/tests/015/esc.tl
new file mode 100644
index 00000000..cf3619c8
--- /dev/null
+++ b/tests/015/esc.tl
@@ -0,0 +1,39 @@
+(load "../common")
+
+(mtest
+  (str-esc "$*." "~" "") ""
+  (str-esc "$*." "~" "a") "a"
+  (str-esc "$*." "~" "~") "~"
+  (str-esc "$*." "~" "*") "~*"
+  (str-esc "$*." "~" ".") "~.")
+
+(mtest
+  (str-esc "$*." "~" "aa") "aa"
+  (str-esc "$*." "~" "a~") "a~"
+  (str-esc "$*." "~" "a$") "a~$"
+  (str-esc "$*." "~" "a*") "a~*"
+  (str-esc "$*." "~" "a.") "a~.")
+
+(mtest
+  (str-esc "$*." "~" "~a") "~a"
+  (str-esc "$*." "~" "$a") "~$a"
+  (str-esc "$*." "~" "*a") "~*a"
+  (str-esc "$*." "~" ".a") "~.a")
+
+(mtest
+  (str-esc "$*." "~" "a~b") "a~b"
+  (str-esc "$*." "~" "a$b") "a~$b"
+  (str-esc "$*." "~" "a*b") "a~*b"
+  (str-esc "$*." "~" "a.b") "a~.b")
+
+(mtest
+  (str-esc "$*." "~" "~a~") "~a~"
+  (str-esc "$*." "~" "$a$") "~$a~$"
+  (str-esc "$*." "~" "*a*") "~*a~*"
+  (str-esc "$*." "~" ".a.") "~.a~.")
+
+(test
+  (str-esc "$*." "~" "$*.a$*.b") "~$~*~.a~$~*~.b")
+
+(test
+  (str-esc "<>" "<" "(<<>>)") "(<<<<<><>)")