[svn:dbd-oracle] r14760 - dbd-oracle/trunk/t

Author: mjevans
Date: Fri Mar 18 04:06:38 2011
New Revision: 14760

Modified:
   dbd-oracle/trunk/t/26exe_array.t

Log:
Remove the setting of PrintError to 1 as it can interfere with TAP
add "order by" to check_data to ensure we get the data back in the right order
Fix tuple count in update()


Modified: dbd-oracle/trunk/t/26exe_array.t
==============================================================================
--- dbd-oracle/trunk/t/26exe_array.t	(original)
+++ dbd-oracle/trunk/t/26exe_array.t	Fri Mar 18 04:06:38 2011
@@ -43,7 +43,7 @@
 if (!$dbh) {
     plan skip_all => "Unable to connect to Oracle";
 }
-$dbh->{PrintError} = 1;
+#$dbh->{PrintError} = 1;
 my $has_test_nowarnings = 1;
 eval "require Test::NoWarnings";
 $has_test_nowarnings = undef if $@;
@@ -114,7 +114,7 @@
 {
     my ($dbh, $c1, $c2) = @_;
 
-    my $data = $dbh->selectall_arrayref(qq/select * from $table/);
+    my $data = $dbh->selectall_arrayref(qq/select * from $table order by a/);
     my $row = 0;
     foreach (@$data) {
         is($_->[0], $c1->[$row], "row $row p1 data");
@@ -441,7 +441,7 @@
     $sth->bind_param_array(2, ['dave%', 'fred%']);
     insert($dbh, $sth,
            {commit => 0, error => 0, sts => 2, affected => 5,
-            tuple => [1, 1], %$ref});
+            tuple => [4, 1], %$ref});
     check_data($dbh, \@p1, [qw(pete pete pete pete pete)]);