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

[kwilliams]

Author: kwilliams
Date: Sat Oct 27 14:52:57 2007
New Revision: 10128

Modified:
   Module-Build/trunk/t/install.t
   Module-Build/trunk/t/manifypods.t
   Module-Build/trunk/t/xs.t

Log:
More VMS filespec fixes

Modified: Module-Build/trunk/t/install.t
==============================================================================
--- Module-Build/trunk/t/install.t      (original)
+++ Module-Build/trunk/t/install.t      Sat Oct 27 14:52:57 2007
@@ -56,7 +56,7 @@
 ok $mb;
 
 
-my $destdir = File::Spec->catdir($cwd, 't', 'install_test.' . $$);
+my $destdir = File::Spec->catdir($cwd, 't', 'install_test' . $$);
 $mb->add_to_cleanup($destdir);
 
 {

Modified: Module-Build/trunk/t/manifypods.t
==============================================================================
--- Module-Build/trunk/t/manifypods.t   (original)
+++ Module-Build/trunk/t/manifypods.t   Sat Oct 27 14:52:57 2007
@@ -58,7 +58,7 @@
 chdir( $dist->dirname ) or die "Can't chdir to '@{[$dist->dirname]}': $!";
 
 use File::Spec::Functions qw( catdir );
-my $destdir = catdir($cwd, 't', 'install_test.' . $$);
+my $destdir = catdir($cwd, 't', 'install_test' . $$);
 
 
 my $mb = Module::Build->new(
@@ -118,7 +118,7 @@
     next;
   }
   
-  my $to = File::Spec->catfile('blib', ($from =~ /^lib/ ? 'libdoc' : 
'bindoc'), $v);
+  my $to = File::Spec->catfile('blib', ($from =~ /^[\.\/\[]*lib/ ? 'libdoc' : 
'bindoc'), $v);
   ok $mb->contains_pod($from), "$from should contain POD";
   ok -e $to, "Created $to manpage";
 }

Modified: Module-Build/trunk/t/xs.t
==============================================================================
--- Module-Build/trunk/t/xs.t   (original)
+++ Module-Build/trunk/t/xs.t   Sat Oct 27 14:52:57 2007
@@ -109,7 +109,7 @@
 
 # Try a XS distro with a deep namespace
 
-$dist = DistGen->new( name => 'Simple::With::Deep::Namespace',
+$dist = DistGen->new( name => 'Simple::With::Deep::Name',
                      dir => $tmp, xs => 1 );
 $dist->regen;
 chdir( $dist->dirname ) or die "Can't chdir to '@{[$dist->dirname]}': $!";