From 31985208f02a64aed42d915663504ba2eefd6bcf Mon Sep 17 00:00:00 2001
From: "mkanat%kerio.com" <>
Date: Fri, 27 May 2005 03:07:35 +0000
Subject: Bug 286701: Tests fail compiling Bugzilla::DB::Pg.pm Patch By Colin
 Ogilvie <colin.ogilvie@gmail.com> r=mkanat, a=justdave

---
 t/001compile.t | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 't/001compile.t')

diff --git a/t/001compile.t b/t/001compile.t
index 303724848..5ea849ac1 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);
-- 
cgit v1.2.3-24-g4f1b