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

Committed by Greg Sabino Mullane <greg-O9fzpki4YnJWk0Htik3J/[email protected]>

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