Not getting this on windows and 32 bit linux
Hmm!!!
having a look at it at
in oci8.c on line 2046
text str_buf[200];
double dnum;
size_t str_len;
dnum is set up as a double.
later on 2174 I where I return the value
(void) OCINumberToReal(fbh->imp_sth->errhp, (CONST OCINumber *) attr_value,
(uword) sizeof(dnum), (dvoid *) &dnum);
perhaps the (uword) is causing the problem??????
can you give it few tests for me and see what you come up with??
Cheers
John
On Wed, Sep 15, 2010 at 2:35 PM, H.Merijn Brand <h.m.br...@xs4all.nl> wrote:
> On Wed, 15 Sep 2010 10:35:03 -0400, John Scoles <sco...@pythian.com>
> 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/
>
--
The best compliment you could give Pythian for our service is a referral.
