[svn:Module-Build] r10664 - Module-Build/trunk/t

[kwilliams]

Author: kwilliams
Date: Mon Jan 28 19:31:13 2008
New Revision: 10664

Modified:
   Module-Build/trunk/t/compat.t

Log:
Bookkeeping: get rid of Cwd, fix test counts

Modified: Module-Build/trunk/t/compat.t
==============================================================================
--- Module-Build/trunk/t/compat.t       (original)
+++ Module-Build/trunk/t/compat.t       Mon Jan 28 19:31:13 2008
@@ -13,12 +13,12 @@
 delete @[EMAIL PROTECTED];
 
 my @makefile_types = qw(small passthrough traditional);
-my $tests_per_type = 14;
+my $tests_per_type = 15;
 
 #find_in_path does not understand VMS.
 
 if ( $Config{make} && $^O ne 'VMS' ? find_in_path($Config{make}) : 1 ) {
-    plan tests => 38 + @makefile_types*$tests_per_type*2;
+    plan tests => 32 + @makefile_types*$tests_per_type*2;
 } else {
     plan skip_all => "Don't know how to invoke 'make'";
 }
@@ -29,8 +29,6 @@
 
 #########################
 
-use Cwd ();
-my $cwd = Cwd::cwd;
 my $tmp = MBTest->tmpdir;
 
 # Create test distribution; set requires and build_requires
@@ -157,7 +155,7 @@
   # Make sure various Makefile.PL arguments are supported
   Module::Build::Compat->create_makefile_pl('passthrough', $mb);
 
-  my $libdir = File::Spec->catdir( $cwd, 't', 'libdir' );
+  my $libdir = File::Spec->catdir( $tmp, 'libdir' );
   my $result;
   stdout_of( sub {
     $result = $mb->run_perl_script('Makefile.PL', [],
@@ -244,6 +242,9 @@
   ok ! -e 'Makefile.PL', "Makefile.PL cleaned up";
 }
 
+# cleanup
+$dist->remove;
+
 #########################################################
 
 sub test_makefile_types {
@@ -372,6 +373,3 @@
   }
   return $req;
 }
-
-# cleanup
-$dist->remove;