From c5b8327978ae146c737356545c4212795dcdd744 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Mon, 23 Jul 2007 20:07:29 +0000 Subject: [PATCH] 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 --- ext/Encode/t/mime_header_iso2022jp.t | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/ext/Encode/t/mime_header_iso2022jp.t b/ext/Encode/t/mime_header_iso2022jp.t index f1be864..818443a 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; -- 2.7.4