[svn:Module-Build] r13415 - in Module-Build/trunk/t: . actions compat

[dagolden]

Author: dagolden
Date: Thu Oct 22 06:59:59 2009
New Revision: 13415

Modified:
   Module-Build/trunk/t/actions/installdeps.t
   Module-Build/trunk/t/compat/exit.t
   Module-Build/trunk/t/write_default_maniskip.t

Log:
fix test failures and warnings

Modified: Module-Build/trunk/t/actions/installdeps.t
==============================================================================
--- Module-Build/trunk/t/actions/installdeps.t  (original)
+++ Module-Build/trunk/t/actions/installdeps.t  Thu Oct 22 06:59:59 2009
@@ -2,7 +2,6 @@
 use lib $ENV{PERL_CORE} ? '../lib/Module/Build/t/lib' : 't/lib';
 use MBTest;
 use DistGen;
-use IPC::Cmd ();
 
 plan tests => 7; 
 
@@ -34,7 +33,7 @@
     $dist->run_build('installdeps')
 });
 ok( length($out), "ran mocked Build installdeps");
-my $expected = quotemeta(IPC::Cmd::can_run($^X));
+my $expected = quotemeta(Module::Build->find_command($^X));
 like( $out, qr/$expected/i, "relative cpan_client resolved relative to \$^X" );
 like( $out, qr/File::Spec/, "saw File::Spec prereq" );
 like( $out, qr/Getopt::Long/, "saw Getopt::Long prereq" );

Modified: Module-Build/trunk/t/compat/exit.t
==============================================================================
--- Module-Build/trunk/t/compat/exit.t  (original)
+++ Module-Build/trunk/t/compat/exit.t  Thu Oct 22 06:59:59 2009
@@ -27,7 +27,9 @@
 
 $dist->regen;
 
-Module::Build::Compat->create_makefile_pl('passthrough', $mb);
+stdout_stderr_of(
+  sub{ Module::Build::Compat->create_makefile_pl('passthrough', $mb); }
+);
 
 # as silly as all of this exit(0) business is, that is what the cpan
 # testers have instructed everybody to do so...

Modified: Module-Build/trunk/t/write_default_maniskip.t
==============================================================================
--- Module-Build/trunk/t/write_default_maniskip.t       (original)
+++ Module-Build/trunk/t/write_default_maniskip.t       Thu Oct 22 06:59:59 2009
@@ -15,6 +15,7 @@
     chdir MBTest->tmpdir();
 
     my $build = Module::Build->new(
+        module_name     => "Foo::Bar",
         dist_name       => "Foo-Bar",
         dist_version    => '1.23',
     );