[DBD::Pg 1/2] Skip pg_lo_import_with_oid tests for now. Noted as RT #90448

[dbdpg-commits]

Committed by Greg Sabino Mullane <g...@endpoint.com>

Subject: [DBD::Pg 1/2] Skip pg_lo_import_with_oid tests for now. Noted as RT
#90448

---
 t/03dbmethod.t | 20 +++++++++++++-------
 1 file changed, 13 insertions(+), 7 deletions(-)

diff --git a/t/03dbmethod.t b/t/03dbmethod.t
index 94f1ffd..b64ea80 100644
--- a/t/03dbmethod.t
+++ b/t/03dbmethod.t
@@ -1508,14 +1508,20 @@ SKIP: {
                my $highnumber = 345167;
                $dbh->pg_lo_unlink($highnumber);
                $dbh->commit();
-               my $thandle = $dbh->pg_lo_import_with_oid($filename, 
$highnumber);
-               is ($thandle, $highnumber, $t);
-               ok ($thandle, $t);
+               my $thandle;
+         SKIP: {
+
+                       skip ('Known bug: pg_log_import_with_oid throws an 
error. See RT #90448', 3);
 
-               $t='DB handle method "pg_lo_import_with_oid" inserts correct 
data';
-               $SQL = "SELECT data FROM pg_largeobject where loid = $thandle";
-               $info = $dbh->selectall_arrayref($SQL)->[0][0];
-               is_deeply ($info, "abc\ndef", $t);
+                       $thandle = $dbh->pg_lo_import_with_oid($filename, 
$highnumber);
+                       is ($thandle, $highnumber, $t);
+                       ok ($thandle, $t);
+
+                       $t='DB handle method "pg_lo_import_with_oid" inserts 
correct data';
+                       $SQL = "SELECT data FROM pg_largeobject where loid = 
$thandle";
+                       $info = $dbh->selectall_arrayref($SQL)->[0][0];
+                       is_deeply ($info, "abc\ndef", $t);
+               }
 
                $t='DB handle method "pg_lo_import_with_oid" fails when given 
already used number';
                eval {
-- 
1.8.4