20 lines
334 B
Perl
20 lines
334 B
Perl
print "1..2\n";
|
|
|
|
use Digest::SHA1 ();
|
|
|
|
$sha1 = Digest::SHA1->new;
|
|
|
|
eval {
|
|
use vars qw(*FOO);
|
|
$sha1->addfile(*FOO);
|
|
};
|
|
print "not " unless $@ =~ /^Bad filehandle: FOO at/;
|
|
print "ok 1\n";
|
|
|
|
open(BAR, "no-existing-file.$$");
|
|
eval {
|
|
$sha1->addfile(*BAR);
|
|
};
|
|
print "not " unless $@ =~ /^No filehandle passed at/;
|
|
print "ok 2\n";
|