Commit | Line | Data |
b12d758c |
1 | print "1..3\n"; |
2 | |
3 | use Digest; |
4 | |
e19eb3c1 |
5 | { |
6 | package Digest::Dummy; |
7 | use vars qw($VERSION @ISA); |
8 | $VERSION = 1; |
b12d758c |
9 | |
e19eb3c1 |
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} } |
b12d758c |
20 | } |
21 | |
e19eb3c1 |
22 | my $d; |
23 | $d = Digest->new("Dummy"); |
24 | print "not " unless $d->digest eq "ooo"; |
b12d758c |
25 | print "ok 1\n"; |
26 | |
e19eb3c1 |
27 | $d = Digest->Dummy; |
28 | print "not " unless $d->digest eq "ooo"; |
b12d758c |
29 | print "ok 2\n"; |
30 | |
e19eb3c1 |
31 | $Digest::MMAP{"Dummy-24"} = [["NotThere"], "NotThereEither", ["Digest::Dummy", 24]]; |
32 | $d = Digest->new("Dummy-24"); |
33 | print "not " unless $d->digest eq "24"; |
34 | print "ok 3\n"; |
35 | |
b12d758c |
36 | |