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