Author: jzucker
Date: Sat Mar 6 16:20:50 2004
New Revision: 200
Modified:
dbi/trunk/t/50dbm.t
Log:
comments out DBI_SQL_NANO so tests users default
Modified: dbi/trunk/t/50dbm.t
==============================================================================
--- dbi/trunk/t/50dbm.t (original)
+++ dbi/trunk/t/50dbm.t Sat Mar 6 16:20:50 2004
@@ -3,13 +3,13 @@
use DBI;
use File::Path;
use Test::More;
-use vars qw( @mldbm_types @dbm_types $DB_CREATE $DB_RDONLY);
+use vars qw( @mldbm_types @dbm_types );
BEGIN {
use lib qw(./ ../../lib);
# 0=SQL::Statement if avail, 1=DBI::SQL::Nano
# uncomment next line to force use of Nano rather than default behaviour
- $ENV{DBI_SQL_NANO}=1;
+ # $ENV{DBI_SQL_NANO}=1;
# test without MLDBM
# also test with MLDBM if both it and Data::Dumper are available
@@ -25,6 +25,7 @@
eval { require "$_.pm" };
push @dbm_types, $_ unless $@;
}
+
my $num_tests = @mldbm_types * @dbm_types * 11;
if (!$num_tests) {
plan tests => 1;
@@ -101,7 +102,6 @@
die $sth->errstr if $sth->errstr and $sql !~ /DROP/;
next unless $sql =~ /SELECT/;
my $results='';
-
# Note that we can't rely on the order here, it's not portable,
# different DBMs (or versions) will return different orders.
while (my ($key, $value) = $sth->fetchrow_array) {
