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
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
|
#!/usr/bin/perl
# Write out a Makefile and a build.xml file based on the *.inputs files
# in the current directory. Steve Wainstead, April 2001.
# $Id: makemakebuild.pl,v 1.3 2001/12/22 05:14:16 rurban Exp $
# read in all the input files, loop over each one and build up
# text blocks that we will subsitute into the skeletons for Makefile
# and build.xml.
# reqirements:
# sun's java sdk, http://java.sun.com/j2se/
# httpunit, http://httpunit.sf.net
# ant, http://jakarta.apache.org/builds/jakarta-ant/release/
# usage:
# copy the httpunit jars to this path or add them to your CLASSPATH
# fix the url below for your server
# run makemakebuild.pl, this creates Makefile (gnu make) and build.xml (ant)
# run make, this compiles the classes and runs ant.
# if your classpath is wrong run ant seperately to test.
# run ant for each test. both ant and make can run independently.
#my $my_wikiurl = 'http://reini/phpwiki/'; # this will replace steve's url below if defined
#-----------------------------------------
my $ori_wikiurl = 'http://127.0.0.1:8080/~swain/phpwiki/';
my @files = <*.inputs>;
chomp(@files); # prolly unnecessary, but oh well.
print "Found ", scalar(@files), " input files.\n";
foreach $inputfile (@files) {
$inputfile =~ m/\.inputs$/;
$javafile = "$`.java";
$classname = $`;
if ($my_wikiurl and ($my_wikiurl ne $ori_wikiurl)) {
local $/;
open IN, "< $inputfile";
$contents = <IN>;
`perl -i.orig -pe 's|$ori_wikiurl|$my_wikiurl|' $inputfile` if $contents =~ m|$ori_wikiurl|;
}
$test_make_target_names .= "$javafile ";
$test_make_targets .=<<"EOLN";
$javafile: $inputfile
\tmaketest.pl $inputfile
EOLN
$test_ant_targets .= <<"EOLN";
<target name="$classname">
<echo message="Testing with $classname..."/>
<java classname="$classname"></java>
</target>
EOLN
push @test_dependency_names, $classname;
}
$test_dependency_names = join(',', @test_dependency_names);
# print <<"SHOW_RESULTS";
# make's targets: $test_make_target_names
# make's acutual targets:
# $test_make_targets
# ant's target names: $test_dependency_names
# ant's targets:
# $test_ant_targets
# SHOW_RESULTS
# these are the skeleton files for the Makefile and the build.xml file
$makefile = <<MAKEFILE_SKEL;
# Generate new test classes if their input files have changed.
# This makefile is called from an Ant build.xml though you can run
# it by hand.
.SUFFIXES: .inputs .java .class .zip
.PHONY: all clean buildtests dotest
tests = $test_make_target_names
# ANT_HOME=P:\\ant # path style os dependent!
CLASSPATH="httpunit.jar:Tidy.jar:classes.zip"
testsrc = \$(wildcard *.inputs)
javas = \$(testsrc:.inputs=.java)
classes = \$(javas:.java=.class)
tests = \$(javas:.java=)
all: buildtests classes.zip dotest
dotest: \$(classes)
\texport CLASSPATH=\$(CLASSPATH)
\tant
#\tjava -classpath "\$(CLASSPATH):\${ANT_HOME}\\lib\\ant.jar" -Dant.home="\${ANT_HOME}" org.apache.tools.ant.Main \$(<:.class=)
buildtests: \$(javas) classes.zip
classes.zip: \$(classes)
\tzip \$@ \$?
clean:
\t-rm -f \$(javas) \$(classes) classes.zip
%.java : %.inputs
\tmaketest.pl \$<
%.class : %.java
\tjavac -classpath httpunit.jar \$<
MAKEFILE_SKEL
$buildxml = <<"BUILDXML_SKEL";
<project name="test" default="all">
<target
name="all"
depends="init,generate,compile,test">
</target>
<target name="init">
<tstamp/>
</target>
<target name="generate" depends="init">
<exec executable="make">
<arg line="buildtests"/>
</exec>
</target>
<target name="compile" depends="generate">
<javac srcdir="." destdir="." />
</target>
<target name="test" depends="compile,$test_dependency_names">
</target>
<target name="clean">
<exec executable="make">
<arg line="clean"/>
</exec>
<delete>
<fileset dir="." includes="*.class"/>
</delete>
</target>
<!-- individual test files are compiled here -->
$test_ant_targets
</project>
BUILDXML_SKEL
print "Writing Makefile...\n";
open MAKEFILE, ">./Makefile" or die $!;
print MAKEFILE $makefile;
print "Writing build.xml...\n";
open BUILDXML, ">./build.xml" or die $!;
print BUILDXML $buildxml;
print "Done.\n";
|
