about summary refs log tree commit diff
path: root/Test/D08cmdsubst.ztst
blob: 4e0759e35720540acfb11123673840dc3482a59e (plain) (blame)
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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
# Tests for command substitution.

%prep
  mkdir cmdsubst.tmp
  touch cmdsubst.tmp/file{1,2}.txt

%test
  foo="two words"
  print -l `echo $foo bar`
0:Basic `...` substitution
>two
>words
>bar

  foo="two words"
  print -l $(echo $foo bar)
0:Basic $(...) substitution
>two
>words
>bar

  foo='intricate buffoonery'
  print -l "`echo $foo and licentiousness`"
0:Quoted `...` substitution
>intricate buffoonery and licentiousness

  foo="more words"
  print -l "$(echo $foo here)"
0:Quoted $(...) substitution
>more words here

# we used never to get this one right, but I think it is now...
  print -r "`print -r \\\\\\\\`"
0:Stripping of backslasshes in quoted `...`
>\\

  print -r "$(print -r \\\\\\\\)"
0:Stripping of backslashes in quoted $(...)
>\\\\

  fnify() { print \"$*\"; }
  print `fnify \`fnify understatement\``
0:Nested `...`
>""understatement""

  print $(fnify $(fnify overboard))
0:Nested $(...)
>""overboard""

  fructify() { print \'$*\'; }
  print "`fructify \`fructify indolence\``"
0:Nested quoted `...`
>''indolence''

  print "$(fructify $(fructify obtuseness))"
0:Nested quoted $(...)
>''obtuseness''

  gesticulate() { print \!$*\!; }
  print $((gesticulate wildly); gesticulate calmly)
0:$(( ... ) ... ) is not arithmetic
>!wildly! !calmly!

  commencify() { print +$*+; }
  print "$((commencify output); commencify input)"
0:quoted $(( ... ) .. ) is not arithmetic
>+output+
>+input+

  (
  cd cmdsubst.tmp
  print first: ${$(print \*)}
  print second: ${~$(print \*)}
  print third: ${$(print *)}
  print fourth: "${~$(print \*)}"
  print fifth: ${~"$(print \*)"}
  )
0:mixing $(...) with parameter substitution and globbing
>first: *
>second: file1.txt file2.txt
>third: file1.txt file2.txt
>fourth: *
>fifth: file1.txt file2.txt

  $(exit 0) $(exit 3) || print $?
0:empty command uses exit value of last substitution
>3

  X=$(exit 2) $(exit 0) || print $?
0:variable assignments processed after other substitutions
>2

 false
 ``
0:Empty command substitution resets status

 false
 echo `echo $?`
0:Non-empty command substitution inherits status
>1

 echo $(( ##\" ))
 echo $(echo \")
 echo $((echo \"); echo OK)
0:Handling of backslash double quote in parenthesised substitutions
>34
>"
>" OK

 echo $(case foo in
 foo)
 echo This test worked.
 ;;
 bar)
 echo This test failed in a rather bizarre way.
 ;;
 *)
 echo This test failed.
 ;;
 esac)
0:Parsing of command substitution with unmatched parentheses: case, basic
>This test worked.

 echo "$(case bar in
 foo)
 echo This test spoobed.
 ;;
 bar)
 echo This test plurbled.
 ;;
 *)
 echo This test bzonked.
 ;;
 esac)"
0:Parsing of command substitution with unmatched parentheses: case with quotes
>This test plurbled.

 echo before $(
 echo start; echo unpretentious |
 while read line; do
   case $line in
   u*)
   print Word began with u
   print and ended with a crunch
   ;;
   esac
 done | sed -e 's/Word/Universe/'; echo end
 ) after
0:Parsing of command substitution with ummatched parentheses: with frills
>before start Universe began with u and ended with a crunch end after

  alias foo='echo $('
  eval 'foo echo this just works, OK\?)'
0:backtracking within command string parsing with alias still pending
>this just works, OK?

  (
    set errexit
    show_nargs() { print $#; }
    print a $() b
    print c "$()" d
  )
0:Empty $() is a valid empty substitution.
>a b
>c  d

  empty=$() && print "'$empty'"
0:Empty $() is a valid assignment
>''

  (
    setopt ignoreclosebraces
    alias OPEN='{' CLOSE='};'
    eval '{ OPEN print hi; CLOSE }
    var=$({ OPEN print bye; CLOSE}) && print $var'
  )
0:Alias expansion needed in parsing substituions
>hi
>bye