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