On Fri, 11 Feb 2011 13:43:34 -0500, John Scoles <sco...@pythian.com> 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/
