summaryrefslogtreecommitdiffstats
path: root/tests/018/sh-esc.tl
blob: f508475e4800240901e4597843ef6775f2fcf256 (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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
(load "../common")

(mtest
  (sh-esc "") ""
  (sh-esc "a") "a")

(mtest
  (sh-esc "|") "\"|\""
  (sh-esc "&") "\"&\""
  (sh-esc ";") "\";\""
  (sh-esc "<") "\"<\""
  (sh-esc ">") "\">\""
  (sh-esc "(") "\"(\""
  (sh-esc ")") "\")\""
  (sh-esc " ") "\" \""
  (sh-esc "\t") "\"\t\""
  (sh-esc "\n") "\"\n\""
  (sh-esc "*") "\"*\""
  (sh-esc "?") "\"?\""
  (sh-esc "[") "\"[\""
  (sh-esc "#") "\"#\""
  (sh-esc "~") "\"~\"")

(mtest
  (sh-esc "'") "\"'\"")

(mtest
  (sh-esc "\"") "'\"'"
  (sh-esc "$") "'$'"
  (sh-esc "`") "'`'"
  (sh-esc "\\") "'\\'")

(mtest
  (sh-esc "=") "="
  (sh-esc "%") "%"
  (sh-esc-all "=") "\"=\""
  (sh-esc-all "%") "\"%\"")

(test
  (sh-esc "a\"b'c") "'a\"b'\\''c'")

(mtest
  (sh-esc "|'") "\"|'\""
  (sh-esc "|\"") "'|\"'"
  (sh-esc "'$") "''\\''$'")

(mtest
  (sh-esc-all "|=") "\"|=\""
  (sh-esc-all "'=") "\"'=\""
  (sh-esc-all "\"=") "'\"='")

(mtest
  (sh-esc "|&;<>() \t\n*?[#~") "\"|&;<>() \t\n*?[#~\""
  (sh-esc "\"$`\\") "'\"$`\\'")

(mtest
  (sh-esc-dq "$`\\\"\n'abc()*~") "\\$\\`\\\\\\\"\n'abc()*~"
  (sh-esc-sq "$`\\\"\n'abc()*~") "$`\\\"\n'\\''abc()*~")