Re: ANNOUNCE: DBD::Oracle 1.25 Release Candidate 4

On Wed, 15 Sep 2010 10:35:03 -0400, John Scoles <[email protected]>
wrote:

> Ok here I am again for the fourth time :(
> 
> You can find it here
> 
> http://svn.perl.org/modules/dbd-oracle/trunk/DBD-Oracle-1.25-RC4.tar

Please use the correct extension: .tar.gz

> This one has some more warning fixes and a little add to the Pod. Small 
> but annoying.
> 
> I wonder if I will break a record this time??
> 
> I think it was 5??

Longdouble causes tests to fail?


Using DBI 1.613 (for perl 5.012000 on i686-linux-64int-ld)
                                                      ^^^
Configuring DBD::Oracle for perl 5.012000 on linux (i686-linux-64int-ld)

Installing on a linux, Ver#2.6
Using Oracle in /pro/oracle/v11.2
DEFINE _SQLPLUS_RELEASE = "1102000100" (CHAR)
Oracle version 11.2.0.1 (11.2)


System: perl5.012000 linux nb09 2.6.31.12-0.2-default #1 smp 2010-03-16 21:25:39 +0100 i686 i686 i386 gnulinux
Compiler:   cc -O2 -DDEBUGGING -fno-strict-aliasing -pipe -fstack-protector -I/pro/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64
Linker:     /usr/bin/ld
Sysliblist:
Oracle makefiles would have used these definitions but we override them:
  CC:       /usr/bin/gcc
  LDFLAGS:  -g $(MTYPE)
sh: shell: command not found
           [-g ]
Linking with  -L../../ -locci -lclntsh -lpthread [from $(CCLIB)]

/pro/bin/perl -p -e "s/~DRIVER~/Oracle/g" /pro/lib/perl5/site_perl/5.12.0/i686-linux-64int-ld/auto/DBI/Driver.xst > Oracle.xsi
/pro/bin/perl /pro/lib/perl5/5.12.0/ExtUtils/xsubpp  -typemap /pro/lib/perl5/5.12.0/ExtUtils/typemap -typemap typemap  Oracle.xs > Oracle.xsc && mv Oracle.xsc Oracle.c
cc -c  -I/usr/include/oracle/11.2/client  -I/pro/lib/perl5/site_perl/5.12.0/i686-linux-64int-ld/auto/DBI -DDEBUGGING -fno-strict-aliasing -pipe -fstack-protector -I/pro/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -O2   -DVERSION=\"1.25\" -DXS_VERSION=\"1.25\" -fPIC "-I/pro/lib/perl5/5.12.0/i686-linux-64int-ld/CORE"  -Wall -Wno-comment -DUTF8_SUPPORT -DORA_OCI_VERSION=\"11.2.0.1\" -DORA_OCI_102 -DORA_OCI_112 Oracle.c
cc -c  -I/usr/include/oracle/11.2/client  -I/pro/lib/perl5/site_perl/5.12.0/i686-linux-64int-ld/auto/DBI -DDEBUGGING -fno-strict-aliasing -pipe -fstack-protector -I/pro/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -O2   -DVERSION=\"1.25\" -DXS_VERSION=\"1.25\" -fPIC "-I/pro/lib/perl5/5.12.0/i686-linux-64int-ld/CORE"  -Wall -Wno-comment -DUTF8_SUPPORT -DORA_OCI_VERSION=\"11.2.0.1\" -DORA_OCI_102 -DORA_OCI_112 dbdimp.c
dbdimp.c: In function ‘dbd_rebind_ph_char’:
dbdimp.c:2513:20: warning: cast from pointer to integer of different size
dbdimp.c: In function ‘dbd_rebind_ph_xml’:
dbdimp.c:2711:17: warning: cast to pointer from integer of different size
dbdimp.c: In function ‘ora_bind_ph’:
dbdimp.c:3004:6: warning: format ‘%ld’ expects type ‘long int’, but argument 2 has type ‘IV’
dbdimp.c:3013:5: warning: format ‘%ld’ expects type ‘long int’, but argument 2 has type ‘IV’
dbdimp.c:3047:4: warning: format ‘%ld’ expects type ‘long int’, but argument 3 has type ‘IV’
cc -c  -I/usr/include/oracle/11.2/client  -I/pro/lib/perl5/site_perl/5.12.0/i686-linux-64int-ld/auto/DBI -DDEBUGGING -fno-strict-aliasing -pipe -fstack-protector -I/pro/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -O2   -DVERSION=\"1.25\" -DXS_VERSION=\"1.25\" -fPIC "-I/pro/lib/perl5/5.12.0/i686-linux-64int-ld/CORE"  -Wall -Wno-comment -DUTF8_SUPPORT -DORA_OCI_VERSION=\"11.2.0.1\" -DORA_OCI_102 -DORA_OCI_112 oci8.c
oci8.c: In function ‘ora_blob_read_mb_piece’:
oci8.c:1645:4: warning: format ‘%ld’ expects type ‘long int’, but argument 6 has type ‘UV’
oci8.c: In function ‘ora_st_fetch’:
oci8.c:3802:9: warning: format ‘%ld’ expects type ‘long int’, but argument 4 has type ‘IV’
oci8.c:3810:9: warning: format ‘%ld’ expects type ‘long int’, but argument 3 has type ‘IV’
Running Mkbootstrap for DBD::Oracle ()
chmod 644 Oracle.bs
rm -f blib/arch/auto/DBD/Oracle/Oracle.so
LD_RUN_PATH="/pro/oracle/v11.2/lib" cc  -shared -O2 -L/pro/local/lib -fstack-protector Oracle.o dbdimp.o oci8.o  -o blib/arch/auto/DBD/Oracle/Oracle.so        \
           -L/pro/oracle/v11.2/lib -L/pro/3gl/CPAN/dbd-oracle-1.25/../.. -locci -lclntsh -lpthread      \

chmod 755 blib/arch/auto/DBD/Oracle/Oracle.so
cp Oracle.bs blib/arch/auto/DBD/Oracle/Oracle.bs
chmod 644 blib/arch/auto/DBD/Oracle/Oracle.bs
/pro/bin/perl "-Iblib/arch" "-Iblib/lib" ora_explain.PL ora_explain
Extracted ora_explain from ora_explain.PL with variable substitutions.
cp ora_explain blib/script/ora_explain
/pro/bin/perl -MExtUtils::MY -e 'MY->fixin(shift)' -- blib/script/ora_explain
Manifying blib/man1/ora_explain.1
Manifying blib/man3/DBD::Oracle.3
Manifying blib/man3/DBD::Oraperl.3


$ make test
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 linux perl 5.012000 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 ..... ok
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/36lob_leak.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 ............ 6/51



t/58object.t ............ Dubious, test returned 4 (wstat 1024, 0x400)
Failed 4/51 subtests
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/58object.t          (Wstat: 1024 Tests: 51 Failed: 4)
  Failed tests:  27, 31, 33-34
  Non-zero exit status: 4
Files=31, Tests=2133, 197 wallclock secs ( 0.77 usr  0.07 sys +  5.43 cusr  0.72 csys =  6.99 CPU)
Result: FAIL
Failed 1/31 test programs. 4/2133 subtests failed.
make: *** [test_dynamic] Error 255

$ prove -vwb t/58object.t
t/58object.t ..
1..51
ok 1 - use DBI;
ok 2 - ora_objects flag is set to 1
ok 3 - ora_objects flag is set to 0
ok 4 - The object isa DBI::db
ok 5 - Fetch current schema name
ok 6 - old: Prepare select
ok 7 - old: Execute select
ok 8 - old: Fetch first row
ok 9 - old: Row 1 column 2 is an ARRAY
ok 10 - old: Row 1 column 2 is has 2 elements
ok 11 - old: Fetch second row
ok 12 - old: Row 2 column 2 is an ARRAY
ok 13 - old: Row 2 column 2 is has 2 elements
ok 14 - old: Fetch third row
ok 15 - old: Row 3 column 2 is an ARRAY
ok 16 - old: Row 3 column 2 is has 2 elements
ok 17 - old: No more rows expected
ok 18 - new: Prepare select
ok 19 - new: Execute select
ok 20 - new: Fetch first row
ok 21 - new: Row 1 column 2 is an DBD:Oracle::Object
ok 22 - new: Row 1 column 2 object type
ok 23 - new: Row 1 column 2 object attributes
ok 24 - new: Fetch second row
ok 25 - new: Row 2 column 2 is an DBD::Oracle::Object
ok 26 - new: Row 2 column 2 object type
not ok 27 - new: Row 1 column 2 object attributes

#   Failed test 'new: Row 1 column 2 object attributes'
#   at t/58object.t line 160.
#     Structures begin differing at:
#          $got->[7] = '12345.678899999999'
#     $expected->[7] = '12345.6789'
ok 28 - new: Fetch third row
ok 29 - new: Row 3 column 2 is an DBD::Oracle::Object
ok 30 - new: Row 3 column 2 object type
not ok 31 - new: Row 1 column 2 object attributes

#   Failed test 'new: Row 1 column 2 object attributes'
#   at t/58object.t line 167.
#     Structures begin differing at:
#          $got->[7] = '777.666000000000054'
#     $expected->[7] = '777.666'
ok 32 - new: No more rows expected
not ok 33 - DBD::Oracle::Object->attr_hash

#   Failed test 'DBD::Oracle::Object->attr_hash'
#   at t/58object.t line 182.
#     Structures begin differing at:
#          $got->{AMOUNT} = '777.666000000000054'
#     $expected->{AMOUNT} = '777.666'
not ok 34 - DBD::Oracle::Object->attr

#   Failed test 'DBD::Oracle::Object->attr'
#   at t/58object.t line 183.
#     Structures begin differing at:
#          $got->{AMOUNT} = '777.666000000000054'
#     $expected->{AMOUNT} = '777.666'
ok 35 - DBD::Oracle::Object->attr("NAME")
ok 36 - new: Prepare select with nested table of objects
ok 37 - new: Execute (nested table)
ok 38 - new: Fetch first row (nested table)
ok 39 - Check propertes of first (and only) item in nested table
ok 40 - new: No more rows expected (nested table)
ok 41 - new: Prepare select with nested object
ok 42 - new: Execute (nested object)
ok 43 - new: Fetch first row (nested object)
ok 44 - Check obj.num
ok 45 - Check obj.obj
ok 46 - new: Fetch second row (nested object)
ok 47 - Check obj.num
ok 48 - Check obj.obj
ok 49 - new: Fetch third row (nested object)
ok 50 - Check obj
ok 51 - new: No more rows expected (nested object)
# Looks like you failed 4 tests of 51.
Dubious, test returned 4 (wstat 1024, 0x400)
Failed 4/51 subtests

Test Summary Report
-------------------
t/58object.t (Wstat: 1024 Tests: 51 Failed: 4)
  Failed tests:  27, 31, 33-34
  Non-zero exit status: 4
Files=1, Tests=51,  4 wallclock secs ( 0.04 usr  0.00 sys +  0.08 cusr  0.01 csys =  0.13 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.3, 11.0, and 11.1, 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/