Tim Bunce wrote:
file: $CPAN/authors/id/T/TI/TIMB/DBI-1.57.tar.gz
size: 490304 bytes
md5: fca667f59dff24058a8e0e8f09e2aad9
=head2 Changes in DBI 1.57 (svn rev 9639), 13th June 2007
Fixed t/86gofer_fail tests to be less likely to fail falsely.
t/86gofer_fail.t now fails with my build of bleadperl (patchlevel 31376)
with VC++ 6.0 on Win32 (perl -V below). This script was passing OK in
DBI-1.56 with the same perl.
C:\Temp\DBI-1.57>perl -Mblib t\86gofer_fail.t
ok 1 - should fail 100% of the time
ok 2 - $@ should be set
ok 3
ok 4 - errstr should be set
ok 5 - errstr should contain DBI_GOFER_RANDOM
ok 6 - go_response executed flag should be false
target approx 50% random failures, got 48.5%
ok 7 - should fail about 50% of the time, but at least between 10% and
90% (got 48.5)
ok 8 - should fail about 50% of the time, but at least between 10% and
90% (got 48.5)
target less than 20% effective random failures (ideally 0), got 0%
ok 9 - should fail < 20%
ok 10 - should fail < 1%
ok 11
ok 12 - should fail ~25% (ie 50% with one retry) (got 22)
ok 13 - should fail ~25% (ie 50% with one retry) (got 22)
ok 14 - transport request_retry_count should be around 50 (got 44)
ok 15 - transport request_retry_count should be around 50 (got 44)
ok 16
ok 17 - should fail ~50%, ie no retries (got 50)
ok 18 - should fail ~50%, ie no retries (got 50)
ok 19 - transport request_retry_count should be zero or undef
ok 20 - positive percentage should fail randomly
ok 21 - negative percentage should fail non-randomly
Testing random delay
ok 22
Unexpected failure: DBD::Gofer::db do failed: Assertion !((sv)->sv_flags
& 0x00010000) failed: file "..\pad.c", line 1505 at
C:\Temp\DBI-1.57\blib\lib/DBI/Gofer/Execute.pm line 624. at
t\86gofer_fail.t line 129.
1..22
# Looks like your test died just after 22.
C:\Temp\DBI-1.57>perl -V
Summary of my perl5 (revision 5 version 9 subversion 5) configuration:
Platform:
osname=MSWin32, osvers=5.1, archname=MSWin32-x86-perlio
uname=''
config_args='undef'
hint=recommended, useposix=true, d_sigaction=undef
useithreads=undef, usemultiplicity=undef
useperlio=define, d_sfio=undef, uselargefiles=undef, usesocks=undef
use64bitint=undef, use64bitall=undef, uselongdouble=undef
usemymalloc=y, bincompat5005=undef
Compiler:
cc='cl', ccflags ='-nologo -GF -W3 -Od -MD -Zi -DDEBUGGING -DWIN32
-D_CONSOLE -DNO_STRICT -DHAVE_DES_FCRYPT -DPERL_DEBUGGING_MSTATS
-DUSE_PERLIO -DPERL_MSVCRT_READFIX',
optimize='-Od -MD -Zi -DDEBUGGING',
cppflags='-DWIN32'
ccversion='12.00.8804', gccversion='', gccosandvers=''
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
d_longlong=undef, longlongsize=8, d_longdbl=define, longdblsize=10
ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t',
lseeksize=4
alignbytes=8, prototype=define
Linker and Libraries:
ld='link', ldflags ='-nologo -nodefaultlib -debug
-libpath:"C:\perl5\lib\CORE" -machine:x86'
libpth="C:\Program Files\Microsoft Visual Studio\VC98\lib"
libs= oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib
comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib
netapi32.lib uuid.lib ws2_32.lib mpr.lib winmm.lib version.lib
odbc32.lib odbccp32.lib msvcrt.lib
perllibs= oldnames.lib kernel32.lib user32.lib gdi32.lib
winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib
oleaut32.lib netapi32.lib uuid.lib ws2_32.lib mpr.lib winmm.lib
version.lib odbc32.lib odbccp32.lib msvcrt.lib
libc=msvcrt.lib, so=dll, useshrplib=yes, libperl=perl59.lib
gnulibc_version=''
Dynamic Linking:
dlsrc=dl_win32.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' '
cccdlflags=' ', lddlflags='-dll -nologo -nodefaultlib -debug
-libpath:"C:\perl5\lib\CORE" -machine:x86'
Characteristics of this binary (from libperl):
Compile-time options: DEBUGGING MYMALLOC PERL_DONT_CREATE_GVSV
PERL_MALLOC_WRAP USE_PERLIO
Locally applied patches:
DEVEL
Built under MSWin32
Compiled at Jun 14 2007 09:20:24
@INC:
C:/perl5/lib
C:/perl5/site/lib
.
--
