diff options
Diffstat (limited to 'cpan/Digest-SHA/t/sha384.t')
-rw-r--r-- | cpan/Digest-SHA/t/sha384.t | 14 |
1 files changed, 3 insertions, 11 deletions
diff --git a/cpan/Digest-SHA/t/sha384.t b/cpan/Digest-SHA/t/sha384.t index 9d026ae1ff..16fefcf07c 100644 --- a/cpan/Digest-SHA/t/sha384.t +++ b/cpan/Digest-SHA/t/sha384.t @@ -1,13 +1,3 @@ -use strict; - -my $MODULE; - -BEGIN { - $MODULE = (-d "src") ? "Digest::SHA" : "Digest::SHA::PurePerl"; - eval "require $MODULE" || die $@; - $MODULE->import(qw(sha384_hex)); -} - BEGIN { if ($ENV{PERL_CORE}) { chdir 't' if -d 't'; @@ -15,8 +5,10 @@ BEGIN { } } +use strict; +use Digest::SHA qw(sha384_hex); + my @vecs = map { eval } <DATA>; -$#vecs -= 2 if $MODULE eq "Digest::SHA::PurePerl"; my $numtests = scalar(@vecs) / 2; print "1..$numtests\n"; |