[Bps-public-commit] r10469 - Text-Quoted/t

[ruz at bestpractical.com]

Author: ruz
Date: Thu Jan 24 12:03:05 2008
New Revision: 10469

Modified:
   Text-Quoted/t/7.t

Log:
* fix tests so this module will pass them on 5.6

Modified: Text-Quoted/t/7.t
==============================================================================
--- Text-Quoted/t/7.t	(original)
+++ Text-Quoted/t/7.t	Thu Jan 24 12:03:05 2008
@@ -1,10 +1,15 @@
 use strict;
-use Test::More tests => 2;
-BEGIN { use_ok('Text::Quoted') };
 
-eval { require Encode } or skip_all("No Encode module");
-$a = Encode::decode_utf8("x\303\203 \tz");
+use Test::More;
+if ( eval { require Encode } ) {
+    plan tests => 2;
+} else {
+    plan skip_all => "No Encode module, old perl";
+}
+
+use_ok('Text::Quoted');
 
+$a = Encode::decode_utf8("x\303\203 \tz");
 is_deeply( extract($a), [ { 
     text   => Encode::decode_utf8("x\303\203      z"),
     empty  => '',