[p5sagit/p5-mst-13.2.git] / ext / Digest / MD5 / t / badfile.t

print "1..2\n";

use Digest::MD5 ();

$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";
Commit	Line	Data
49953a3f	1	print "1..2\n";
3357b1b1	2
	3	use Digest::MD5 ();
	4
	5	$md5 = Digest::MD5->new;
	6
	7	eval {
	8	use vars qw(*FOO);
	9	$md5->addfile(*FOO);
	10	};
ac70dec1	11	print "not " unless $@ =~ /^Bad filehandle: FOO at/;
3357b1b1	12	print "ok 1\n";
3357b1b1	13
ac70dec1	14	open(BAR, "no-existing-file.$$");
	15	eval {
	16	$md5->addfile(*BAR);
	17	};
	18	print "not " unless $@ =~ /^No filehandle passed at/;
3357b1b1	19	print "ok 2\n";