Add a tool for running test builds.

2 files changed, 83 insertions, 1 deletions

diff --git a/make/utilities.pm b/make/utilities.pm
index 8b6c1b225..48713fe9e 100644
--- a/make/utilities.pm
+++ b/make/utilities.pm
@@ -36,7 +36,7 @@ use File::Spec::Functions qw(rel2abs);
 use Getopt::Long;
 use POSIX;
 
-our @EXPORT = qw(module_installed prompt_bool prompt_dir prompt_string make_rpath pkgconfig_get_include_dirs pkgconfig_get_lib_dirs pkgconfig_check_version translate_functions promptstring);
+our @EXPORT = qw(module_installed prompt_bool prompt_dir prompt_string get_cpu_count make_rpath pkgconfig_get_include_dirs pkgconfig_get_lib_dirs pkgconfig_check_version translate_functions promptstring);
 
 # Parse the output of a *_config program,
 # such as pcre_config, take out the -L
@@ -88,6 +88,21 @@ sub prompt_string($$$) {
 	return $answer ? $answer : $default;
 }
 
+sub get_cpu_count {
+	my $count = 1;
+	if ($^O =~ /bsd/) {
+		$count = `sysctl -n hw.ncpu`;
+	} elsif ($^O eq 'darwin') {
+		$count = `sysctl -n hw.activecpu`;
+	} elsif ($^O eq 'linux') {
+		$count = `getconf _NPROCESSORS_ONLN`;
+	} elsif ($^O eq 'solaris') {
+		$count = `psrinfo -p`;
+	}
+	chomp($count);
+	return $count;
+}
+
 sub promptstring($$$$$)
 {
 	my ($prompt, $configitem, $default, $package, $commandlineswitch) = @_;
diff --git a/tools/test-build b/tools/test-build
new file mode 100755
index 000000000..7f1bf68cd
--- /dev/null
+++ b/tools/test-build
@@ -0,0 +1,67 @@
+#!/usr/bin/env perl
+#
+# InspIRCd -- Internet Relay Chat Daemon
+#
+#   Copyright (C) 2013 Peter Powell <petpow@saberuk.com>
+#
+# This file is part of InspIRCd.  InspIRCd is free software: you can
+# redistribute it and/or modify it under the terms of the GNU General Public
+# License as published by the Free Software Foundation, version 2.
+#
+# This program is distributed in the hope that it will be useful, but WITHOUT
+# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+# FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
+# details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+#
+
+
+BEGIN {
+	require 5.8.0;
+	unless (-f 'configure') {
+		print "Error: test-build must be run from the main source directory!\n";
+		exit 1;
+	}
+}
+
+use strict;
+use warnings FATAL => qw(all);
+
+use make::configure;
+use make::utilities;
+
+$ENV{D} = $ENV{V} = 1;
+
+system 'git', 'clean', '-dfx';
+
+foreach my $compiler ('g++', 'clang++', 'icpc') {
+	next if system "$compiler -v > /dev/null 2>&1";
+	$ENV{CXX} = $compiler;
+	my @socketengines = ( 'select' );
+	push @socketengines, 'epoll' if test_header $compiler, 'sys/epoll.h';
+	push @socketengines, 'kqueue' if test_file $compiler, 'kqueue.cpp';
+	push @socketengines, 'poll' if test_header $compiler, 'poll.h';
+	push @socketengines, 'ports' if test_header $compiler, 'ports.h';
+	foreach my $socketengine (@socketengines) {
+		print "Attempting to build using the $compiler compiler and the $socketengine socket engine...\n";
+		if (system './configure', '--disable-interactive', "--socketengine=$socketengine") {
+			print "Failed to configure using the $compiler compiler and the $socketengine socket engine!\n";
+			exit 1;
+		}
+		$ENV{PURE_STATIC} = 1;
+		if (system 'make', '-j'.get_cpu_count, 'install') {
+			print "Failed to compile with static modules using the $compiler compiler and the $socketengine socket engine!\n";
+			exit 1;
+		}
+		delete $ENV{PURE_STATIC};
+		if (system 'make', '-j'.get_cpu_count, 'install') {
+			print "Failed to compile with dynamic modules using the $compiler compiler and the $socketengine socket engine!\n";
+			exit 1;
+		}
+		print "Building using the $compiler compiler and the $socketengine socket engine succeeded!\n";
+	}
+
+	system 'git', 'clean', '-dfx';
+}