diff options
| author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2010-07-04 20:02:28 +0100 |
|---|---|---|
| committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2010-07-04 20:07:38 +0100 |
| commit | b645f34b48106e987fe160514a9283f50958f0ed (patch) | |
| tree | 94eedd9e141ed0c5135f7b8117e86c51e25b5afb /cpan/Digest-MD5 | |
| parent | 326fafaa3831cf61bbca838de6cca26aea3cacbe (diff) | |
| download | perl-b645f34b48106e987fe160514a9283f50958f0ed.tar.gz | |
Fix Digest-MD5 tests to run properly under core
Diffstat (limited to 'cpan/Digest-MD5')
| -rw-r--r-- | cpan/Digest-MD5/t/align.t | 7 | ||||
| -rw-r--r-- | cpan/Digest-MD5/t/files.t | 13 | ||||
| -rw-r--r-- | cpan/Digest-MD5/t/md5-aaa.t | 7 |
3 files changed, 0 insertions, 27 deletions
diff --git a/cpan/Digest-MD5/t/align.t b/cpan/Digest-MD5/t/align.t index 90dfe8048e..bb1224628a 100644 --- a/cpan/Digest-MD5/t/align.t +++ b/cpan/Digest-MD5/t/align.t @@ -1,10 +1,3 @@ -BEGIN { - if ($ENV{PERL_CORE}) { - chdir 't' if -d 't'; - @INC = '../lib'; - } -} - # Test that md5 works on unaligned memory blocks print "1..1\n"; diff --git a/cpan/Digest-MD5/t/files.t b/cpan/Digest-MD5/t/files.t index 64ad8014f9..54cf4f4cb7 100644 --- a/cpan/Digest-MD5/t/files.t +++ b/cpan/Digest-MD5/t/files.t @@ -1,9 +1,3 @@ -BEGIN { - if ($ENV{PERL_CORE}) { - chdir 't' if -d 't'; - @INC = '../lib'; - } -} print "1..3\n"; @@ -54,13 +48,6 @@ for (split /^/, $EXPECT) { print "ok ", ++$testno, " # Skip: PERL_CORE\n"; next; } - use File::Spec; - my @path = qw(ext Digest-MD5); - my $path = File::Spec->updir; - while (@path) { - $path = File::Spec->catdir($path, shift @path); - } - $file = File::Spec->catfile($path, $file); } # print "# file = $file\n"; unless (-f $file) { diff --git a/cpan/Digest-MD5/t/md5-aaa.t b/cpan/Digest-MD5/t/md5-aaa.t index 1ccd59b749..4b646546f0 100644 --- a/cpan/Digest-MD5/t/md5-aaa.t +++ b/cpan/Digest-MD5/t/md5-aaa.t @@ -1,10 +1,3 @@ -BEGIN { - if ($ENV{PERL_CORE}) { - chdir 't' if -d 't'; - @INC = '../lib'; - } -} - use strict; print "1..256\n"; |