Remove debugging statement.
[oweals/busybox.git] / tests / multibuild.pl
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 BB_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 BB_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 BB_([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 BB_$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