From: mkanat%kerio.com <>
Date: Fri, 27 May 2005 03:07:35 +0000 (+0000)
Subject: Bug 286701: Tests fail compiling Bugzilla::DB::Pg.pm
X-Git-Tag: bugzilla-2.20rc1~77
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=31985208f02a64aed42d915663504ba2eefd6bcf;p=thirdparty%2Fbugzilla.git

Bug 286701: Tests fail compiling Bugzilla::DB::Pg.pm
Patch By Colin Ogilvie <colin.ogilvie@gmail.com> r=mkanat, a=justdave
---

diff --git a/t/001compile.t b/t/001compile.t
index 3037248482..5ea849ac18 100644
--- a/t/001compile.t
+++ b/t/001compile.t
@@ -32,6 +32,10 @@ use Support::Files;
 
 use Test::More tests => scalar(@Support::Files::testitems);
 
+# Need this to get the available driver information
+use DBI;
+my @DBI_drivers = DBI->available_drivers;
+
 # Bugzilla requires Perl 5.6.1 now.  Checksetup will tell you this if you run it, but
 # it tests it in a polite/passive way that won't make it fail at compile time.  We'll
 # slip in a compile-time failure if it's missing here so a tinderbox on 5.00503 won't
@@ -60,6 +64,16 @@ my $perlapp = "\"$^X\"";
 foreach my $file (@testitems) {
     $file =~ s/\s.*$//; # nuke everything after the first space (#comment)
     next if (!$file); # skip null entries
+
+    # Check that we have a DBI module to support the DB, if this is a database
+    # module (but not Schema)
+    if ($file =~ m#Bugzilla/DB/([^/]+)\.pm$# && $file ne "Bugzilla/DB/Schema.pm") {
+        if (!grep(lc($_) =~ /$1/i, @DBI_drivers)) {
+            ok(1,$file." - Skipping, as the DBD module not installed");
+            next;
+        }
+    }
+
     open (FILE,$file);
     my $bang = <FILE>;
     close (FILE);