[svn:dbi] r13991 - dbi/trunk/t

[REHSACK]

Author: REHSACK
Date: Mon May 17 04:08:04 2010
New Revision: 13991

Modified:
   dbi/trunk/t/50dbm.t

Log:
- add test with FreezeThaw
- add missing SKIP label


Modified: dbi/trunk/t/50dbm.t
==============================================================================
--- dbi/trunk/t/50dbm.t (original)
+++ dbi/trunk/t/50dbm.t Mon May 17 04:08:04 2010
@@ -30,12 +30,14 @@
     if (eval { require 'MLDBM.pm'; }) {
         push @mldbm_types, 'Data::Dumper' if eval { require 'Data/Dumper.pm' };
         push @mldbm_types, 'Storable'     if eval { require 'Storable.pm' };
+        push @mldbm_types, 'FreezeThaw'   if eval { require 'FreezeThaw.pm' };
     }
 
     # Potential DBM modules in preference order (SDBM_File first)
     # skip NDBM and ODBM as they don't support EXISTS
     my @dbms = qw(SDBM_File GDBM_File DB_File BerkeleyDB);
 
+    # XXX use @{$ENV{DBD_DBM_MODULES}} or so ...
     if ("@ARGV" eq "all") {
        # test with as many of the major DBM types as are available
         @dbm_types = grep { eval { local $^W; require "$_.pm" } } @dbms;
@@ -145,6 +147,7 @@
     };
     ok($@);
 
+    SKIP:
     for my $sql ( @$stmts ) {
         $sql =~ s/\S*fruit/${dtype}_fruit/; # include dbm type in table name
         $sql =~ s/;$//;  # in case no final \n on last line of __DATA__
@@ -175,7 +178,7 @@
         my $n = $sth->execute(@bind);
        print DBI::neat($n), "\n"; # execute might fail
         if ($sth->err and $sql !~ /DROP/) {
-            skip "execute failed",
+            skip "execute failed: " . $sth->errstr || 'unknown error',
                 ($starting_test_no + $tests_in_group - 
$test_builder->current_test);
             die $sth->errstr if $sth->err and $sql !~ /DROP/;
         }