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