Re: DBD::Oracle Release Candidate 1

On Fri, 11 Feb 2011 13:43:34 -0500, John Scoles <[email protected]>
wrote:

> Here is the latest and greatest DBD::Oracle for your programming pleasure.
> 
> You can find the Zip file here
> 
> <a 
> href="http://www.pythian.com/news/wp-content/uploads/DBD-Oracle-1.28_RC_1.zip">DBD-Oracle-1.28-RC1.zip</A>

Next to the failures for longdouble, here's a fix for Oracle9:

http://www.xs4all.nl/~procura/DO-128.diff

/pro/bin/perl -MExtUtils::MY -e 'MY->fixin(shift)' -- blib/script/ora_explain
PERL_DL_NONLAZY=1 /pro/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/01base.t .............. # Test loading DBI, DBD::Oracle and version
t/01base.t .............. ok
t/10general.t ........... ok
t/12impdata.t ........... ok
t/14threads.t ........... skipped: this hpux perl 5.010001 not configured to support iThreads
t/15nls.t ............... ok
t/20select.t ............ ok
t/21nchar.t ............. ok
t/22nchar_al32utf8.t .... ok
t/22nchar_utf8.t ........ ok
t/23wide_db.t ........... skipped: Database character set is not Unicode
t/23wide_db_8bit.t ...... skipped: Database character set is not Unicode
t/23wide_db_al32utf8.t .. skipped: Database character set is not Unicode
t/24implicit_utf8.t ..... 1/74

#    row 4: DUMP(nch) = Typ=1 Len=4: 0,38,0,58
t/24implicit_utf8.t ..... 38/74

#    row 4: DUMP(nch) = Typ=1 Len=4: 0,38,0,58
t/24implicit_utf8.t ..... Dubious, test returned 4 (wstat 1024, 0x400)
Failed 4/74 subtests
t/25plsql.t ............. ok
t/26exe_array.t ......... ok
t/28array_bind.t ........ ok
t/30long.t .............. ok
t/31lob.t ............... ok
t/31lob_extended.t ...... ok
t/32xmltype.t ........... ok
t/34pres_lobs.t ......... ok
t/40ph_type.t ........... 1/19  Placeholder behaviour for ora_type=1 VARCHAR2 (the default) varies with Oracle version.
 Oracle 7 didn't strip trailing spaces, Oracle 8 did, until 9.2.x
 Your system doesn't. If that seems odd, let us know.
t/40ph_type.t ........... ok
t/50cursor.t ............ ok
t/51scroll.t ............ ok
t/55nested.t ............ ok
t/56embbeded.t .......... ok
t/58object.t ............ ok
t/60reauth.t ............ skipped: ORACLE_USERID_2 not defined.
t/70meta.t .............. ok
t/80ora_charset.t ....... skipped: Database is set up as US7ASCII

Test Summary Report
-------------------
t/24implicit_utf8.t   (Wstat: 1024 Tests: 74 Failed: 4)
  Failed tests:  33-34, 70-71
  Non-zero exit status: 4
Files=30, Tests=2512, 47 wallclock secs ( 1.43 usr  0.23 sys + 23.53 cusr  2.79 csys = 27.98 CPU)
Result: FAIL
Failed 1/30 test programs. 4/2512 subtests failed.

DBD-Oracle-1.28_RC_2 > prove -vwb t/24implicit_utf8.t
t/24implicit_utf8.t ..
1..74
#  --- testing implicit csform (dbhimp.c sets csform implicitly)
# row:   1: nice_string=\x03 byte_string=3 (, '.')
# row:   2: nice_string=a byte_string=97 (a, 'a')
# row:   3: nice_string=b byte_string=98 (b, 'b')
# row:   4: nice_string=\x{263A} byte_string=9786 (☺, "âº")
#  --- testing with NLS_NCHAR=UTF8
# set $ENV{NLS_NCHAR}=UTF8
# Database 9.2.0.8.0 CHAR set is US7ASCII (Non-Unicode), NCHAR set is AL16UTF16 (Unicode)
# Client 9.2.0.8 NLS_LANG is '<unset>', NLS_NCHAR is 'UTF8'
ok 1 - prepared: insert into dbd_ora__drop_me ( idx, nch, descr, dt ) values( ?, ?, ?, sysdate )
ok 2 - bind_param idx
ok 3 - bind_param nch
ok 4 - bind_param descr withOUT attribute ora_csform
# create table dbd_ora__drop_me ( idx integer, nch nvarchar2(20), descr varchar2(50),  dt date )
ok 5 - insert row 1: control-C
ok 6 - bind_param idx
ok 7 - bind_param nch
ok 8 - bind_param descr withOUT attribute ora_csform
ok 9 - insert row 2: lowercase a
ok 10 - bind_param idx
ok 11 - bind_param nch
ok 12 - bind_param descr withOUT attribute ora_csform
ok 13 - insert row 3: lowercase b
ok 14 - bind_param idx
ok 15 - bind_param nch
ok 16 - bind_param descr withOUT attribute ora_csform
ok 17 - insert row 4: smiley face
ok 18 - prepared: select nch, descr, DUMP(nch), dt from dbd_ora__drop_me order by idx
ok 19 - bind column nch
ok 20 - bind column descr
ok 21 - byte_string test of row 1: column: nch  (uft8) control-C
ok 22 - nice_string test of row 1: column: nch  (uft8) control-C
ok 23 - byte_string test of row 1: column: descr  control-C
ok 24 - nice_string test of row 1: column: descr  control-C
ok 25 - byte_string test of row 2: column: nch  (uft8) lowercase a
ok 26 - nice_string test of row 2: column: nch  (uft8) lowercase a
ok 27 - byte_string test of row 2: column: descr  lowercase a
ok 28 - nice_string test of row 2: column: descr  lowercase a
ok 29 - byte_string test of row 3: column: nch  (uft8) lowercase b
ok 30 - nice_string test of row 3: column: nch  (uft8) lowercase b
ok 31 - byte_string test of row 3: column: descr  lowercase b
ok 32 - nice_string test of row 3: column: descr  lowercase b
not ok 33 - byte_string test of row 4: column: nch  (uft8) smiley face
not ok 34 - nice_string test of row 4: column: nch  (uft8) smiley face
ok 35 - byte_string test of row 4: column: descr  smiley face
ok 36 - nice_string test of row 4: column: descr  smiley face
ok 37 - number of rows fetched

#   Failed test 'byte_string test of row 4: column: nch  (uft8) smiley face'
#   at t/nchar_test_lib.pl line 361.
#          got: '38|58'
#     expected: '9786'

#   Failed test 'nice_string test of row 4: column: nch  (uft8) smiley face'
#   at t/nchar_test_lib.pl line 364.
#          got: '&:'
#     expected: '\x{263A}'
#    row 4: DUMP(nch) = Typ=1 Len=4: 0,38,0,58
#  --- testing with NLS_NCHAR=AL32UTF8
# set $ENV{NLS_NCHAR}=AL32UTF8
# Database 9.2.0.8.0 CHAR set is US7ASCII (Non-Unicode), NCHAR set is AL16UTF16 (Unicode)
# Client 9.2.0.8 NLS_LANG is '<unset>', NLS_NCHAR is 'AL32UTF8'
ok 38 - prepared: insert into dbd_ora__drop_me ( idx, nch, descr, dt ) values( ?, ?, ?, sysdate )
ok 39 - bind_param idx
ok 40 - bind_param nch
ok 41 - bind_param descr withOUT attribute ora_csform
# create table dbd_ora__drop_me ( idx integer, nch nvarchar2(20), descr varchar2(50),  dt date )
ok 42 - insert row 1: control-C
ok 43 - bind_param idx
ok 44 - bind_param nch
ok 45 - bind_param descr withOUT attribute ora_csform
ok 46 - insert row 2: lowercase a
ok 47 - bind_param idx
ok 48 - bind_param nch
ok 49 - bind_param descr withOUT attribute ora_csform
ok 50 - insert row 3: lowercase b
ok 51 - bind_param idx
ok 52 - bind_param nch
ok 53 - bind_param descr withOUT attribute ora_csform
ok 54 - insert row 4: smiley face
ok 55 - prepared: select nch, descr, DUMP(nch), dt from dbd_ora__drop_me order by idx
ok 56 - bind column nch
ok 57 - bind column descr
ok 58 - byte_string test of row 1: column: nch  (uft8) control-C
ok 59 - nice_string test of row 1: column: nch  (uft8) control-C
ok 60 - byte_string test of row 1: column: descr  control-C
ok 61 - nice_string test of row 1: column: descr  control-C
ok 62 - byte_string test of row 2: column: nch  (uft8) lowercase a
ok 63 - nice_string test of row 2: column: nch  (uft8) lowercase a
ok 64 - byte_string test of row 2: column: descr  lowercase a
ok 65 - nice_string test of row 2: column: descr  lowercase a
ok 66 - byte_string test of row 3: column: nch  (uft8) lowercase b
ok 67 - nice_string test of row 3: column: nch  (uft8) lowercase b
ok 68 - byte_string test of row 3: column: descr  lowercase b
ok 69 - nice_string test of row 3: column: descr  lowercase b
not ok 70 - byte_string test of row 4: column: nch  (uft8) smiley face
not ok 71 - nice_string test of row 4: column: nch  (uft8) smiley face
ok 72 - byte_string test of row 4: column: descr  smiley face
ok 73 - nice_string test of row 4: column: descr  smiley face
ok 74 - number of rows fetched

#   Failed test 'byte_string test of row 4: column: nch  (uft8) smiley face'
#   at t/nchar_test_lib.pl line 361.
#          got: '38|58'
#     expected: '9786'

#   Failed test 'nice_string test of row 4: column: nch  (uft8) smiley face'
#   at t/nchar_test_lib.pl line 364.
#          got: '&:'
#     expected: '\x{263A}'
#    row 4: DUMP(nch) = Typ=1 Len=4: 0,38,0,58
# Looks like you failed 4 tests of 74.
Dubious, test returned 4 (wstat 1024, 0x400)
Failed 4/74 subtests

Test Summary Report
-------------------
t/24implicit_utf8.t (Wstat: 1024 Tests: 74 Failed: 4)
  Failed tests:  33-34, 70-71
  Non-zero exit status: 4
Files=1, Tests=74,  1 wallclock secs ( 0.14 usr  0.02 sys +  0.43 cusr  0.11 csys =  0.70 CPU)
Result: FAIL


-- 
H.Merijn Brand  http://tux.nl      Perl Monger  http://amsterdam.pm.org/
using 5.00307 through 5.12 and porting perl5.13.x on HP-UX 10.20, 11.00,
11.11, 11.23 and 11.31, OpenSuSE 10.1, 11.0 .. 11.3 and AIX 5.2 and 5.3.
http://mirrors.develooper.com/hpux/           http://www.test-smoke.org/
http://qa.perl.org      http://www.goldmark.org/jeff/stupid-disclaimers/