[svn:Module-Build] r11790 - in Module-Build/trunk: . t

[ericwilhelm]

Author: ericwilhelm
Date: Sun Sep 14 17:52:39 2008
New Revision: 11790

Modified:
   Module-Build/trunk/Changes
   Module-Build/trunk/t/ext.t

Log:
t/ext.t - Text::ParseWords workaround
Changes - update


Modified: Module-Build/trunk/Changes
==============================================================================
--- Module-Build/trunk/Changes  (original)
+++ Module-Build/trunk/Changes  Sun Sep 14 17:52:39 2008
@@ -1,5 +1,10 @@
 Revision history for Perl extension Module::Build.
 
+0.2808_05 -
+
+ - Skip test in t/ext.t which tickles Text::ParseWords::shellwords() in
+   5.6.2 [David Wheeler]
+
 0.2808_04 - Thu Sep 11 22:51:27 PDT 2008
 
  - Backed-out incompatible Module::Finder change (first in 0.2808_02.)

Modified: Module-Build/trunk/t/ext.t
==============================================================================
--- Module-Build/trunk/t/ext.t  (original)
+++ Module-Build/trunk/t/ext.t  Sun Sep 14 17:52:39 2008
@@ -4,13 +4,20 @@
 use lib $ENV{PERL_CORE} ? '../lib/Module/Build/t/lib' : 't/lib';
 use MBTest;
 
+use Module::Build;
+
+my $parsewords_bug = Text::ParseWords->VERSION < 3.24 and
+  diag("\n\nPerl UPGRADE STRONGLY RECOMMENDED" .
+    "\n\n\n    NOTICE:  Text::ParseWords below 3.24 has BUGS!\n\n\n");
+
 my @unix_splits = 
   (
    { q{one t'wo th'ree f"o\"ur " "five" } => [ 'one', 'two three', 'fo"ur ', 
'five' ] },
    { q{ foo bar }                         => [ 'foo', 'bar'                    
     ] },
    { q{ D\'oh f\{g\'h\"i\]\* }            => [ "D'oh", "f{g'h\"i]*"            
     ] },
    { q{ D\$foo }                          => [ 'D$foo'                         
     ] },
-   { qq{one\\\ntwo}                       => [ "one\ntwo"                      
     ] },
+   ($parsewords_bug ? () :
+     { qq{one\\\ntwo}                     => [ "one\ntwo"                      
     ] }),
   );
 
 my @win_splits = 
@@ -56,9 +63,8 @@
    { 'a " b " c'            => [ 'a', ' b ', 'c' ] },
 );
 
-plan tests => 11 + [EMAIL PROTECTED] + [EMAIL PROTECTED];
+plan tests => 10 + [EMAIL PROTECTED] + [EMAIL PROTECTED];
 
-use_ok 'Module::Build';
 ensure_blib('Module::Build');
 
 #########################
@@ -145,5 +151,7 @@
   is( 0 + grep( !defined(), @result ), # all defined
       0,
       "'$string' result all defined" );
-  is_deeply([EMAIL PROTECTED], $expected);
+  is_deeply([EMAIL PROTECTED], $expected) or
+    diag("$package split_like_shell error \n" .
+      ">$string< is not splitting as >" . join("|", @$expected) . '<');
 }