----- Original Message -----
From: "Tim Bunce" <[EMAIL PROTECTED]>
To: "John Scoles" <[EMAIL PROTECTED]>
Cc: "Tim Bunce" <[EMAIL PROTECTED]>; <dbi-dev@perl.org>
Sent: Friday, June 15, 2007 5:58 PM
Subject: Re: Announce: DBI-1.57 RC2 (aka DBI-1.56_92)
On Fri, Jun 15, 2007 at 03:00:21PM -0400, John Scoles wrote:
testing with
ftp://ftp.funet.fi/pub/languages/perl/CPAN/authors/Tim_Bunce/DBI-1.56_92.tar.gz
got some differnent results this time
Makefile.PL and nmake when whitout a hitch
I have attaced the nmake test results
seems it is the 40profile.t that is dieing now.
t/40profile...............NOK 14
# Failed test 'should return ref to leaf node'
# in t/40profile.t at line 106.
t/40profile...............NOK 15# Failed test 'should return ref to
leaf
node'
# in t/40profile.t at line 107.
# got: ''
# expected: 'ARRAY'
t/40profile...............NOK 16# Failed test 'should return ref to
correct leaf node
# in t/40profile.t at line 111.
# got: undef
# expected: 'ARRAY(0x1bfa680)'
t/40profile...............ok 44/58# Looks like you failed 3 tests of 58.
t/40profile...............dubious
Test returned status 3 (wstat 768, 0x300)
That's odd. There's nothing windows specific about that code.
What version of perl are you using here?
(t/40profile.t is set up to skip all the tests if $] <= 5.008001.)
perl -v
This is perl, v5.8.8 built for MSWin32-x86-multi-thread
(with 25 registered patches, see perl -V for more detail)
Copyright 1987-2006, Larry Wall
Binary build 817 [257965] provided by ActiveState http://www.ActiveState.com
Built Mar 20 2006 17:54:25
Try it with the attached patch and let me know what it says.
Thanks John.
Anyone else seeing this behaviour?
Tim.
--- DBI.xs (revision 9655)
+++ DBI.xs (working copy)
@@ -4172,6 +4172,7 @@
SvROK(method) ? SvRV(method) : method,
t1, t2
);
+ warn("dbi_profile %d, gimme=%d", SvOK(leaf), GIMME_V);
(void)cv;
if (GIMME_V == G_VOID)
ST(0) = &sv_undef; /* skip sv_mortalcopy if not needed */
Ok that seemed to do the trick I have attached the output of the nmake test
for you
C:\DBI-1.57>nmake test
Microsoft (R) Program Maintenance Utility Version 1.50
Copyright (c) Microsoft Corp 1988-94. All rights reserved.
C:\Perl\bin\perl.exe -MExtUtils::Command -e cp dbiprof
blib\script\dbiprof
pl2bat.bat blib\script\dbiprof
C:\Perl\bin\perl.exe -MExtUtils::Command -e cp dbiproxy
blib\script\dbiproxy
pl2bat.bat blib\script\dbiproxy
C:\Perl\bin\perl.exe -MExtUtils::Command -e cp dbilogstrip
blib\script\dbilogstrip
pl2bat.bat blib\script\dbilogstrip
C:\Perl\bin\perl.exe "-MExtUtils::Command::MM" "-e" "test_harness(0,
'blib\lib', '
blib\arch')" t/*.t
t/01basics................ok
4/130 skipped: developer tests
t/02dbidrv................ok
t/03handle................ok
t/04mods..................ok
t/05thrclone..............ok
t/06attrs.................ok
t/07kids..................ok
t/08keeperr...............ok
t/09trace.................ok
t/10examp.................ok
t/11fetch.................ok
t/12quote.................ok
t/13taint.................ok
t/14utf8..................ok
t/15array.................ok
t/19fhtrace...............ok
t/20meta..................ok
t/30subclass..............ok
t/40profile...............ok 1/58dbi_profile 524288, gimme=0 at t/40profile.t
line 100.
dbi_profile 524288, gimme=128 at t/40profile.t line 117.
t/40profile...............ok 44/58dbi_profile 524288, gimme=128 at
t/40profile.t line 308.
t/40profile...............ok
t/41prof_dump.............ok
1/16 skipped: developer-only test
t/42prof_data.............ok
t/43prof_env..............ok
t/50dbm...................ok
t/60preparse..............ok
t/65transact..............ok
t/70callbacks.............ok
t/72childhandles..........ok
t/80proxy.................ok
t/85gofer.................ok
6/78 skipped: caching of metadata methods returning sth not yet
implemented
t/86gofer_fail............ok
t/pod.....................skipped
all skipped: Test::Pod 1.00 required for testing POD
t/zvg_01basics............ok
4/130 skipped: developer tests
t/zvg_02dbidrv............ok
t/zvg_03handle............ok
44/137 skipped: various reasons
t/zvg_04mods..............ok
t/zvg_05thrclone..........ok
t/zvg_06attrs.............ok
2/145 skipped: drh->dbh->sth inheritance test skipped with DBI_AUTOPROXY
t/zvg_07kids..............ok
t/zvg_08keeperr...........ok
t/zvg_09trace.............ok
t/zvg_10examp.............ok
t/zvg_11fetch.............ok
t/zvg_12quote.............ok
1/10 skipped: Can't test alternate quote_identifier logic with
DBI_AUTOPROXY
t/zvg_13taint.............skipped
all skipped: Taint attribute tests not functional with DBI_AUTOPROXY
t/zvg_14utf8..............ok
t/zvg_15array.............ok
t/zvg_19fhtrace...........ok
t/zvg_20meta..............ok
t/zvg_30subclass..........ok
t/zvg_40profile...........ok 1/58dbi_profile 524288, gimme=0 at ./t/40profile.t
line 100.
dbi_profile 524288, gimme=128 at ./t/40profile.t line 117.
t/zvg_40profile...........ok 44/58dbi_profile 524288, gimme=128 at
./t/40profile.t line 30
8.
t/zvg_40profile...........ok
t/zvg_41prof_dump.........ok
1/16 skipped: developer-only test
t/zvg_42prof_data.........ok
t/zvg_43prof_env..........ok
t/zvg_50dbm...............ok
2/12 skipped: Can't set attributes after connect using DBD::Gofer
t/zvg_60preparse..........ok
t/zvg_65transact..........skipped
all skipped: Transactions not supported by DBD::Gofer
t/zvg_70callbacks.........ok
t/zvg_72childhandles......ok
2/14 skipped: slow tests avoided when using DBD::Gofer
t/zvg_80proxy.............ok
t/zvg_85gofer.............ok
15/78 skipped: various reasons
t/zvg_86gofer_fail........skipped
all skipped: Gofer DBI_AUTOPROXY
t/zvp_01basics............ok
6/130 skipped: various reasons
t/zvp_02dbidrv............ok
10/51 skipped: various reasons
t/zvp_03handle............ok
57/137 skipped: various reasons
t/zvp_04mods..............ok
t/zvp_05thrclone..........ok
t/zvp_06attrs.............ok
7/145 skipped: various reasons
t/zvp_07kids..............skipped
all skipped: $h->{Kids} attribute not supported for DBI::PurePerl
t/zvp_08keeperr...........ok
t/zvp_09trace.............ok
t/zvp_10examp.............ok
3/205 skipped: inner/outer handles not fully supported for DBI::PurePerl
t/zvp_11fetch.............ok
t/zvp_12quote.............ok
t/zvp_13taint.............skipped
all skipped: Taint attributes not supported with DBI::PurePerl
t/zvp_14utf8..............ok
t/zvp_15array.............ok
t/zvp_19fhtrace...........ok
t/zvp_20meta..............ok
t/zvp_30subclass..........ok
t/zvp_40profile...........skipped
all skipped: profiling not supported for DBI::PurePerl
t/zvp_41prof_dump.........skipped
all skipped: profiling not supported for DBI::PurePerl
t/zvp_42prof_data.........skipped
all skipped: profiling not supported for DBI::PurePerl
t/zvp_43prof_env..........skipped
all skipped: profiling not supported for DBI::PurePerl
t/zvp_50dbm...............ok
t/zvp_60preparse..........skipped
all skipped: preparse not supported for DBI::PurePerl
t/zvp_65transact..........ok
t/zvp_70callbacks.........skipped
all skipped: $h->{Callbacks} attribute not supported for DBI::PurePerl
t/zvp_72childhandles......ok
t/zvp_80proxy.............skipped
all skipped: DBD::Proxy currently has a problem under DBI::PurePerl
t/zvp_85gofer.............ok
6/78 skipped: caching of metadata methods returning sth not yet
implemented
t/zvp_86gofer_fail........skipped
all skipped: requires Callbacks which are not supported with PurePerl
t/zvxgp_01basics..........ok
6/130 skipped: various reasons
t/zvxgp_02dbidrv..........ok
10/51 skipped: various reasons
t/zvxgp_03handle..........ok
76/137 skipped: various reasons
t/zvxgp_04mods............ok
t/zvxgp_05thrclone........ok
t/zvxgp_06attrs...........ok
9/145 skipped: various reasons
t/zvxgp_07kids............skipped
all skipped: $h->{Kids} attribute not supported for DBI::PurePerl
t/zvxgp_08keeperr.........ok
t/zvxgp_09trace...........ok
t/zvxgp_10examp...........ok
3/205 skipped: inner/outer handles not fully supported for DBI::PurePerl
t/zvxgp_11fetch...........ok
t/zvxgp_12quote...........ok
1/10 skipped: Can't test alternate quote_identifier logic with
DBI_AUTOPROXY
t/zvxgp_13taint...........skipped
all skipped: Taint attributes not supported with DBI::PurePerl
t/zvxgp_14utf8............ok
t/zvxgp_15array...........ok
t/zvxgp_19fhtrace.........ok
t/zvxgp_20meta............ok
t/zvxgp_30subclass........ok
t/zvxgp_40profile.........skipped
all skipped: profiling not supported for DBI::PurePerl
t/zvxgp_41prof_dump.......skipped
all skipped: profiling not supported for DBI::PurePerl
t/zvxgp_42prof_data.......skipped
all skipped: profiling not supported for DBI::PurePerl
t/zvxgp_43prof_env........skipped
all skipped: profiling not supported for DBI::PurePerl
t/zvxgp_50dbm.............ok
2/12 skipped: Can't set attributes after connect using DBD::Gofer
t/zvxgp_60preparse........skipped
all skipped: preparse not supported for DBI::PurePerl
t/zvxgp_65transact........skipped
all skipped: Transactions not supported by DBD::Gofer
t/zvxgp_70callbacks.......skipped
all skipped: $h->{Callbacks} attribute not supported for DBI::PurePerl
t/zvxgp_72childhandles....ok
2/14 skipped: slow tests avoided when using DBD::Gofer
t/zvxgp_80proxy...........skipped
all skipped: DBD::Proxy currently has a problem under DBI::PurePerl
t/zvxgp_85gofer...........ok
15/78 skipped: various reasons
t/zvxgp_86gofer_fail......skipped
all skipped: requires Callbacks which are not supported with PurePerl
All tests successful, 25 tests and 295 subtests skipped.
Files=121, Tests=5339, 88 wallclock secs ( 0.00 cusr + 0.00 csys = 0.00 CPU)
C:\Perl\bin\perl.exe "-Iblib\lib" "-Iblib\arch" test.pl
test.pl
DBI test application $Revision: 9451 $
Switch: DBI 1.57 by Tim Bunce, 1.57
Available Drivers: DBM, ExampleP, File, Gofer, Oracle, Proxy, Sponge
dbi:ExampleP:: testing 3 sets of 20 connections:
Connecting... 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
Disconnecting...
Connecting... 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
Disconnecting...
Connecting... 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
Disconnecting...
connect 20 and disconnect them, 3 times: 0.0156s / 60 = 0.0003s
Testing handle creation speed...
17064 NullP sth/s perl 5.008008 MSWin32-x86-multi-thread (cl 12.00.8804 -MD -Zi
-DNDEBUG -
O1) 0.000059s
test.pl done