diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 2001-03-29 10:01:18 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-30 02:18:41 +0000 |
| commit | d2f5bb607f1fc65bd0b35eccba6235d4631fa3af (patch) | |
| tree | 675e726192bcf4a52aaaa670439d47f80c41b06a /t/comp/require.t | |
| parent | ee3e756d0633dc54b741d94098adc6d20a3f0e1d (diff) | |
| download | perl-d2f5bb607f1fc65bd0b35eccba6235d4631fa3af.tar.gz | |
more tests (was Re: Perl5.7.* Unicode/EBCDIC status.)
Message-ID: <Pine.OSF.4.10.10103291731150.1326-100000@aspara.forte.com>
p4raw-id: //depot/perl@9461
Diffstat (limited to 't/comp/require.t')
| -rwxr-xr-x | t/comp/require.t | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/t/comp/require.t b/t/comp/require.t index e634532275..07415610fb 100755 --- a/t/comp/require.t +++ b/t/comp/require.t @@ -8,7 +8,11 @@ BEGIN { # don't make this lexical $i = 1; -print "1..23\n"; + +my $Is_EBCDIC = (ord('A') == 193) ? 1 : 0; +my $total_tests = 23; +if ($Is_EBCDIC) { $total_tests = 20; } +print "1..$total_tests\n"; sub do_require { %INC = (); @@ -126,7 +130,10 @@ dofile(); sub dofile { do "bleah.do"; }; print $x; -# UTF-encoded things +# UTF-encoded things - skipped on EBCDIC machines + +if ($Is_EBCDIC) { exit; } + my $utf8 = chr(0xFEFF); $i++; do_require(qq(${utf8}print "ok $i\n"; 1;\n)); |