From 9ba5bce06f71e610db752489b4f97e2af56c2577 Mon Sep 17 00:00:00 2001
From: Mark Whitley <markw@lineo.com>
Date: Fri, 9 Mar 2001 01:46:45 +0000
Subject: Added script that tests turning on features in busybox one at a time
 and compiling to see if things break. Initial revision.

---
 tests/multifeat.pl | 81 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 81 insertions(+)
 create mode 100755 tests/multifeat.pl

diff --git a/tests/multifeat.pl b/tests/multifeat.pl
new file mode 100755
index 000000000..1169a3daf
--- /dev/null
+++ b/tests/multifeat.pl
@@ -0,0 +1,81 @@
+#!/usr/bin/perl
+#
+# multifeat.pl
+#
+# Turns on all applets, then tests turning on one feature at a time through
+# iterative compilations. Tests if any features depend on each other in any
+# weird ways or such-like problems.
+#
+# Hacked by Mark Whitley, but based *heavily* on multibuild.pl which was
+# written by Larry Doolittle.
+
+$logfile = "multifeat.log";
+
+# How to handle all the BB_APPLET lines
+# (most thorough testing occurs when you call it with the -all switch)
+if ($ARGV[0] eq "-all" ) { shift(@ARGV); $choice="all"; }
+if ($ARGV[0] eq "-none") { shift(@ARGV); $choice="none"; }
+# neither means, leave that part of Config.h alone
+
+# Support building from pristine source
+$make_opt = "-f $ARGV[0]/Makefile BB_SRC_DIR=$ARGV[0]" if ($ARGV[0] ne "");
+
+# Move the config file to a safe place
+-e "Config.h.orig" || 0==system("mv -f Config.h Config.h.orig") || die;
+
+# Clear previous log file, if any
+unlink($logfile);
+
+# Parse the config file
+open(C,"<Config.h.orig") || die;
+$in_applist=1;
+$in_features=0;
+$in_olympus=0;
+while (<C>) {
+	if ($in_applist) {
+		s/^\/\/#/#/ if ($choice eq "all");
+		s/^#/\/\/#/ if ($choice eq "none");
+		$header .= $_;
+		if (/End of Applications List/) {
+			$in_applist=0;
+			$in_features=1
+		}
+	}
+	elsif ($in_features) {
+		if (/^\/*#define BB_FEATURE_([A-Z0-9_]*)/) {
+			push @features, $1;
+		}
+		if (/End of Features List/) {
+			$in_features=0;
+			$in_olympus=1
+		}
+	} elsif ($in_olympus) {
+		$trailer .= $_;
+	}
+}
+close C;
+
+# Do the real work ...
+$failed_tests=0;
+for $f (@features) {
+	# print "Testing build with feature $f ...\n";
+	open (O, ">Config.h") || die;
+	print O $header, "#define BB_FEATURE_$f\n", $trailer;
+	close O;
+	system("echo -e '\n***\n$f\n***' >>$logfile");
+	# todo: figure out why the "rm -f *.o" is needed
+	$result{$f} = system("rm -f *.o; make $make_opt busybox >>$logfile 2>&1");
+	$flag = $result{$f} ? "FAILED!!!" : "ok";
+	printf("Feature %-20s: %s\n", $f, $flag);
+	$total_tests++;
+	$failed_tests++ if $flag eq "FAILED!!!";
+	# pause long enough to let user stop us with a ^C
+	select(undef, undef, undef, 0.05);
+}
+
+# Clean up our mess
+system("mv -f Config.h.orig Config.h");
+
+print "$total_tests applets tested, $failed_tests failures\n";
+print "See $logfile for details.\n";
+
-- 
cgit v1.2.3