diff options
Diffstat (limited to 'tests')
| -rwxr-xr-x | tests/misc/basename.pl | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/tests/misc/basename.pl b/tests/misc/basename.pl index d0ab57bf6..e95dff9be 100755 --- a/tests/misc/basename.pl +++ b/tests/misc/basename.pl @@ -61,9 +61,17 @@ my @Tests = ['8', qw(fs x), {OUT => 'fs'}], ['9', qw(fs ''), {OUT => 'fs'}], ['10', qw(fs/ s/), {OUT => 'fs'}], + + # Exercise -z option. + ['z0', qw(-z a), {OUT => "a\0"}], + ['z1', qw(--zero a), {OUT => "a\0"}], + ['z2', qw(-za a b), {OUT => "a\0b\0"}], + ['z3', qw(-z ba a), {OUT => "b\0"}], + ['z4', qw(-z -s a ba), {OUT => "b\0"}], ); # Append a newline to end of each expected 'OUT' string. +# Skip -z tests, i.e. those whose 'OUT' string has a trailing '\0'. my $t; foreach $t (@Tests) { @@ -72,7 +80,8 @@ foreach $t (@Tests) foreach $e (@$t) { $e->{OUT} = "$e->{OUT}\n" - if ref $e eq 'HASH' and exists $e->{OUT}; + if ref $e eq 'HASH' and exists $e->{OUT} + and not $e->{OUT} =~ /\0$/; } } |