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
|
#!/bin/sh
# Test execution less-common cases
# Copyright (C) 2016-2022 Free Software Foundation, Inc.
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <https://www.gnu.org/licenses/>.
. "${srcdir=.}/testsuite/init.sh"; path_prepend_ ./sed
print_ver_ sed
#
# 'D' when pattern-space has no newline (act like 'd')
#
echo a | sed 1D > out1 || fail=1
compare_ /dev/null out1 || fail=1
#
# s///e with a command that returns zero output
#
printf "\n" > exp2 || framework_failure_
echo "" | sed '1etrue' > out2 || fail=1
compare_ exp2 out2 || fail=1
#
# plain 'e' with a command that returns non-delimted output
#
printf "a\n" > exp3 || framework_failure_
echo "printf a" | sed '1e' > out3 || fail=1
compare_ exp3 out3 || fail=1
#
# plain 'e' with a command that returns delimted '\n' output
# (implementation note: the delimiter is first chomp'd)
printf "a\n" > exp4 || framework_failure_
echo "echo a" | sed '1e' > out4 || fail=1
compare_ exp4 out4 || fail=1
#
# e with a command that returns delimted '\0' output
#
printf "b\0" > exp5 || framework_failure_
# This input file contains the shell command to be excuted:
printf 'cat exp5' > in5 || framework_failure_
sed -z '1e' <in5 > out5 || fail=1
compare_ exp5 out5 || fail=1
if test "$fail" -eq 1 ; then
od -tx1c exp5
od -tx1c out5
fi
#
# 'P' command, with and without '\n' in the pattern space
#
echo a > in6 || framework_failure_
printf "%s\n" a b | sed -n 'N;P' > out6 || fail=1
compare_ in6 out6 || fail=1
printf "%s\n" a | sed -n 'P' > out7 || fail=1
compare_ in6 out7 || fail=1
#
# 'Q' with exit code
#
echo a > in7 || framework_failure_
returns_ 42 sed '1Q42' in7 || fail=1
#
# 'r' without a filename (silently ignored)
#
echo c > in8 || framework_failure_
sed 'rfoo.bar' in8 > out8 || fail=1
compare_ in8 out8 || fail=1
#
# 'W' without a filename (silently ignored)
#
echo d > in9 || framework_failure_
sed 'Wfoo1' in9 > out9 || fail=1
compare_ in9 out9 || fail=1
#
# 'W', with and without '\n' in pattern space
#
# pattern-space with '\n', only 'a' should be written
printf "%s\n" a b > in10 || framework_failure_
echo a > a || framework_failure_
sed 'N;Ww1.txt' in10 > out10 || fail=1
compare_ a w1.txt || fail=1
compare_ in10 out10 || fail=1
# pattern-space without '\n', entire pattern-space ('a') should be written
sed 'Ww2.txt' a > out11 || fail=1
compare_ a out11 || fail=1
compare_ a w2.txt || fail=1
#
# 'T' command
#
# Unsuccessful substitute, 'T' jumps to 'skip'.
echo a | sed -n 's/X/Y/ ; Tskip ; Q42 ; :skip' || fail=1
# Successful substitute, 'T' does not jumps to 'skip', sed exits with code 42.
echo a | returns_ 42 sed -n 's/a/Y/ ; Tskip ; Q42 ; :skip' || fail=1
#
# 'F' command
#
echo a > in12 || framework_failure_
printf "%s\n" in12 a > exp12 || framework_failure_
sed F in12 > out12 || fail=1
compare_ exp12 out12 || fail=1
# 'F' with multiple files
echo b > in13 || framework_failure_
echo c > in14 || framework_failure_
printf "%s\n" in12 a in13 b in14 c > exp14 || framework_failure_
sed F in12 in13 in14 > out14 || fail=1
compare_ exp14 out14 || fail=1
# 'F' with stdin
printf "%s\n" - a > exp15 || framework_failure_
sed F < in12 > out15 || fail=1
compare_ exp15 out15 || fail=1
Exit $fail
|
