--- ../Module-Build-0.4203-2igkKg/t/test_type.t	2013-11-27 19:16:41.000000000 +0100
+++ t/test_type.t	2013-11-29 09:59:48.611250000 +0100
@@ -9,7 +9,7 @@
 
 use strict;
 use lib 't/lib';
-use MBTest tests => 7;
+use MBTest tests => 8;
 
 blib_load('Module::Build');
 
@@ -49,24 +49,34 @@
 
 ok $mb;
 
-$mb->dispatch('testspecial');
+my $output_1 = stdout_of(
+    sub {$mb->dispatch('testspecial');}
+);
+
+print "  # ", join("\n  # ", split(/\n/, $output_1)), "\n";
+like($output_1, qr/\nAll tests successful.*\nFiles=1, Tests=2.*\nResult: PASS/, "1st call results");
+
 is($::x, 1, "called once");
 
 
 $mb->add_to_cleanup('save_out');
 # Use uc() so we don't confuse the current test output
-my $verbose_output = uc(stdout_of(
+my $verbose_output = stdout_of(
     sub {$mb->dispatch('testspecial', verbose => 1)}
-));
+);
+print "  # ", join("\n  # ", split(/\n/, $verbose_output)), "\n";
+$verbose_output = uc($verbose_output);
 
 like($verbose_output, qr/^OK 1 - FIRST TEST IN SPECIAL_EXT/m);
 like($verbose_output, qr/^OK 2 - SECOND TEST IN SPECIAL_EXT/m);
 
 is( $::x, 2, "called again");
 
-my $output = uc(stdout_of(
+my $output = stdout_of(
     sub {$mb->dispatch('testspecial', verbose => 0)}
-));
+);
+print "  # ", join("\n  # ", split(/\n/, $output)), "\n";
+$output = uc($output);
 like($output, qr/\.\. ?OK/);
 
 is($::x, 3, "called a third time");