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

[kwilliams]

Author: kwilliams
Date: Sun Aug 31 06:44:48 2008
New Revision: 11690

Modified:
   Module-Build/trunk/Changes
   Module-Build/trunk/t/basic.t
   Module-Build/trunk/t/test_type.t

Log:
Adjustments for changes in Test::Harness output

Modified: Module-Build/trunk/Changes
==============================================================================
--- Module-Build/trunk/Changes  (original)
+++ Module-Build/trunk/Changes  Sun Aug 31 06:44:48 2008
@@ -1,5 +1,8 @@
 Revision history for Perl extension Module::Build.
 
+ - Made adjustments for the format changes of recent Test::Harness
+   output. [Nicholas Clark]
+
  - Fixed the documentation for script_files to indicate that we search
    bin/ for scripts by default.  It has been this way for several
    years. [Spotted by Ron Savage]

Modified: Module-Build/trunk/t/basic.t
==============================================================================
--- Module-Build/trunk/t/basic.t        (original)
+++ Module-Build/trunk/t/basic.t        Sun Aug 31 06:44:48 2008
@@ -105,7 +105,7 @@
   $mb->add_to_cleanup('save_out');
   # Use uc() so we don't confuse the current test output
   like uc(stdout_of( sub {$mb->dispatch('test', verbose => 1)} )), qr/^OK \d/m;
-  like uc(stdout_of( sub {$mb->dispatch('test', verbose => 0)} )), qr/\.\.OK/;
+  like uc(stdout_of( sub {$mb->dispatch('test', verbose => 0)} )), qr/\.\. 
?OK/;
 
   $mb->dispatch('realclean');
   $dist->clean;

Modified: Module-Build/trunk/t/test_type.t
==============================================================================
--- Module-Build/trunk/t/test_type.t    (original)
+++ Module-Build/trunk/t/test_type.t    Sun Aug 31 06:44:48 2008
@@ -61,7 +61,7 @@
 my $output = uc(stdout_of(
     sub {$mb->dispatch('testspecial', verbose => 0)}
 ));
-like($output, qr/\.\.OK/);
+like($output, qr/\.\. ?OK/);
 
 is($::x, 3, "called a third time");