On Wed, Oct 20, 2004 at 06:22:04PM +0200, Honza Pazdziora wrote:
>
> Database and client versions and character sets:
> Database 8.0.5.2.1 CHAR set is EE8ISO8859P2 (Non-Unicode), NCHAR set is EE8ISO8859P2
> (Non-Unicode)
> Client 9.2.0.0.0 NLS_LANG is '<unset>', NLS_NCHAR is '<unset>'
>
> and I get
>
> t/23wide_db_8bit........set $ENV{NLS_LANG}=AMERICAN_AMERICA.WE8MSWIN1252
> dubious
> Test returned status 0 (wstat 11, 0xb)
Odd. If the appended patch doesn't fix (or workaround) it please
try digging deeper.
> Scalar found where operator expected at (eval 154) line 1, near "'int' $__val"
> (Missing operator before $__val?)
That's coming from Test::Harness _after_ the test has exitied.
It's probably a problem with your local copy of wait.ph
(See corestatus() in Test::Harness)
> t/25plsql...............1..83
> [...]
> ok 65
> After p1=[Hello] p2=[Y] p3=[Y]
> test nvarchar2 arg passing to functions
> Can't call method "bind_columns" on an undefined value at t/25plsql.t line 319.
Try the appended patch. But please also run "perl -Mblib t/25plsql.t"
so I can see what the specific error is.
Thanks!
Tim.
Index: t/23wide_db_8bit.t
===================================================================
--- t/23wide_db_8bit.t (revision 506)
+++ t/23wide_db_8bit.t (working copy)
@@ -42,9 +42,10 @@
}
END {
+ local($?, $!);
eval {
- local $dbh->{PrintError} = 0;
- drop_table($dbh) if $dbh and not $ENV{'DBD_SKIP_TABLE_DROP'};
+ local $dbh->{PrintError} = 0 if $dbh;
+ drop_table($dbh) if $dbh and not $ENV{'DBD_SKIP_TABLE_DROP'};
};
}
Index: t/25plsql.t
===================================================================
--- t/25plsql.t (revision 506)
+++ t/25plsql.t (working copy)
@@ -313,9 +313,9 @@
return 1;
end if;
END;
- }) or skip("Can't create a function ($DBI::errstr)", 16);
- my $sth = $dbh->prepare(qq{SELECT $func_name(?, ?) FROM DUAL});
- ok(0, $sth);
+ }) or skip("Can't create a function ($DBI::errstr)", 15);
+ my $sth = $dbh->prepare(qq{SELECT $func_name(?, ?) FROM DUAL})
+ or skip("Can't select from function ($DBI::errstr)", 15);
ok(0, $sth->bind_columns(\my $returnVal));
for (1..2) {
ok(0, $sth->bind_param(1, "foo", { ora_csform => SQLCS_NCHAR }));
@@ -344,7 +344,7 @@
ok(0, !$dbh->ping);
exit 0;
-BEGIN { $tests = 83 }
+BEGIN { $tests = 82 }
# end.
__END__
