blob: cf3619c81e56ecb22dbf668c1825ebbfc7634ad7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
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 "<>" "<" "(<<>>)") "(<<<<<><>)")
|
