This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update Digest to CPAN version 1.17
[perl5.git] / cpan / Digest / t / digest.t
1 #!/usr/bin/env perl
2
3 use strict;
4 use Test::More tests => 4;
5
6 # To find Digest::Dummy
7 use lib 't/lib';
8
9 use Digest;
10
11 $@ = "rt#50663";
12 my $d;
13 $d = Digest->new("Dummy");
14 is $@, "rt#50663";
15 is $d->digest, "ooo";
16
17 $d = Digest->Dummy;
18 is $d->digest, "ooo";
19
20 $Digest::MMAP{"Dummy-24"} = [["NotThere"], "NotThereEither", ["Digest::Dummy", 24]];
21 $d = Digest->new("Dummy-24");
22 is $d->digest, "24";