diff options
author | Nicholas Clark <nick@ccl4.org> | 2007-07-23 20:07:29 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2007-07-23 20:07:29 +0000 |
commit | c5b8327978ae146c737356545c4212795dcdd744 (patch) | |
tree | 1f546b2e689ee4580bc5efd0ccab0317c39f7c81 /ext/Encode | |
parent | 78b7ef0673ed105edd723dec0b27f038e2675cd5 (diff) | |
download | perl-c5b8327978ae146c737356545c4212795dcdd744.tar.gz |
Need to run the plan() at BEGIN time, else the use_ok() will fail.
However, it doesn't actually produce any output due to a known core
bug: http://rt.cpan.org/Ticket/Display.html?id=28345
(But the test count in the plan saves our bacon by alerting us)
p4raw-id: //depot/perl@31649
Diffstat (limited to 'ext/Encode')
-rw-r--r-- | ext/Encode/t/mime_header_iso2022jp.t | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/ext/Encode/t/mime_header_iso2022jp.t b/ext/Encode/t/mime_header_iso2022jp.t index f1be86494d..818443a11a 100644 --- a/ext/Encode/t/mime_header_iso2022jp.t +++ b/ext/Encode/t/mime_header_iso2022jp.t @@ -1,10 +1,12 @@ use Test::More; -if( ord("A") == 193 ) { - plan skip_all => 'No Encode::MIME::Header::ISO_2022_JP on EBCDIC Platforms'; -} else { - plan tests => 14; +BEGIN { + if( ord("A") == 193 ) { + plan skip_all => 'No Encode::MIME::Header::ISO_2022_JP on EBCDIC Platforms'; + } else { + plan tests => 14; + } } use strict; |