diff options
Diffstat (limited to 'tests/multibuild.pl')
-rwxr-xr-x | tests/multibuild.pl | 73 |
1 files changed, 0 insertions, 73 deletions
diff --git a/tests/multibuild.pl b/tests/multibuild.pl deleted file mode 100755 index 301ed3500..000000000 --- a/tests/multibuild.pl +++ /dev/null | |||
@@ -1,73 +0,0 @@ | |||
1 | #!/usr/bin/perl | ||
2 | |||
3 | # multibuild.pl | ||
4 | # Tests BusyBox-0.48 (at least) to see if each applet builds | ||
5 | # properly on its own. The most likely problems this will | ||
6 | # flush out are those involving preprocessor instructions in | ||
7 | # utility.c. | ||
8 | # | ||
9 | # TODO: some time it might be nice to list absolute and | ||
10 | # differential object sizes for each option... | ||
11 | # | ||
12 | |||
13 | $logfile = "multibuild.log"; | ||
14 | |||
15 | # How to handle all the CONFIG_FEATURE_FOO lines | ||
16 | if ($ARGV[0] eq "-all" ) { shift(@ARGV); $choice="all"; } | ||
17 | if ($ARGV[0] eq "-none") { shift(@ARGV); $choice="none"; } | ||
18 | # neither means, leave that part of Config.h alone | ||
19 | |||
20 | # Support building from pristine source | ||
21 | $make_opt = "-f $ARGV[0]/Makefile CONFIG_SRC_DIR=$ARGV[0]" if ($ARGV[0] ne ""); | ||
22 | |||
23 | # Move the config file to a safe place | ||
24 | -e "Config.h.orig" || 0==system("mv -f Config.h Config.h.orig") || die; | ||
25 | |||
26 | # Clear previous log file, if any | ||
27 | unlink($logfile); | ||
28 | |||
29 | # Parse the config file | ||
30 | open(C,"<Config.h.orig") || die; | ||
31 | while (<C>) { | ||
32 | if ($in_trailer) { | ||
33 | if (!$in_olympus) { | ||
34 | s/^\/\/#/#/ if ($choice eq "all" && !/USE_DEVPS_PATCH/); | ||
35 | s/^#/\/\/#/ if ($choice eq "none"); | ||
36 | } | ||
37 | $in_olympus=1 if /End of Features List/; | ||
38 | $trailer .= $_; | ||
39 | } else { | ||
40 | $in_trailer=1 if /End of Applications List/; | ||
41 | if (/^\/*#define CONFIG_([A-Z0-9_]*)/) { | ||
42 | push @apps, $1; | ||
43 | } | ||
44 | } | ||
45 | } | ||
46 | close C; | ||
47 | |||
48 | # Do the real work ... | ||
49 | $failed_tests=0; | ||
50 | for $a (@apps) { | ||
51 | # print "Testing build of applet $a ...\n"; | ||
52 | open (O, ">Config.h") || die; | ||
53 | print O "#define CONFIG_$a\n", $trailer; | ||
54 | close O; | ||
55 | system("echo -e '\n***\n$a\n***' >>$logfile"); | ||
56 | # With a fast computer and 1-second resolution on file timestamps, this | ||
57 | # process pushes beyond the limits of what unix make can understand. | ||
58 | # That's why need to weed out obsolete files before restarting make. | ||
59 | $result{$a} = system("rm -f *.o applet_source_list; make $make_opt busybox >>$logfile 2>&1"); | ||
60 | $flag = $result{$a} ? "FAILED!!!" : "ok"; | ||
61 | printf("Applet %-20s: %s\n", $a, $flag); | ||
62 | $total_tests++; | ||
63 | $failed_tests++ if $flag eq "FAILED!!!"; | ||
64 | # pause long enough to let user stop us with a ^C | ||
65 | select(undef, undef, undef, 0.03); | ||
66 | } | ||
67 | |||
68 | # Clean up our mess | ||
69 | system("mv -f Config.h.orig Config.h"); | ||
70 | |||
71 | print "$total_tests applets tested, $failed_tests failures\n"; | ||
72 | print "See $logfile for details.\n"; | ||
73 | |||