Fails t/31lob.t when v$session is not available to scott/tiger or
$ENV{ORACLE_USERID}.
Patch below just skips the one test that relies on it if v$session is
not available.
--- 31lob.t.orig 2006-12-04 18:42:10.000000000 -0800
+++ 31lob.t 2006-12-04 18:52:35.000000000 -0800
@@ -59,6 +59,13 @@
return $count;
}
+sub have_v_session {
+ my $dbh = shift;
+ $dbh->do('select * from v$session where 0=1');
+ return if $dbh->err == 942;
+ return 1;
+}
+
## test writing / reading large data
{
# LOB locators cannot span transactions - turn off AutoCommit
@@ -163,6 +170,7 @@
undef $sth;
# lobs are freed with statement handle
+ skip q{can't check num of temp lobs, no access to v$session}, 1,
unless have_v_session($dbh);
is(temp_lob_count($dbh), 0, "no temp lobs left");
}
}
--
Rafael
RT for rt.cpan.org