[svn:dbd-oracle] r15484 - in dbd-oracle/trunk: . t

Author: mjevans
Date: Wed Nov 21 02:42:16 2012
New Revision: 15484

Modified:
   dbd-oracle/trunk/Changes
   dbd-oracle/trunk/t/34pres_lobs.t

Log:
Fix for RT81317 - persistent lobs not available until Oracle 9
Remove ineffective commit in 34pres_lobs.t


Modified: dbd-oracle/trunk/Changes
==============================================================================
--- dbd-oracle/trunk/Changes	(original)
+++ dbd-oracle/trunk/Changes	Wed Nov 21 02:42:16 2012
@@ -40,6 +40,10 @@
     introduced in Oracle 9. Skip if < Oracle 9. Thanks to Steffen
     Goeldner for RT and patch.
 
+  - Fix RT81317. 34pres_lobs.t uses the Data Interface for Persistent
+    LOBs which is new in Oracle 9. Skip if < Oracle 9. Thanks to
+    Steffen Goeldner for RT and patch.
+
   [MISCELLANEOUS]
 
   - The original 26exe_array test was replaced some time ago with a
@@ -51,7 +55,10 @@
   - simple code clean up, replacing 3 uses of safemalloc with Newz
     (John Scoles)
 
-  - New FAQ entry on Solaris and setting linker library path.
+  - New FAQ entry on Solaris and setting linker library path
+    (Martin J. Evans)
+
+  - Removed ineffective commit in 34pres_lobs.t (Martin J. Evans)
 
 1.52      2012-10-19
 

Modified: dbd-oracle/trunk/t/34pres_lobs.t
==============================================================================
--- dbd-oracle/trunk/t/34pres_lobs.t	(original)
+++ dbd-oracle/trunk/t/34pres_lobs.t	Wed Nov 21 02:42:16 2012
@@ -31,7 +31,9 @@
                             AutoCommit=>1,
                             PrintError => 0 ,LongReadLen=>10000000})};
 if ($dbh) {
-    plan tests => 29;
+    plan skip_all => "Data Interface for Persistent LOBs new in Oracle 9"
+        if $dbh->func('ora_server_version')->[0] < 9;
+    plan tests => 28;
 } else {
     plan skip_all => "Unable to connect to Oracle";
 }
@@ -71,9 +73,6 @@
 ok($sth->bind_param(5,$in_blob,{ora_type=>SQLT_BIN}), 'bind p5');
 ok($sth->execute(), 'execute');
 
-ok($dbh->commit(), 'commit');
-
-
 $sql='select * from '.$table;
 
 ok($sth=$dbh->prepare($sql,{ora_pers_lob=>1}), 'prepare with ora_pers_lob');