Skip Menu |
 

Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

This queue is for tickets about the DBD-Oracle CPAN distribution.

Report information
The Basics
Id: 84660
Status: resolved
Priority: 0/
Queue: DBD-Oracle

People
Owner: Nobody in particular
Requestors: sgoeldner [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject: 50cursor.t: SYS_REFCURSOR not defined
Download (untitled) / with headers
text/plain 268b
Like in RT #80486, in Oracle8, SYS_REFCURSOR is not defined. Instead of CREATE/DROP PROCEDURE, I'd use an anonymous block - see attached patch. This works in Oracle8 and the tests pass. And the test still shows the problem reported in RT #82663 with DBD::Oracle 1.54.
Subject: 50cursor.t.diff
Download 50cursor.t.diff
text/x-diff 1.7k
--- 50cursor.160 Mon Apr 01 17:42:12 2013 +++ 50cursor.t Tue Apr 16 11:27:46 2013 @@ -37,7 +37,7 @@ $limit = 1; } $limit = 100 if $limit > 100; # lets not be greedy or upset DBA's - $tests = 2 + 10 * $limit + 7; + $tests = 2 + 10 * $limit + 6; plan tests => $tests; @@ -83,34 +83,23 @@ ok($close_cursor->execute, 'close cursor execute'); } -$dbh->{RaiseError} = 1; -eval { - $dbh->do(<<'EOT'); -create or replace procedure dbd_oracle_test(aref out sys_refcursor) as -begin - aref := NULL; -end; -EOT -}; - -my $ev = $@; -diag($ev) if $@; -SKIP: { - skip 'failed to create proc for test so skipping', 5 if $ev; - - local $dbh->{RaiseError} = 0; - - ok(my $sth1 = $dbh->prepare(q/begin dbd_oracle_test(?); end;/), - 'prepare exec of proc for null cursor'); - ok($sth1->bind_param_inout(1, \my $cursor, 100, {ora_type => ORA_RSET}), - 'binding cursor for null cursor'); - ok($sth1->execute, 'execute for null cursor'); - is($cursor, undef, 'undef returned for null cursor'); - ok($sth1->execute, 'execute 2 for null cursor'); - is($cursor, undef, 'undef 2 returned for null cursor'); - ok($dbh->do(q/drop procedure dbd_oracle_test/), - 'drop dbd_oracle_test proc'); -}; +my $PLSQL = <<"PLSQL"; +DECLARE + TYPE t IS REF CURSOR; + c t; +BEGIN + ? := c; +END; +PLSQL + +ok(my $sth1 = $dbh->prepare($PLSQL), + 'prepare exec of proc for null cursor'); +ok($sth1->bind_param_inout(1, \my $cursor, 100, {ora_type => ORA_RSET}), + 'binding cursor for null cursor'); +ok($sth1->execute, 'execute for null cursor'); +is($cursor, undef, 'undef returned for null cursor'); +ok($sth1->execute, 'execute 2 for null cursor'); +is($cursor, undef, 'undef 2 returned for null cursor'); $dbh->disconnect;
in v1.64


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.