1print "1..3\n"; 2 3use Digest; 4 5{ 6 package Digest::Dummy; 7 use vars qw($VERSION @ISA); 8 $VERSION = 1; 9 10 require Digest::base; 11 @ISA = qw(Digest::base); 12 13 sub new { 14 my $class = shift; 15 my $d = shift || "ooo"; 16 bless { d => $d }, $class; 17 } 18 sub add {} 19 sub digest { shift->{d} } 20} 21 22my $d; 23$d = Digest->new("Dummy"); 24print "not " unless $d->digest eq "ooo"; 25print "ok 1\n"; 26 27$d = Digest->Dummy; 28print "not " unless $d->digest eq "ooo"; 29print "ok 2\n"; 30 31$Digest::MMAP{"Dummy-24"} = [["NotThere"], "NotThereEither", ["Digest::Dummy", 24]]; 32$d = Digest->new("Dummy-24"); 33print "not " unless $d->digest eq "24"; 34print "ok 3\n"; 35 36 37