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

[REHSACK]

Author: REHSACK
Date: Fri Jun  4 04:13:11 2010
New Revision: 14097

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

Log:
Fix issue regarding new implementation of dbm_versions

Modified: dbi/trunk/t/50dbm_simple.t
==============================================================================
--- dbi/trunk/t/50dbm_simple.t  (original)
+++ dbi/trunk/t/50dbm_simple.t  Fri Jun  4 04:13:11 2010
@@ -199,8 +199,8 @@
     else {
         $dbm_versions = $dbh->func('dbm_versions');
     }
-    print $dbm_versions;
-    ok($dbm_versions);
+    note $dbm_versions;
+    ok($dbm_versions, 'dbm_versions');
     isa_ok($dbh, 'DBI::db');
 
     # test if it correctly accepts valid $dbh attributes
@@ -254,13 +254,11 @@
         }
        is( $n, $results[$idx], $sql ) unless( 'ARRAY' eq ref $results[$idx] );
        TODO: {
-           local $TODO = "AUTOPROXY drivers might throw away sth->rows()";
+           local $TODO = "AUTOPROXY drivers might throw away sth->rows()" 
if($ENV{DBI_AUTOPROXY});
            is( $n, $sth->rows, '$sth->execute(' . $sql . ') == $sth->rows' ) 
if( $sql =~ m/^(?:UPDATE|DELETE)/ );
        }
         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.
        my $allrows = $sth->fetchall_arrayref();
        my $expected_rows = $results[$idx];
        is( $sth->rows, scalar( @{$expected_rows} ), $sql );