PublicArchive/gnu-coreutils
2
0
Fork 0
mirror of git://git.sv.gnu.org/coreutils synced 2026-05-06 07:06:38 -04:00
Code Issues Packages Projects Releases Wiki Activity

tests: factor,numfmt: verify embedded NUL handling

Browse Source 
* tests/factor/factor.pl: Verify that embedded NULs
on stdin terminate the _number_.
* tests/numfmt/numfmt.p: Verify that embedded NULs
on stdin terminate the _line_.
https://github.com/coreutils/coreutils/pull/196
This commit is contained in:
Pádraig Brady
2026-02-25 14:49:12 +00:00
parent 8fab3c6d30
commit f06beebd34
2 changed files with 25 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/factor/factor.pl
+23 -2
View File
@@ -97,6 +97,13 @@ my @Tests =
{OUT => '4999 340282366920938463463374607431768211297'}],
['h-1', '-h 3000', {OUT => '2^3 3 5^3'}],
['h-2', '3000 --exponents', {OUT => '2^3 3 5^3'}],
['nul1', {IN_PIPE => '3'}, {OUT => '3'}],
['nul2', {IN_PIPE => "3\000"}, {OUT => '3'}],
['nul3', {IN_PIPE => "3\000foo"}, {OUT => '3'}],
['nul4', {IN_PIPE => "3\000foo bar"}, {OUT => "3: 3\n"},
{EXIT => 1},
{ERR => "$prog: 'bar' is not a valid positive integer\n"}],
# ['nul5', "3\000"}, {OUT => '3'}], # Not supported by perl framework
);
@@ -107,8 +114,22 @@ my $t;
Test:
foreach $t (@Tests)
{
(my $arg1 = $t->[1]) =~ s| *\+?||; # strip '+'
($arg1 = $arg1) =~ s| *-[^ ]+ *||; # strip option
my $arg1;
# For IN_PIPE tests, the input number comes from the pipe, not $t->[1].
foreach my $e (@$t)
{
ref $e eq 'HASH' && exists $e->{IN_PIPE}
and $arg1 = $e->{IN_PIPE};
}
if (!defined $arg1)
{
$arg1 = $t->[1];
}
$arg1 =~ s| *\+?||; # strip '+'
$arg1 =~ s| *-[^ ]+ *||; # strip option
$arg1 =~ s|\0[^ \t\n]*||g; # strip NUL to whitespace
# Don't fiddle with expected OUT string if there's a nonzero exit status.
foreach my $e (@$t)
tests/numfmt/numfmt.pl
+2 -1
View File
@@ -43,7 +43,8 @@ my @Tests =
['5.1', '--from=iec-i 1Ki', {OUT => "1024"}],
['5.2', '--from=iec-i 1', {OUT => "1"}],
['6', {IN_PIPE => "1234\n"}, {OUT => "1234"}],
['6', {IN_PIPE => "1234\n"}, {OUT => "1234"}],
['6nul', {IN_PIPE => "1234\000foo bar\n"},{OUT => "1234"}],
['7', '--from=si', {IN_PIPE => "2K\n"}, {OUT => "2000"}],
['7a', '--invalid=fail', {IN_PIPE => "no_NL"}, {OUT => "no_NL"},
{ERR => "$prog: invalid number: 'no_NL'\n"},