1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
use Apache2;
use ModPerl::MM;
use 5.005;
use Apache::Test5005compat;
use Apache::TestMM qw(test clean);
use Apache::TestReport ();
use Apache::TestSmoke ();
use Apache::TestRun ();
use Apache::TestConfigPerl ();
use File::Find qw(finddepth);
my @scripts = ();
{
local @ARGV = qw(VERSION run);
print "Building xs/ ...\n";
my $stat = do "../../build/xsbuilder.pl";
die "failed to run xsbuilder: $@" if !defined($stat) && $@;
}
finddepth(sub {
return unless /(.*?\.pl)\.PL$/;
push @scripts, "$File::Find::dir/$1";
}, '.');
Apache::TestMM::filter_args();
Apache::TestMM::generate_script("t/TEST");
package MY;
sub realclean {
my $inherited = shift->SUPER::realclean(@_);
$inherited .= "\t\$(RM_RF) xsbuilder/tables";
$inherited;
}
ModPerl::MM::WriteMakefile(
NAME => 'libapreq2',
DIR => [qw(xs)],
clean => { FILES => "xs t/logs t/TEST @scripts" },
);
sub copy_docs {
my @lines;
my $dfs = '$(DIRFILESEP)';
foreach my $file (@_) {
my @dirs;
$file =~ /(\w+\.pod)$/ or next;
if ($1 eq "Error.pod" or $1 eq "Table.pod") {
push @dirs, "Apache$dfs$_" for qw/Request Cookie Upload/;
push @dirs, join $dfs, qw/Apache Cookie Jar/ if $1 eq "Error.pod";
}
else {
push @dirs, "Apache";
}
push @lines, map <<EOT, @dirs;
subdirs :: \$(INST_LIBDIR)$dfs$_$dfs$1
\$(INST_LIBDIR)$dfs$_$dfs$1: $file
\$(NOECHO) \$(MKPATH) \$(INST_LIBDIR)$dfs$_
\$(CP) $file \$(INST_LIBDIR)$dfs$_$dfs$1
EOT
}
return join "", @lines;
}
sub test_docs {
my ($pods, $tests) = @_;
return join "", map <<EOT, 0..$#$pods;
$$tests[$_]: $$pods[$_]
pod2test $$pods[$_] $$tests[$_]
EOT
}
sub MY::postamble {
my @docs = <docs/*.pod>;
my @tests = @docs;
s/pod$/t/ for @tests;
return copy_docs(@docs) . test_docs(\@docs,\@tests) . <<EOT;
doc_test : @tests
\$(FULLPERLRUN) "-Mblib" "-MTest::Harness" "-e" "runtests(\@ARGV)" @tests
test :: doc_test
EOT
}
__END__
|
