23f24377b1
July 27, 2021: As per IEEE Std 1003.1-2008, -F "str" is now consistent with -v FS="str" when str is null. Thanks to Warner Losh. July 24, 2021: Fix readrec's definition of a record. This fixes an issue with NetBSD's RS regular expression support that can cause an infinite read loop. Thanks to Miguel Pineiro Jr. Fix regular expression RS ^-anchoring. RS ^-anchoring needs to know if it is reading the first record of a file. This change restores a missing line that was overlooked when porting NetBSD's RS regex functionality. Thanks to Miguel Pineiro Jr. Fix size computation in replace_repeat() for special case REPEAT_WITH_Q. Thanks to Todd C. Miller. Also, included the tests from upstream, though they aren't yet connected to the tree. Sponsored by: Netflix
87 lines
1.4 KiB
Plaintext
Executable File
87 lines
1.4 KiB
Plaintext
Executable File
echo T.nextfile: tests of nextfile command
|
|
|
|
awk=${awk-../a.out}
|
|
|
|
# 1st lines of some files
|
|
rm -f foo0
|
|
for i in T.*
|
|
do
|
|
sed 1q $i >>foo0
|
|
done
|
|
|
|
$awk '
|
|
{ print $0; nextfile } # print first line, quit
|
|
' T.* >foo1
|
|
|
|
diff foo0 foo1 || echo 'BAD: T.nextfile 1'
|
|
|
|
$awk ' # same test but in a for loop
|
|
{ print $0;
|
|
for (i = 1; i < 10; i++)
|
|
if (i == 1)
|
|
nextfile
|
|
print "nextfile for error"
|
|
} # print first line, quit
|
|
' T.* >foo1
|
|
|
|
diff foo0 foo1 || echo 'BAD: T.nextfile 1f'
|
|
|
|
$awk ' # same test but in a while loop
|
|
{ print $0;
|
|
i = 1
|
|
while (i < 10)
|
|
if (i++ == 1)
|
|
nextfile
|
|
print "nextfile while error"
|
|
} # print first line, quit
|
|
' T.* >foo1
|
|
|
|
diff foo0 foo1 || echo 'BAD: T.nextfile 1w'
|
|
|
|
$awk ' # same test but in a do loop
|
|
{ print $0;
|
|
i = 1
|
|
do {
|
|
if (i++ == 1)
|
|
nextfile # print first line, quit
|
|
} while (i < 10)
|
|
print "nextfile do error"
|
|
}
|
|
' T.* >foo1
|
|
|
|
diff foo0 foo1 || echo 'BAD: T.nextfile 1d'
|
|
|
|
|
|
# 100 lines of some files
|
|
rm -f foo0
|
|
for i in T.*
|
|
do
|
|
sed 100q $i >>foo0
|
|
done
|
|
|
|
$awk '
|
|
{ print }
|
|
FNR == 100 { nextfile } # print first line, quit
|
|
' T.* >foo1
|
|
|
|
diff foo0 foo1 || echo 'BAD: T.nextfile 2'
|
|
|
|
|
|
>foo0 # empty
|
|
$awk ' { nextfile; print $0 }' T.* >foo1
|
|
|
|
diff foo0 foo1 || echo 'BAD: T.nextfile 3'
|
|
|
|
# skip weird args
|
|
rm -f foo0
|
|
for i in T.*
|
|
do
|
|
sed 1q $i >>foo0
|
|
done
|
|
|
|
$awk '
|
|
{ print $0; nextfile } # print first line, quit
|
|
' T.* >foo1
|
|
|
|
diff foo0 foo1 || echo 'BAD: T.nextfile 4'
|