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

[dagolden]

Author: dagolden
Date: Mon Sep  7 19:33:34 2009
New Revision: 13291

Modified:
   Module-Build/trunk/t/properties/share_dir.t
   Module-Build/trunk/t/xs.t

Log:
quiet some test output

Modified: Module-Build/trunk/t/properties/share_dir.t
==============================================================================
--- Module-Build/trunk/t/properties/share_dir.t (original)
+++ Module-Build/trunk/t/properties/share_dir.t Mon Sep  7 19:33:34 2009
@@ -51,7 +51,7 @@
 ok( -e catfile(qw/other share bar.txt/), "Created 'other/share' directory" );
 
 # Check default when share_dir is not given
-$mb = $dist->new_from_context;
+stdout_stderr_of( sub { $mb = $dist->new_from_context });
 is_deeply( $mb->share_dir, { dist => [ 'share' ] },
   "Default share_dir set as dist-type share"
 );
@@ -68,7 +68,7 @@
   }
 );
 $dist->regen;
-$mb = $dist->new_from_context;
+stdout_stderr_of( sub { $mb = $dist->new_from_context });
 is_deeply( $mb->share_dir, { dist => [ 'share' ] },
   "Scalar share_dir set as dist-type share"
 );
@@ -82,7 +82,7 @@
   }
 );
 $dist->regen;
-$mb = $dist->new_from_context;
+stdout_stderr_of( sub { $mb = $dist->new_from_context });
 is_deeply( $mb->share_dir, { dist => [ 'share' ] },
   "Arrayref share_dir set as dist-type share"
 );
@@ -96,7 +96,7 @@
   }
 );
 $dist->regen;
-$mb = $dist->new_from_context;
+stdout_stderr_of( sub { $mb = $dist->new_from_context });
 is_deeply( $mb->share_dir, { dist => [ 'share' ] },
   "Hashref share_dir w/ scalar dist set as dist-type share"
 );
@@ -110,7 +110,7 @@
   }
 );
 $dist->regen;
-$mb = $dist->new_from_context;
+stdout_stderr_of( sub { $mb = $dist->new_from_context });
 is_deeply( $mb->share_dir, { dist => [ 'share' ] },
   "Hashref share_dir w/ arrayref dist set as dist-type share"
 );
@@ -127,7 +127,7 @@
   }
 );
 $dist->regen;
-$mb = $dist->new_from_context;
+stdout_stderr_of( sub { $mb = $dist->new_from_context });
 is_deeply( $mb->share_dir, 
   { dist => [ 'share' ], 
     module => { $dist->name => ['other/share']  },
@@ -147,7 +147,7 @@
   }
 );
 $dist->regen;
-$mb = $dist->new_from_context;
+stdout_stderr_of( sub { $mb = $dist->new_from_context });
 is_deeply( $mb->share_dir, 
   { dist => [ 'share' ], 
     module => { $dist->name => ['other/share']  },

Modified: Module-Build/trunk/t/xs.t
==============================================================================
--- Module-Build/trunk/t/xs.t   (original)
+++ Module-Build/trunk/t/xs.t   Mon Sep  7 19:33:34 2009
@@ -80,7 +80,7 @@
 
 # We can't be verbose in the sub-test, because Test::Harness will
 # think that the output is for the top-level test.
-eval {$mb->dispatch('test')};
+stdout_stderr_of( sub { eval {$mb->dispatch('test')} });
 is $@, '';
 
 eval {$mb->dispatch('clean')};
@@ -116,7 +116,7 @@
 eval { $mb->dispatch('build') };
 is $@, '';
 
-eval { $mb->dispatch('test') };
+stdout_stderr_of( sub { eval { $mb->dispatch('test') } } );
 is $@, '';
 
 eval { $mb->dispatch('realclean') };