diff options
| author | Dan Kogai <dankogai@dan.co.jp> | 2002-04-08 15:19:29 +0900 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-04-07 20:31:08 +0000 |
| commit | 237517034d704612306fe465c4c96035376e05f5 (patch) | |
| tree | 2713464ca7b4d56bdfc88f80ff0916acb3704cf9 /ext/MIME | |
| parent | 7e84e004fe6ad960ddf9f8470bfc0af418a5b31c (diff) | |
| download | perl-237517034d704612306fe465c4c96035376e05f5.tar.gz | |
[MIME::Base64 patch] t/base64.t fix
Message-Id: <25BF9A84-4A6D-11D6-9F9F-00039301D480@dan.co.jp>
p4raw-id: //depot/perl@15791
Diffstat (limited to 'ext/MIME')
| -rw-r--r-- | ext/MIME/Base64/t/base64.t | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/ext/MIME/Base64/t/base64.t b/ext/MIME/Base64/t/base64.t index 7a61fe9576..fdbe88ff07 100644 --- a/ext/MIME/Base64/t/base64.t +++ b/ext/MIME/Base64/t/base64.t @@ -1,8 +1,11 @@ BEGIN { - chdir 't' if -d 't'; - @INC = '../lib'; + if ($ENV{'PERL_CORE'}){ + chdir 't'; + unshift @INC, '../lib'; + } } +use strict; use MIME::Base64; print "1..283\n"; @@ -10,7 +13,7 @@ print "1..283\n"; print "# Testing MIME::Base64-", $MIME::Base64::VERSION, "\n"; BEGIN { - if (ord('A') == 41) { + if (ord('A') == 0x41) { *ASCII = sub { return $_[0] }; } else { @@ -19,7 +22,11 @@ BEGIN { } } -$testno = 1; +my $testno = 1; +# instead of "for my $test (...)" , which is my preference. +# Not sure which perl version has started supporting. MIME::Base64 +# was supposed to work with very old perl5, right? +my $test; encodeTest(); decodeTest(); |