[svn:DBD-Pg] r14793 - DBD-Pg/trunk

Author: turnstep
Date: Mon Mar 28 10:14:37 2011
New Revision: 14793

Added:
   DBD-Pg/trunk/testallversions.tmp.pl   (contents, props changed)
Modified:
   DBD-Pg/trunk/MANIFEST.SKIP

Log:
Add quick testing script to compare all compile/target combos


Modified: DBD-Pg/trunk/MANIFEST.SKIP
==============================================================================
--- DBD-Pg/trunk/MANIFEST.SKIP	(original)
+++ DBD-Pg/trunk/MANIFEST.SKIP	Mon Mar 28 10:14:37 2011
@@ -8,6 +8,7 @@
 ^Pg.bs$
 ^Pg.xsi$
 ^pm_to_blib$
+testallversions.tmp.pl
 
 ^_build
 ^DBD-Pg

Added: DBD-Pg/trunk/testallversions.tmp.pl
==============================================================================
--- (empty file)
+++ DBD-Pg/trunk/testallversions.tmp.pl	Mon Mar 28 10:14:37 2011
@@ -0,0 +1,42 @@
+#!/usr/bin/env perl
+
+## Quick script to test all available combinations of Postgres
+## Usage: $0 <postgresdir>
+
+use strict;
+use warnings;
+
+my $basedir = shift || "$ENV{HOME}/code/postgres";
+
+-d $basedir or die qq{No such directory: $basedir\n};
+
+my @versions = qw/ 7.4 8.0 8.1 8.2 8.3 8.4 9.0 HEAD /;
+
+## Sanity check:
+for my $lver (@versions) {
+	my $libdir = "$basedir/$lver/lib";
+	-d $libdir or die qq{Could not find directory: $libdir\n};
+}
+
+for my $lver (@versions) {
+	my $libdir = "$basedir/$lver/lib";
+	-d $libdir or die qq{Could not find directory: $libdir\n};
+	for my $tver (@versions) {
+
+		my $outfile = "dbdpg.testing.$lver.vs.$tver.log";
+		print "Testing library $lver against $tver: results stored in $outfile\n";
+		open my $fh, '>', $outfile or die qq{Could not open "$outfile": $!\n};
+
+		my $COM = "POSTGRES_LIB=/home/greg/code/postgres/$lver/lib perl Makefile.PL 2>&1";
+		print "$COM\n";
+		print $fh qx{$COM};
+
+		(my $port = $tver) =~ s/\.//;
+		$port = "5$port" . 0;
+		$port =~ /HEAD/ and $port = 5999;
+
+		$COM = "PGPORT=$port make test";
+		print "$COM\n";
+		print $fh qx{$COM};
+	}
+}