[svn:dbd-oracle] r14692 - dbd-oracle/branches/exe_array/t

Author: byterock
Date: Tue Feb  8 14:20:11 2011
New Revision: 14692

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

Log:
just a fix for t/26exe_array.t so that it works now.  Might not use this in long term though as it is not very thorough

Modified: dbd-oracle/branches/exe_array/t/26exe_array.t
==============================================================================
--- dbd-oracle/branches/exe_array/t/26exe_array.t	(original)
+++ dbd-oracle/branches/exe_array/t/26exe_array.t	Tue Feb  8 14:20:11 2011
@@ -27,8 +27,7 @@
 my $dbh;
 
 eval {
-    $dbh = DBI->connect($dsn, $dbuser, '', { RaiseError=>1, 
-                                             AutoCommit=>1,
+    $dbh = DBI->connect($dsn, $dbuser, '', { AutoCommit=>1,
                                              PrintError => 0,
                                              ora_envhp  => 0,
                                          })
@@ -87,20 +86,8 @@
 
 @var2         = (2,2,2,2,'s',2,2,2,2,2);
 
-{
-  # trap the intentional failure of one of these rows
-  my $warn_count = 0;
-  local $SIG{__WARN__} = sub {
-    my $msg = shift;
-    if ($warn_count++ == 0 && $msg =~ /ORA-24381/) {
-      # this is the first warning, and it's the expected one
-      return;
-    }
-
-    # unexpected warning, pass it through
-    warn $msg;
-  };
-  
+  $dbh->{RaiseError} = 0;
+
   ok (!$sth->execute_array(
         {ArrayTupleStatus => $tuple_status},
           \@var1,
@@ -113,9 +100,7 @@
   cmp_ok( $tuple_status->[4]->[1],'ne','-1','... we should get text');
   
   cmp_ok( $tuple_status->[3],'==',-1,'... we should get -1');
-  is($warn_count, 1, "... we should get a warning");
    
-}
 
 # siple test with execute_for_fetch
 # need some datat