17469d825Srpointel#!/usr/bin/env perl 27469d825Srpointel 37469d825Srpointeluse strict; 4*eac174f2Safresh1use warnings; 5*eac174f2Safresh1 67469d825Srpointeluse Test::More tests => 4; 77469d825Srpointel 87469d825Srpointel# To find Digest::Dummy 97469d825Srpointeluse lib 't/lib'; 10b39c5158Smillert 11b39c5158Smillertuse Digest; 12b39c5158Smillert 137469d825Srpointel$@ = "rt#50663"; 14b39c5158Smillertmy $d; 15b39c5158Smillert$d = Digest->new("Dummy"); 167469d825Srpointelis $@, "rt#50663"; 177469d825Srpointelis $d->digest, "ooo"; 18b39c5158Smillert 19b39c5158Smillert$d = Digest->Dummy; 207469d825Srpointelis $d->digest, "ooo"; 21b39c5158Smillert 22b39c5158Smillert$Digest::MMAP{"Dummy-24"} = [ ["NotThere"], "NotThereEither", [ "Digest::Dummy", 24 ] ]; 23b39c5158Smillert$d = Digest->new("Dummy-24"); 247469d825Srpointelis $d->digest, "24"; 25