aboutsummaryrefslogtreecommitdiff
path: root/tests/multibuild.pl
diff options
context:
space:
mode:
Diffstat (limited to 'tests/multibuild.pl')
-rwxr-xr-xtests/multibuild.pl73
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
16if ($ARGV[0] eq "-all" ) { shift(@ARGV); $choice="all"; }
17if ($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
27unlink($logfile);
28
29# Parse the config file
30open(C,"<Config.h.orig") || die;
31while (<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}
46close C;
47
48# Do the real work ...
49$failed_tests=0;
50for $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
69system("mv -f Config.h.orig Config.h");
70
71print "$total_tests applets tested, $failed_tests failures\n";
72print "See $logfile for details.\n";
73