1 | #!/bin/sh -
|
---|
2 | # $NetBSD: sed.test,v 1.3 1997/01/09 20:21:37 tls Exp $
|
---|
3 | #
|
---|
4 | # Copyright (c) 1992 Diomidis Spinellis.
|
---|
5 | # Copyright (c) 1992, 1993
|
---|
6 | # The Regents of the University of California. All rights reserved.
|
---|
7 | #
|
---|
8 | # Redistribution and use in source and binary forms, with or without
|
---|
9 | # modification, are permitted provided that the following conditions
|
---|
10 | # are met:
|
---|
11 | # 1. Redistributions of source code must retain the above copyright
|
---|
12 | # notice, this list of conditions and the following disclaimer.
|
---|
13 | # 2. Redistributions in binary form must reproduce the above copyright
|
---|
14 | # notice, this list of conditions and the following disclaimer in the
|
---|
15 | # documentation and/or other materials provided with the distribution.
|
---|
16 | # 3. All advertising materials mentioning features or use of this software
|
---|
17 | # must display the following acknowledgement:
|
---|
18 | # This product includes software developed by the University of
|
---|
19 | # California, Berkeley and its contributors.
|
---|
20 | # 4. Neither the name of the University nor the names of its contributors
|
---|
21 | # may be used to endorse or promote products derived from this software
|
---|
22 | # without specific prior written permission.
|
---|
23 | #
|
---|
24 | # THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
|
---|
25 | # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
---|
26 | # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
---|
27 | # ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
|
---|
28 | # FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
---|
29 | # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
|
---|
30 | # OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
|
---|
31 | # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
|
---|
32 | # LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
|
---|
33 | # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
---|
34 | # SUCH DAMAGE.
|
---|
35 | #
|
---|
36 | # from: @(#)sed.test 8.1 (Berkeley) 6/6/93
|
---|
37 | # $NetBSD: sed.test,v 1.3 1997/01/09 20:21:37 tls Exp $
|
---|
38 | #
|
---|
39 |
|
---|
40 | # sed Regression Tests
|
---|
41 |
|
---|
42 | # Modified by Paolo Bonzini to:
|
---|
43 | # - not warn about buggy seds
|
---|
44 | # - run tests once instead of comparing them to the system sed
|
---|
45 | # - remove most uses of awk
|
---|
46 | # - cleanup at exit
|
---|
47 | # - comment tests that broke because of extensions
|
---|
48 |
|
---|
49 | main()
|
---|
50 | {
|
---|
51 | TEST="${1-../sed/sed}"
|
---|
52 | TESTLOG="${2-sed.out}"
|
---|
53 | # DICT="${3-/usr/share/dict/words}"
|
---|
54 |
|
---|
55 | : > lines1
|
---|
56 | : > lines2
|
---|
57 | for i in 1 2 3 4 5 6 7 8 9; do
|
---|
58 | echo l1_$i >> lines1
|
---|
59 | echo l2_$i >> lines2
|
---|
60 | done
|
---|
61 | for i in 10 11 12 13 14; do
|
---|
62 | echo l1_$i >> lines1
|
---|
63 | done
|
---|
64 |
|
---|
65 | # Set these flags to get messages about known problems
|
---|
66 | tests "$TEST" "$TESTLOG"
|
---|
67 |
|
---|
68 | rm -f lines[1234] script[12]
|
---|
69 | }
|
---|
70 |
|
---|
71 | tests()
|
---|
72 | {
|
---|
73 | SED="$1"
|
---|
74 | LOG="$2"
|
---|
75 | MARK=100
|
---|
76 | rm -f "$LOG"
|
---|
77 |
|
---|
78 | exec 3>&0 4>&1 5>&2
|
---|
79 | exec 0</dev/null 1>/dev/null 2>/dev/null
|
---|
80 | test_error
|
---|
81 | exec 0>&3 1>&4 2>&5
|
---|
82 |
|
---|
83 | exec 4>&1 5>&2
|
---|
84 | test_args
|
---|
85 | test_addr
|
---|
86 | test_group
|
---|
87 | test_acid
|
---|
88 | test_branch
|
---|
89 | test_pattern
|
---|
90 | test_print
|
---|
91 | test_subst
|
---|
92 | exec 1>&4 2>&5
|
---|
93 | }
|
---|
94 |
|
---|
95 | mark()
|
---|
96 | {
|
---|
97 | exec 2>&1 >>$LOG
|
---|
98 | test $MARK = 100 || echo
|
---|
99 | MARK=`expr $MARK + 1`
|
---|
100 | echo "Test $1:$MARK" | sed 's/./=/g'
|
---|
101 | echo "Test $1:$MARK"
|
---|
102 | echo "Test $1:$MARK" | sed 's/./=/g'
|
---|
103 | }
|
---|
104 |
|
---|
105 | test_args()
|
---|
106 | {
|
---|
107 | mark '1.1'
|
---|
108 | echo Testing argument parsing
|
---|
109 | echo First type
|
---|
110 | $SED 's/^/e1_/p' lines1
|
---|
111 | mark '1.2' ; $SED -n 's/^/e1_/p' lines1
|
---|
112 | mark '1.3' ; $SED 's/^/e1_/p' <lines1
|
---|
113 | mark '1.4' ; $SED -n 's/^/e1_/p' <lines1
|
---|
114 | echo Second type
|
---|
115 | mark '1.4.1'
|
---|
116 | $SED -e '' <lines1
|
---|
117 | echo 's/^/s1_/p' >script1
|
---|
118 | echo 's/^/s2_/p' >script2
|
---|
119 | mark '1.5' ; $SED -f script1 lines1
|
---|
120 | mark '1.6' ; $SED -f script1 <lines1
|
---|
121 | mark '1.7' ; $SED -e 's/^/e1_/p' lines1
|
---|
122 | mark '1.8' ; $SED -e 's/^/e1_/p' <lines1
|
---|
123 | mark '1.9' ; $SED -n -f script1 lines1
|
---|
124 | mark '1.10' ; $SED -n -f script1 <lines1
|
---|
125 | mark '1.11' ; $SED -n -e 's/^/e1_/p' lines1
|
---|
126 | mark '1.12' ; $SED -n -e 's/^/e1_/p' <lines1
|
---|
127 | mark '1.13' ; $SED -e 's/^/e1_/p' -e 's/^/e2_/p' lines1
|
---|
128 | mark '1.14' ; $SED -f script1 -f script2 lines1
|
---|
129 | mark '1.15' ; $SED -e 's/^/e1_/p' -f script1 lines1
|
---|
130 | mark '1.16' ; $SED -e 's/^/e1_/p' lines1 lines1
|
---|
131 | # POSIX D11.2:11251
|
---|
132 | mark '1.17' ; $SED p <lines1 lines1
|
---|
133 | cat >script1 <<EOF
|
---|
134 | #n
|
---|
135 | # A comment
|
---|
136 |
|
---|
137 | p
|
---|
138 | EOF
|
---|
139 | mark '1.18' ; $SED -f script1 <lines1 lines1
|
---|
140 | }
|
---|
141 |
|
---|
142 | test_addr()
|
---|
143 | {
|
---|
144 | echo Testing address ranges
|
---|
145 | mark '2.1' ; $SED -n -e '4p' lines1
|
---|
146 | mark '2.2' ; $SED -n -e '20p' lines1 lines2
|
---|
147 | mark '2.3' ; $SED -n -e '$p' lines1
|
---|
148 | mark '2.4' ; $SED -n -e '$p' lines1 lines2
|
---|
149 | mark '2.5' ; $SED -n -e '$a\
|
---|
150 | hello' /dev/null
|
---|
151 | mark '2.6' ; $SED -n -e '$p' lines1 /dev/null lines2
|
---|
152 | # Should not print anything
|
---|
153 | mark '2.7' ; $SED -n -e '20p' lines1
|
---|
154 | # Disabled because it is undefined behavior
|
---|
155 | # mark '2.8' ; $SED -n -e '0p' lines1
|
---|
156 | mark '2.9' ; $SED -n '/l1_7/p' lines1
|
---|
157 | mark '2.10' ; $SED -n ' /l1_7/ p' lines1
|
---|
158 | mark '2.11' ; $SED -n '\_l1\_7_p' lines1
|
---|
159 | mark '2.12' ; $SED -n '1,4p' lines1
|
---|
160 | mark '2.13' ; $SED -n '1,$p' lines1 lines2
|
---|
161 | mark '2.14' ; $SED -n '1,/l2_9/p' lines1 lines2
|
---|
162 | mark '2.15' ; $SED -n '/4/,$p' lines1 lines2
|
---|
163 | mark '2.16' ; $SED -n '/4/,20p' lines1 lines2
|
---|
164 | mark '2.17' ; $SED -n '/4/,/10/p' lines1 lines2
|
---|
165 | mark '2.18' ; $SED -n '/l2_3/,/l1_8/p' lines1 lines2
|
---|
166 | mark '2.19' ; $SED -n '12,3p' lines1 lines2
|
---|
167 | mark '2.20' ; $SED -n '/l1_7/,3p' lines1 lines2
|
---|
168 | }
|
---|
169 |
|
---|
170 | test_group()
|
---|
171 | {
|
---|
172 | echo Brace and other grouping
|
---|
173 | mark '3.1' ; $SED -e '
|
---|
174 | 4,12 {
|
---|
175 | s/^/^/
|
---|
176 | s/$/$/
|
---|
177 | s/_/T/
|
---|
178 | }' lines1
|
---|
179 | mark '3.2' ; $SED -e '
|
---|
180 | 4,12 {
|
---|
181 | s/^/^/
|
---|
182 | /6/,/10/ {
|
---|
183 | s/$/$/
|
---|
184 | /8/ s/_/T/
|
---|
185 | }
|
---|
186 | }' lines1
|
---|
187 | mark '3.3' ; $SED -e '
|
---|
188 | 4,12 !{
|
---|
189 | s/^/^/
|
---|
190 | /6/,/10/ !{
|
---|
191 | s/$/$/
|
---|
192 | /8/ !s/_/T/
|
---|
193 | }
|
---|
194 | }' lines1
|
---|
195 | mark '3.4' ; $SED -e '4,12!s/^/^/' lines1
|
---|
196 | }
|
---|
197 |
|
---|
198 | test_acid()
|
---|
199 | {
|
---|
200 | echo Testing a c d and i commands
|
---|
201 | mark '4.1' ; $SED -n -e '
|
---|
202 | s/^/before_i/p
|
---|
203 | 20i\
|
---|
204 | inserted
|
---|
205 | s/^/after_i/p
|
---|
206 | ' lines1 lines2
|
---|
207 | mark '4.2' ; $SED -n -e '
|
---|
208 | 5,12s/^/5-12/
|
---|
209 | s/^/before_a/p
|
---|
210 | /5-12/a\
|
---|
211 | appended
|
---|
212 | s/^/after_a/p
|
---|
213 | ' lines1 lines2
|
---|
214 | mark '4.3' ; $SED -n -e '
|
---|
215 | s/^/^/p
|
---|
216 | /l1_/a\
|
---|
217 | appended
|
---|
218 | 8,10N
|
---|
219 | s/$/$/p
|
---|
220 | ' lines1 lines2
|
---|
221 | mark '4.4' ; $SED -n -e '
|
---|
222 | c\
|
---|
223 | hello
|
---|
224 | ' lines1
|
---|
225 | mark '4.5' ; $SED -n -e '
|
---|
226 | 8c\
|
---|
227 | hello
|
---|
228 | ' lines1
|
---|
229 | mark '4.6' ; $SED -n -e '
|
---|
230 | 3,14c\
|
---|
231 | hello
|
---|
232 | ' lines1
|
---|
233 | mark '4.7' ; $SED -n -e '
|
---|
234 | 8,3c\
|
---|
235 | hello
|
---|
236 | ' lines1
|
---|
237 | mark '4.8' ; $SED d <lines1
|
---|
238 | }
|
---|
239 |
|
---|
240 | test_branch()
|
---|
241 | {
|
---|
242 | echo Testing labels and branching
|
---|
243 | mark '5.1' ; $SED -n -e '
|
---|
244 | b label4
|
---|
245 | :label3
|
---|
246 | s/^/label3_/p
|
---|
247 | b end
|
---|
248 | :label4
|
---|
249 | 2,12b label1
|
---|
250 | b label2
|
---|
251 | :label1
|
---|
252 | s/^/label1_/p
|
---|
253 | b
|
---|
254 | :label2
|
---|
255 | s/^/label2_/p
|
---|
256 | b label3
|
---|
257 | :end
|
---|
258 | ' lines1
|
---|
259 | mark '5.2' ; $SED -n -e '
|
---|
260 | s/l1_/l2_/
|
---|
261 | t ok
|
---|
262 | b
|
---|
263 | :ok
|
---|
264 | s/^/tested /p
|
---|
265 | ' lines1 lines2
|
---|
266 | mark '5.3' ; $SED -n -e '
|
---|
267 | 5,8b inside
|
---|
268 | 1,5 {
|
---|
269 | s/^/^/p
|
---|
270 | :inside
|
---|
271 | s/$/$/p
|
---|
272 | }
|
---|
273 | ' lines1
|
---|
274 | # Check that t clears the substitution done flag
|
---|
275 | mark '5.4' ; $SED -n -e '
|
---|
276 | 1,8s/^/^/
|
---|
277 | t l1
|
---|
278 | :l1
|
---|
279 | t l2
|
---|
280 | s/$/$/p
|
---|
281 | b
|
---|
282 | :l2
|
---|
283 | s/^/ERROR/
|
---|
284 | ' lines1
|
---|
285 | # Check that reading a line clears the substitution done flag
|
---|
286 | mark '5.5' ; $SED -n -e '
|
---|
287 | t l2
|
---|
288 | 1,8s/^/^/p
|
---|
289 | 2,7N
|
---|
290 | b
|
---|
291 | :l2
|
---|
292 | s/^/ERROR/p
|
---|
293 | ' lines1
|
---|
294 | mark '5.6' ; $SED 5q lines1
|
---|
295 | mark '5.7' ; $SED -e '
|
---|
296 | 5i\
|
---|
297 | hello
|
---|
298 | 5q' lines1
|
---|
299 | # Branch across block boundary
|
---|
300 | mark '5.8' ; $SED -e '
|
---|
301 | {
|
---|
302 | :b
|
---|
303 | }
|
---|
304 | s/l/m/
|
---|
305 | tb' lines1
|
---|
306 | }
|
---|
307 |
|
---|
308 | test_pattern()
|
---|
309 | {
|
---|
310 | echo Pattern space commands
|
---|
311 | # Check that the pattern space is deleted
|
---|
312 | mark '6.1' ; $SED -n -e '
|
---|
313 | c\
|
---|
314 | changed
|
---|
315 | p
|
---|
316 | ' lines1
|
---|
317 | mark '6.2' ; $SED -n -e '
|
---|
318 | 4d
|
---|
319 | p
|
---|
320 | ' lines1
|
---|
321 | mark '6.3' ; $SED -e '
|
---|
322 | N
|
---|
323 | N
|
---|
324 | N
|
---|
325 | D
|
---|
326 | P
|
---|
327 | 4p
|
---|
328 | ' lines1
|
---|
329 | mark '6.4' ; $SED -e '
|
---|
330 | 2h
|
---|
331 | 3H
|
---|
332 | 4g
|
---|
333 | 5G
|
---|
334 | 6x
|
---|
335 | 6p
|
---|
336 | 6x
|
---|
337 | 6p
|
---|
338 | ' lines1
|
---|
339 | mark '6.5' ; $SED -e '4n' lines1
|
---|
340 | mark '6.6' ; $SED -n -e '4n' lines1
|
---|
341 | }
|
---|
342 |
|
---|
343 | test_print()
|
---|
344 | {
|
---|
345 | echo Testing print and file routines
|
---|
346 | awk 'END {for (i = 1; i < 256; i++) printf("%c", i);print "\n"}' \
|
---|
347 | </dev/null >lines3
|
---|
348 | mark '7.1' ; $SED -n l lines3
|
---|
349 | mark '7.2' ; $SED -e '/l2_/=' lines1 lines2
|
---|
350 | rm -f lines4
|
---|
351 | mark '7.3' ; $SED -e '3,12w lines4' lines1
|
---|
352 | echo w results
|
---|
353 | cat lines4
|
---|
354 | mark '7.4' ; $SED -e '4r lines2' lines1
|
---|
355 | mark '7.5' ; $SED -e '5r /dev/dds' lines1
|
---|
356 | mark '7.6' ; $SED -e '6r /dev/null' lines1
|
---|
357 | # mark '7.7'
|
---|
358 | # sed '200q' $DICT | sed 's$.*$s/^/&/w tmpdir/&$' >script1
|
---|
359 | # rm -rf tmpdir
|
---|
360 | # mkdir tmpdir
|
---|
361 | # $SED -f script1 lines1
|
---|
362 | # cat tmpdir/*
|
---|
363 | # rm -rf tmpdir
|
---|
364 | mark '7.8'
|
---|
365 | echo line1 > lines3
|
---|
366 | echo "" >> lines3
|
---|
367 | $SED -n -e '$p' lines3 /dev/null
|
---|
368 | }
|
---|
369 |
|
---|
370 | test_subst()
|
---|
371 | {
|
---|
372 | echo Testing substitution commands
|
---|
373 | mark '8.1' ; $SED -e 's/./X/g' lines1
|
---|
374 | mark '8.2' ; $SED -e 's,.,X,g' lines1
|
---|
375 | mark '8.3' ; $SED -e 's.\..X.g' lines1
|
---|
376 | # POSIX does not say that this should work
|
---|
377 | # mark '8.4' ; $SED -e 's/[/]/Q/' lines1
|
---|
378 | mark '8.4' ; $SED -e 's/[\/]/Q/' lines1
|
---|
379 | mark '8.5' ; $SED -e 's_\__X_' lines1
|
---|
380 | mark '8.6' ; $SED -e 's/./(&)/g' lines1
|
---|
381 | mark '8.7' ; $SED -e 's/./(\&)/g' lines1
|
---|
382 | mark '8.8' ; $SED -e 's/\(.\)\(.\)\(.\)/x\3x\2x\1/g' lines1
|
---|
383 | mark '8.9' ; $SED -e 's/_/u0\
|
---|
384 | u1\
|
---|
385 | u2/g' lines1
|
---|
386 | mark '8.10' ; $SED -e 's/./X/4' lines1
|
---|
387 | rm -f lines4
|
---|
388 | mark '8.11' ; $SED -e 's/1/X/w lines4' lines1
|
---|
389 | echo s wfile results
|
---|
390 | cat lines4
|
---|
391 | mark '8.12' ; $SED -e 's/[123]/X/g' lines1
|
---|
392 | mark '8.13' ; $SED -e 'y/0123456789/9876543210/' lines1
|
---|
393 | mark '8.14' ; $SED -e 'y10\123456789198765432\101' lines1
|
---|
394 | mark '8.15' ; $SED -e '1N;2y/\n/X/' lines1
|
---|
395 | mark '8.16'
|
---|
396 | echo 'eeefff' | $SED -e 'p' -e 's/e/X/p' -e ':x' \
|
---|
397 | -e 's//Y/p' -e '/f/bx'
|
---|
398 | }
|
---|
399 |
|
---|
400 | test_error()
|
---|
401 | {
|
---|
402 | $SED -x && exit 1
|
---|
403 | $SED -f && exit 1
|
---|
404 | $SED -e && exit 1
|
---|
405 | $SED -f /dev/dds && exit 1
|
---|
406 | $SED p /dev/dds && exit 1
|
---|
407 | $SED -f /bin/sh && exit 1
|
---|
408 | $SED '{' && exit 1
|
---|
409 | $SED '{' && exit 1
|
---|
410 | $SED '/hello/' && exit 1
|
---|
411 | $SED '1,/hello/' && exit 1
|
---|
412 | $SED -e '-5p' && exit 1
|
---|
413 | $SED '/jj' && exit 1
|
---|
414 | # $SED 'a hello' && exit 1
|
---|
415 | # $SED 'a \ hello' && exit 1
|
---|
416 | $SED 'b foo' && exit 1
|
---|
417 | $SED 'd hello' && exit 1
|
---|
418 | $SED 's/aa' && exit 1
|
---|
419 | $SED 's/aa/' && exit 1
|
---|
420 | $SED 's/a/b' && exit 1
|
---|
421 | $SED 's/a/b/c/d' && exit 1
|
---|
422 | $SED 's/a/b/ 1 2' && exit 1
|
---|
423 | # $SED 's/a/b/ 1 g' && exit 1
|
---|
424 | $SED 's/a/b/w' && exit 1
|
---|
425 | $SED 'y/aa' && exit 1
|
---|
426 | $SED 'y/aa/b/' && exit 1
|
---|
427 | $SED 'y/aa/' && exit 1
|
---|
428 | $SED 'y/a/b' && exit 1
|
---|
429 | $SED 'y/a/b/c/d' && exit 1
|
---|
430 | $SED '!' && exit 1
|
---|
431 | $SED supercalifrangolisticexprialidociussupercalifrangolisticexcius
|
---|
432 | }
|
---|
433 |
|
---|
434 | main ${1+"$@"}
|
---|