| timbo@cvs.perl.org 2006-01-11, 8:25 pm |
| Author: timbo
Date: Wed Jan 11 15:51:33 2006
New Revision: 2396
Modified:
dbd-oracle/trunk/t/20select.t
dbd-oracle/trunk/t/25plsql.t
Log:
Fix usage of ora_server_version()
in tests, thanks to Steffen Goeldner
Modified: dbd-oracle/trunk/t/20select.t
====================
====================
====================
==================
--- dbd-oracle/trunk/t/20select.t (original)
+++ dbd-oracle/trunk/t/20select.t Wed Jan 11 15:51:33 2006
@@ -111,7 +111,7 @@ sub run_select_tests {
} # end of run_select_tests
my $ora_server_version = $dbh->func("ora_server_version");
- if ($ora_server_version
< 10) {
+ if ($ora_server_version
->[0] < 10) {
ok(0, 1, 1); # skip
} else {
my $data = $dbh->selectrow_array(q!
Modified: dbd-oracle/trunk/t/25plsql.t
====================
====================
====================
==================
--- dbd-oracle/trunk/t/25plsql.t (original)
+++ dbd-oracle/trunk/t/25plsql.t Wed Jan 11 15:51:33 2006
@@ -304,7 +304,7 @@ SKIP: {
# http://www.nntp.perl.org/group/perl.dbi.users/24217
my $ora_server_version = $dbh->func("ora_server_version");
skip "Client/server version < 9.0", 15
- if DBD::Oracle::ORA_OCI
() < 9.0 || $ora_server_version < 9.8;
+ if DBD::Oracle::ORA_OCI
() < 9.0 || $ora_server_version->[0] < 9;
my $func_name = "dbd_oracle_nvctest".($ENV& #123;DBD_ORACLE_SEQ}
||'');
$dbh->do(qq{
CREATE OR REPLACE FUNCTION $func_name(arg nvarchar2, arg2 nvarchar2)
|