develooper Front page | perl.perl5.porters | Postings from July 2019

[perl #134295] t/op/blocks.t failing tests 9-11 on Windows

Thread Previous
From:
Steve Hay
Date:
July 18, 2019 20:48
Subject:
[perl #134295] t/op/blocks.t failing tests 9-11 on Windows
Message ID:
rt-4.0.24-30239-1563482875-1208.134295-75-0@perl.org
# New Ticket Created by  Steve Hay 
# Please include the string:  [perl #134295]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=134295 >


This is a bug report for perl from steve.m.hay@googlemail.com,
generated with the help of perlbug 1.41 running under perl 5.31.2.


-----------------------------------------------------------------
[Please describe your issue here]

t/op/blocks.t is failing tests 9-11 on Windows, at least in GCC
builds. (I've not tested VC++ yet because the build is currently
broken - see RT#134221.)

This is also seen in Smoke reports from other users, e.g.
https://perl5.test-smoke.org/report/91300

C:\Dev\Git\perl\t>.\perl harness op\blocks.t
op/blocks.t .. 4/22 # Failed test 9 - BEGIN{exit 0} should exit at
./test.pl line 1062
#      got "begin\nunitcheck\ncheck"
# expected "begin\nunitcheck\ncheck\nend"
# PROG:
# BEGIN { $| = 1; } BEGIN { print "begin\n"; } UNITCHECK { print
"unitcheck\n"; } CHECK { print "check\n"; } INIT { print "init\n"; }
END { print "end\n"; } print "main\n"; BEGIN { exit 0; }
# STATUS: 0
# Failed test 10 - UNITCHECK{exit 0} should exit at ./test.pl line 1062
#      got "begin\nunitcheck\ncheck"
# expected "begin\nunitcheck\ncheck\nend"
# PROG:
# BEGIN { $| = 1; } BEGIN { print "begin\n"; } UNITCHECK { print
"unitcheck\n"; } CHECK { print "check\n"; } INIT { print "init\n"; }
END { print "end\n"; } print "main\n"; UNITCHECK { exit 0; }
# STATUS: 0
# Failed test 11 - CHECK{exit 0} should exit at ./test.pl line 1062
#      got "begin\nunitcheck\ncheck"
# expected "begin\nunitcheck\ncheck\nend"
# PROG:
# BEGIN { $| = 1; } BEGIN { print "begin\n"; } UNITCHECK { print
"unitcheck\n"; } CHECK { print "check\n"; } INIT { print "init\n"; }
END { print "end\n"; } print "main\n"; CHECK { exit 0; }
# STATUS: 0
op/blocks.t .. Failed 3/22 subtests
        (less 6 skipped subtests: 13 okay)

Test Summary Report
-------------------
op/blocks.t (Wstat: 0 Tests: 22 Failed: 3)
  Failed tests:  9-11
Files=1, Tests=22,  1 wallclock secs ( 0.00 usr +  0.01 sys =  0.01 CPU)
Result: FAIL

[Please do not change anything below this line]
-----------------------------------------------------------------
---
Flags:
    category=core
    severity=low
---
Site configuration information for perl 5.31.2:

Configured by Steve at Thu Jul 18 20:29:48 2019.

Summary of my perl5 (revision 5 version 31 subversion 2) configuration:

  Platform:
    osname=MSWin32
    osvers=6.1.7601
    archname=MSWin32-x64-multi-thread
    uname=''
    config_args='undef'
    hint=recommended
    useposix=true
    d_sigaction=undef
    useithreads=define
    usemultiplicity=define
    use64bitint=define
    use64bitall=undef
    uselongdouble=undef
    usemymalloc=n
    default_inc_excludes_dot=define
    bincompat5005=undef
  Compiler:
    cc='gcc'
    ccflags =' -s -O2 -DWIN32 -DWIN64 -DCONSERVATIVE
-DPERL_TEXTMODE_SCRIPTS -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS
-fwrapv -fno-strict-aliasing -mms-bitfields'
    optimize='-s -O2'
    cppflags='-DWIN32'
    ccversion=''
    gccversion='5.2.0'
    gccosandvers=''
    intsize=4
    longsize=4
    ptrsize=8
    doublesize=8
    byteorder=12345678
    doublekind=3
    d_longlong=define
    longlongsize=8
    d_longdbl=define
    longdblsize=16
    longdblkind=3
    ivtype='long long'
    ivsize=8
    nvtype='double'
    nvsize=8
    Off_t='long long'
    lseeksize=8
    alignbytes=8
    prototype=define
  Linker and Libraries:
    ld='g++'
    ldflags ='-s -L"c:\perl\lib\CORE"
-L"C:\Dev\Software\MinGW-w64\x64\5.2.0\lib"'
    libpth=C:\Dev\Software\MinGW-w64\x64\5.2.0\lib
    libs=-lmoldname -lkernel32 -luser32 -lgdi32 -lwinspool -lcomdlg32
-ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32
-lmpr -lwinmm -lversion -lodbc32 -lodbccp32 -lcomctl32
    perllibs=-lmoldname -lkernel32 -luser32 -lgdi32 -lwinspool
-lcomdlg32 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid
-lws2_32 -lmpr -lwinmm -lversion -lodbc32 -lodbccp32 -lcomctl32
    libc=
    so=dll
    useshrplib=true
    libperl=libperl531.a
    gnulibc_version=''
  Dynamic Linking:
    dlsrc=dl_win32.xs
    dlext=dll
    d_dlsymun=undef
    ccdlflags=' '
    cccdlflags=' '
    lddlflags='-mdll -s -L"c:\perl\lib\CORE"
-L"C:\Dev\Software\MinGW-w64\x64\5.2.0\lib"'


---
@INC for perl 5.31.2:
    C:/perl/site/lib
    C:/perl/lib

---
Environment for perl 5.31.2:
    HOME (unset)
    LANG (unset)
    LANGUAGE (unset)
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
    PATH=C:\Dev\Software\MinGW-w64\x64\5.2.0\bin;C:\Windows\system32;C:\Windows;C:\Windows\system32\wbem;C:\WinDDK\7600.16385.1\Debuggers;C:\Program
Files\Git\cmd;C:\Program
Files\TortoiseSVN\bin;C:\Dev\Software\Depends;C:\Dev\Software\dmake;C:\Dev\Software\cmake\bin;C:\Dev\Software\gmake;C:\Dev\Software\nasm;C:\Dev\Batch
    PERL_BADLANG (unset)
    SHELL (unset)


Thread Previous


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About