xref: /openbsd-src/gnu/usr.bin/perl/cpan/Digest-MD5/t/badfile.t (revision 256a93a44f36679bee503f12e49566c2183f6181)

use strict;
use warnings;

use Digest::MD5 ();

print "1..2\n";
my $md5 = Digest::MD5->new;

eval {
   use vars qw(*FOO);
   $md5->addfile(*FOO);
};
print "not " unless $@ =~ /^Bad filehandle: FOO at/;
print "ok 1\n";

open(BAR, "no-existing-file.$$");
eval {
    $md5->addfile(*BAR);
};
print "not " unless $@ =~ /^No filehandle passed at/;
print "ok 2\n";