1#!/usr/bin/env perl
2
3use strict;
4use warnings;
5
6use Test::More tests => 4;
7
8# To find Digest::Dummy
9use lib 't/lib';
10
11use Digest;
12
13$@ = "rt#50663";
14my $d;
15$d = Digest->new("Dummy");
16is $@, "rt#50663";
17is $d->digest, "ooo";
18
19$d = Digest->Dummy;
20is $d->digest, "ooo";
21
22$Digest::MMAP{"Dummy-24"} = [ ["NotThere"], "NotThereEither", [ "Digest::Dummy", 24 ] ];
23$d = Digest->new("Dummy-24");
24is $d->digest, "24";
25