[svn:dbd-oracle] r2396 - dbd-oracle/trunk/t

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)