ExtUtils::MakeMaker 6.03 -> 6.06_05ish

[p5sagit/p5-mst-13.2.git] / lib / ExtUtils / t / 00setup_dummy.t

diff --git a/lib/ExtUtils/t/00setup_dummy.t b/lib/ExtUtils/t/00setup_dummy.t
index a55fc00..f7f50fc 100644 (file)
--- a/lib/ExtUtils/t/00setup_dummy.t
+++ b/lib/ExtUtils/t/00setup_dummy.t
@@ -12,20 +12,26 @@ chdir 't';
 
 use strict;
 use Test::More tests => 9;
-use File::Spec::Functions;
-use File::Path;
 use File::Basename;
+use File::Path;
+use File::Spec;
 
 my %Files = (
-             catfile(curdir(),'Big-Dummy','lib','Big','Dummy.pm')     => <<'END',
+             'Big-Dummy/lib/Big/Dummy.pm'     => <<'END',
 package Big::Dummy;
 
 $VERSION = 0.01;
 
+=head1 NAME
+
+Big::Dummy - Try "our" hot dog's
+
+=cut
+
 1;
 END
 
-             catfile(curdir(),'Big-Dummy','Makefile.PL')          => <<'END',
+             'Big-Dummy/Makefile.PL'          => <<'END',
 use ExtUtils::MakeMaker;
 
 printf "Current package is: %s\n", __PACKAGE__;
@@ -33,18 +39,20 @@ printf "Current package is: %s\n", __PACKAGE__;
 WriteMakefile(
     NAME          => 'Big::Dummy',
     VERSION_FROM  => 'lib/Big/Dummy.pm',
-    PREREQ_PM     => {},
+    PREREQ_PM     => { strict => 0 },
+    ABSTRACT_FROM => 'lib/Big/Dummy.pm',
+    AUTHOR        => 'Michael G Schwern <schwern@pobox.com>',
 );
 END
 
-             catfile(curdir(),'Big-Dummy','t','compile.t')          => <<'END',
+             'Big-Dummy/t/compile.t'          => <<'END',
 print "1..2\n";
 
 print eval "use Big::Dummy; 1;" ? "ok 1\n" : "not ok 1\n";
 print "ok 2 - TEST_VERBOSE\n";
 END
 
-             catfile(curdir(),'Big-Dummy','Liar','t','sanity.t')      => <<'END',
+             'Big-Dummy/Liar/t/sanity.t'      => <<'END',
 print "1..3\n";
 
 print eval "use Big::Dummy; 1;" ? "ok 1\n" : "not ok 1\n";
@@ -52,7 +60,7 @@ print eval "use Big::Liar; 1;" ? "ok 2\n" : "not ok 2\n";
 print "ok 3 - TEST_VERBOSE\n";
 END
 
-             catfile(curdir(),'Big-Dummy','Liar','lib','Big','Liar.pm') => <<'END',
+             'Big-Dummy/Liar/lib/Big/Liar.pm' => <<'END',
 package Big::Liar;
 
 $VERSION = 0.01;
@@ -60,7 +68,7 @@ $VERSION = 0.01;
 1;
 END
 
-             catfile(curdir(),'Big-Dummy','Liar','Makefile.PL')     => <<'END',
+             'Big-Dummy/Liar/Makefile.PL'     => <<'END',
 use ExtUtils::MakeMaker;
 
 my $mm = WriteMakefile(
@@ -75,7 +83,7 @@ foreach my $key (qw(INST_LIB INST_ARCHLIB)) {
 }
 END
 
-             catfile(curdir(),'Problem-Module','Makefile.PL')   => <<'END',
+             'Problem-Module/Makefile.PL'   => <<'END',
 use ExtUtils::MakeMaker;
 
 WriteMakefile(
@@ -83,7 +91,7 @@ WriteMakefile(
 );
 END
 
-             catfile(curdir(),'Problem-Module','subdir','Makefile.PL')    => <<'END',
+             'Problem-Module/subdir/Makefile.PL'    => <<'END',
 printf "\@INC %s .\n", (grep { $_ eq '.' } @INC) ? "has" : "doesn't have";
 
 warn "I think I'm going to be sick\n";
@@ -93,6 +101,9 @@ END
             );
 
 while(my($file, $text) = each %Files) {
+    # Convert to a relative, native file path.
+    $file = File::Spec->catfile(File::Spec->curdir, split m{\/}, $file);
+
     my $dir = dirname($file);
     mkpath $dir;
     open(FILE, ">$file");