Add a tool for running test builds.

diff --git a/make/utilities.pm b/make/utilities.pm
index 8b6c1b22517ef8e0f20fe7ec260d2785dec7dfeb..48713fe9e9936bc7035ca718047c28296ebbe577 100644 (file)
--- 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 (executable)
index 0000000..7f1bf68
--- /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';
+}