Changeset 429 for wiki-toolkit/trunk/lib/Wiki/Toolkit/TestLib.pm

Timestamp:

05/11/08 13:58:49 (5 years ago)

Author:

dom

Message:

Add missing prereq of DBI (caught by the CPAN testers) and don't
use DBI in Makefile.PL

Files:

• wiki-toolkit/trunk/lib/Wiki/Toolkit/TestLib.pm (modified) (5 diffs)

wiki-toolkit/trunk/lib/Wiki/Toolkit/TestLib.pm

@@ -5 +5 @@
 use Wiki::Toolkit;
 use Wiki::Toolkit::TestConfig;
+use DBI;
 
 use vars qw( $VERSION @wiki_info );
@@ -43 +44 @@
 
 my %datastore_info;
+
+my %dsn_prefix = ( MySQL  => "dbi:mysql:",
+                   Pg     => "dbi:Pg:dbname=",
+                   SQLite => "dbi:SQLite:dbname=");
+
 foreach my $dbtype (qw( MySQL Pg SQLite )) {
     if ( $configured{$dbtype}{dbname} ) {
@@ -48 +54 @@
         my $store_class = "Wiki::Toolkit::Store::$dbtype";
         my $setup_class = "Wiki::Toolkit::Setup::$dbtype";
+        my $dsn = $dsn_prefix{$dbtype}.$config{dbname};
+        my $err;
+        if ($err = _test_dsn( $dsn, $config{dbuser}, $config{dbpass}, $config{dbhost})) {
+            warn "connecting to test $dbtype database failed: $err\n";
+            warn "will skip $dbtype tests\n";
+            next;
+        }
         $datastore_info{$dbtype} = {
                                      class  => $store_class,
@@ -258 +271 @@
 }
 
+sub _test_dsn {
+    my ( $dsn, $dbuser, $dbpass, $dbhost ) = @_;
+    $dsn .= ";host=$dbhost" if $dbhost;
+    my $dbh = eval {
+        DBI->connect($dsn, $dbuser, $dbpass, {RaiseError => 1});
+    };
+    return $@;
+}
+
+
 =back
 
@@ -271 +294 @@
 
      Copyright (C) 2003-2004 Kake Pugh.  All Rights Reserved.
+     Copyright (C) 2008 the Wiki::Toolkit team. All Rights Reserved.
 
 This module is free software; you can redistribute it and/or modify it