Move ExtUtils::MakeMaker from ext/ to cpan/
[perl.git] / cpan / ExtUtils-MakeMaker / t / lib / MakeMaker / Test / Setup / BFD.pm
1 package MakeMaker::Test::Setup::BFD;
2
3 @ISA = qw(Exporter);
4 require Exporter;
5 @EXPORT = qw(setup_recurs teardown_recurs);
6
7 use strict;
8 use File::Path;
9 use File::Basename;
10 use MakeMaker::Test::Utils;
11
12 my $Is_VMS = $^O eq 'VMS';
13
14 my %Files = (
15              'Big-Dummy/lib/Big/Dummy.pm'     => <<'END',
16 package Big::Dummy;
17
18 $VERSION = 0.01;
19
20 =head1 NAME
21
22 Big::Dummy - Try "our" hot dog's
23
24 =cut
25
26 1;
27 END
28
29              'Big-Dummy/Makefile.PL'          => <<'END',
30 use ExtUtils::MakeMaker;
31
32 # This will interfere with the PREREQ_PRINT tests.
33 printf "Current package is: %s\n", __PACKAGE__ unless "@ARGV" =~ /PREREQ/;
34
35 WriteMakefile(
36     NAME          => 'Big::Dummy',
37     VERSION_FROM  => 'lib/Big/Dummy.pm',
38     EXE_FILES     => [qw(bin/program)],
39     PREREQ_PM     => { strict => 0 },
40     ABSTRACT_FROM => 'lib/Big/Dummy.pm',
41     AUTHOR        => 'Michael G Schwern <schwern@pobox.com>',
42 );
43 END
44
45              'Big-Dummy/bin/program'          => <<'END',
46 #!/usr/bin/perl -w
47
48 =head1 NAME
49
50 program - this is a program
51
52 =cut
53
54 1;
55 END
56
57              'Big-Dummy/t/compile.t'          => <<'END',
58 print "1..2\n";
59
60 print eval "use Big::Dummy; 1;" ? "ok 1\n" : "not ok 1\n";
61 print "ok 2 - TEST_VERBOSE\n";
62 END
63
64              'Big-Dummy/Liar/t/sanity.t'      => <<'END',
65 print "1..3\n";
66
67 print eval "use Big::Dummy; 1;" ? "ok 1\n" : "not ok 1\n";
68 print eval "use Big::Liar; 1;" ? "ok 2\n" : "not ok 2\n";
69 print "ok 3 - TEST_VERBOSE\n";
70 END
71
72              'Big-Dummy/Liar/lib/Big/Liar.pm' => <<'END',
73 package Big::Liar;
74
75 $VERSION = 0.01;
76
77 1;
78 END
79
80              'Big-Dummy/Liar/Makefile.PL'     => <<'END',
81 use ExtUtils::MakeMaker;
82
83 my $mm = WriteMakefile(
84               NAME => 'Big::Liar',
85               VERSION_FROM => 'lib/Big/Liar.pm',
86               _KEEP_AFTER_FLUSH => 1
87              );
88
89 print "Big::Liar's vars\n";
90 foreach my $key (qw(INST_LIB INST_ARCHLIB)) {
91     print "$key = $mm->{$key}\n";
92 }
93 END
94
95             );
96
97
98 sub setup_recurs {
99     setup_mm_test_root();
100     chdir 'MM_TEST_ROOT:[t]' if $Is_VMS;
101
102     while(my($file, $text) = each %Files) {
103         # Convert to a relative, native file path.
104         $file = File::Spec->catfile(File::Spec->curdir, split m{\/}, $file);
105
106         my $dir = dirname($file);
107         mkpath $dir;
108         open(FILE, ">$file") || die "Can't create $file: $!";
109         print FILE $text;
110         close FILE;
111
112         # ensure file at least 1 second old for makes that assume
113         # files with the same time are out of date.
114         my $time = calibrate_mtime();
115         utime $time, $time - 1, $file;
116     }
117
118     return 1;
119 }
120
121 sub teardown_recurs { 
122     foreach my $file (keys %Files) {
123         my $dir = dirname($file);
124         if( -e $dir ) {
125             rmtree($dir) || return;
126         }
127     }
128     return 1;
129 }
130
131
132 1;