{OUT=>"50abf5706a150990a08b2c5ea40fa0e585554732 f\n"}],
['bs-sha', {IN=> {".\\foo"=> ''}},
{OUT=>"\\$sha_degenerate .\\\\foo\n"}],
+ # The sha1sum and md5sum drivers share a lot of code.
+ # Ensure that sha1sum does *not* share the part that makes
+ # md5sum accept BSD format.
+ ['check-bsd', '--check', {IN=> {'f.md5' => "MD5 (f) = $sha_degenerate\n"}},
+ {AUX=> {f=> ''}},
+ {ERR=>"sha1sum: f.md5: no properly formatted "
+ . "SHA1 checksum lines found\n"},
+ {EXIT=> 1}],
);
# Insert the `--text' argument for each test.
my $t;
foreach $t (@Tests)
{
- splice @$t, 1, 0, '--text';
+ splice @$t, 1, 0, '--text' unless @$t[1] =~ /--check/;
}
my $save_temps = $ENV{DEBUG};