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

[perl #116873] blead fails several tests on Haiku-OS

Thread Next
From:
James E Keenan via RT
Date:
July 13, 2013 01:06
Subject:
[perl #116873] blead fails several tests on Haiku-OS
Message ID:
rt-3.6.HEAD-2552-1373677593-255.116873-15-0@perl.org
On Tue Feb 19 20:37:59 2013, tonyc wrote:
> This is a bug report for perl from tony@develop-help.com,
> generated with the help of perlbug 1.39 running under perl 5.17.9.
> 
> 
> -----------------------------------------------------------------
> [Please describe your issue here]
> 
> Several tests fail on a default build of perl on Haiku-OS.
> 
> Test Summary Report
> -------------------
> run/exit.t
>    (Wstat: 0 Tests: 17 Failed: 6)
>   Failed tests:  7-9, 14-16
> op/require_errors.t
>    (Wstat: 0 Tests: 11 Failed: 2)
>   Failed tests:  10-11
> op/sigsystem.t
>    (Wstat: 0 Tests: 4 Failed: 2)
>   Failed tests:  3-4
> ../cpan/File-Path/t/Path.t
>    (Wstat: 768 Tests: 55 Failed: 0)
>   Non-zero exit status: 3
>   Parse errors: Bad plan.  You planned 129 tests but ran 55.
> ../cpan/Socket/t/socketpair.t
>    (Wstat: 5888 Tests: 45 Failed: 23)
>   Failed tests:  22-35, 37-45
>   Non-zero exit status: 23
> ../cpan/Time-Piece/t/02core.t
>    (Wstat: 512 Tests: 95 Failed: 2)
>   Failed tests:  38-39
>   Non-zero exit status: 2
> ../dist/ExtUtils-Command/t/eu_command.t
>    (Wstat: 3840 Tests: 22 Failed: 0)
>   Non-zero exit status: 15
>   Parse errors: Bad plan.  You planned 40 tests but ran 22.
> ../dist/Net-Ping/t/450_service.t
>    (Wstat: 256 Tests: 26 Failed: 1)
>   Failed test:  26
>   Non-zero exit status: 1
> ../ext/POSIX/t/wrappers.t
>    (Wstat: 512 Tests: 89 Failed: 2)
>   Failed tests:  87-88
>   Non-zero exit status: 2
> ../lib/File/stat.t
>    (Wstat: 1536 Tests: 5008 Failed: 6)
>   Failed tests:  444, 1529, 2180, 2614, 3265, 4567
>   Non-zero exit status: 6
> Files=2377, Tests=607386, 3823 wallclock secs (167.49 usr 59.16 sys +
>    2036.65 cusr 1424.38 csys = 3687.69 CPU)
> Result: FAIL
> 
> ~/dev/perl/git/perl/t> LIBRARY_PATH=`pwd`/..:$LIBRARY_PATH ./perl
>    harness -v run/exit.t
> run/exit.t ..
> 1..17
> ok 1 - Normal exit
> ok 2 - Normal exit $?
> ok 3 - Normal exit ${^CHILD_ERROR_NATIVE}
> ok 4 - Non-zero exit
> ok 5 - Non-zero exit $?
> ok 6 - Non-zero exit ${^CHILD_ERROR_NATIVE}
> not ok 7 - WIFEXITED
> not ok 8 - WIFSIGNALED
> not ok 9 - WEXITSTATUS
> # Failed test 7 - WIFEXITED at run/exit.t line 67
> # Failed test 8 - WIFSIGNALED at run/exit.t line 68
> # Failed test 9 - WEXITSTATUS at run/exit.t line 69
> #      got "0"
> # expected "42"
> ok 10 - Term by signal
> ok 11 - No core dump
> ok 12 - Term by signal $?
> ok 13 - Term by signal ${^CHILD_ERROR_NATIVE}
> not ok 14 - WIFEXITED
> not ok 15 - WIFSIGNALED
> not ok 16 - WTERMSIG
> # Failed test 14 - WIFEXITED at run/exit.t line 88
> # Failed test 15 - WIFSIGNALED at run/exit.t line 89
> # Failed test 16 - WTERMSIG at run/exit.t line 90
> #      got "0"
> # expected "15"
> ok 17 - Changing $? in END block
> Failed 6/17 subtests
> 
> Test Summary Report
> -------------------
> run/exit.t (Wstat: 0 Tests: 17 Failed: 6)
>   Failed tests:  7-9, 14-16
> Files=1, Tests=17,  0 wallclock secs ( 0.03 usr  0.01 sys +  0.15 cusr
>    0.12 csys =  0.31 CPU)
> Result: FAIL
> 
> ~/dev/perl/git/perl/t> LIBRARY_PATH=`pwd`/..:$LIBRARY_PATH ./perl
>    harness -v op/require_errors.t
> op/require_errors.t ..
> 1..11
> ok 1 - correct error message for require 'tmp41237B'
> ok 2 - correct error message for require ' '
> ok 3 - correct error message for require tmp41237B
> ok 4
> ok 5 - correct error message for require 'tmp41237B.h'
> ok 6 - correct error message for require '.h'
> ok 7 - correct error message for require 'tmp41237B.ph'
> ok 8 - correct error message for require '.ph'
> ok 9 - require <> error
> not ok 10 - special error message if the file exists but can't be
>    opened
> not ok 11 - ...even if we use a full path
> # Failed test 10 - special error message if the file exists but can't
>    be opened at op/require_errors.t line 88
> #      got 'Can't locate tmp41237C.pm in @INC (you may need to install
>    the tmp41237C module) (@INC contains: .) at (eval 11) line 2.
> # BEGIN failed--compilation aborted at (eval 11) line 2.
> # '
> # expected /(?^:^Can\'t\ locate\ tmp41237C\.pm\:)/
> # Failed test 11 - ...even if we use a full path at
>    op/require_errors.t line 100
> #      got 'Can't locate /boot/home/dev/perl/git/perl/t/tmp41237C.pm
>    in @INC (you may need to install the
>    ::boot::home::dev::perl::git::perl::t::tmp41237C module) (@INC
>    contains: .) at op/require_errors.t line 98.
> # '
> # expected /(?^:^Can\'t\ locate\
>    \/boot\/home\/dev\/perl\/git\/perl\/t\/tmp41237C\.pm\:)/
> Failed 2/11 subtests
> 
> Test Summary Report
> -------------------
> op/require_errors.t (Wstat: 0 Tests: 11 Failed: 2)
>   Failed tests:  10-11
> Files=1, Tests=11,  0 wallclock secs ( 0.03 usr  0.01 sys +  0.08 cusr
>    0.05 csys =  0.17 CPU)
> Result: FAIL
> 
> ~/dev/perl/git/perl/t> LIBRARY_PATH=`pwd`/..:$LIBRARY_PATH ./perl
>    harness -v op/sigsystem.t
> op/sigsystem.t ..
> 1..4
> ok 1 - system() without reaper succeeded 10 times out of 10
> ok 2 - system() with reaper succeeded 10 times out of 10
> # Waiting briefly for SIGCHLD...
> not ok 3 - Reaped only one process
> not ok 4 - Reaped the right process.
> # Failed test 3 - Reaped only one process at op/sigsystem.t line 41
> Use of uninitialized value in numeric eq (==) at op/sigsystem.t line
>    42.
> # Failed test 4 - Reaped the right process. at op/sigsystem.t line 42
> # $VAR1 = [];
> Failed 2/4 subtests
> 
> Test Summary Report
> -------------------
> op/sigsystem.t (Wstat: 0 Tests: 4 Failed: 2)
>   Failed tests:  3-4
> Files=1, Tests=4,  2 wallclock secs ( 0.02 usr  0.01 sys +  0.55 cusr
>    0.42 csys =  0.99 CPU)
> Result: FAIL
> 
> ~/dev/perl/git/perl/t> LIBRARY_PATH=`pwd`/..:$LIBRARY_PATH ./perl
>    harness -v ../dist/ExtUtils-Command/t/eu_command.t
> ../dist/ExtUtils-Command/t/eu_command.t ..
> 1..40
> ok 1 - use ExtUtils::Command;
> 
> #   Failed test 'testing non-existent file'
> #   at t/eu_command.t line 50.
> ok 2 - concatenation worked
> not ok 3 - testing non-existent file
> #          got: '0'
> #     expected: '1'
> ok 4 - testing touch() and test_f()
> ok 5 - test_f preserves @ARGV
> ok 6 - created!
> ok 7 - checking modify time stamp
> ok 8 - newer file created
> ok 9 - eqtime
> ok 10 - eqtime doesn't clear the file being equalized
> ok 11 - change a file to execute-only
> ok 12 - change a file to read-only
> ok 13 - change a file to write-only
> ok 14 - chmod preserves @ARGV
> ok 15 - change a file to read-write
> ok 16
> cannot stat current working directory for testdir: Operation not
>    allowed at /boot/home/dev/perl/git/perl/dist/ExtUtils-
>    Command/../../lib/ExtUtils/Command.pm line 134.
> ok 17 - change a dir to execute-only
> ok 18 - change a dir to read-only
> ok 19 - change a dir to write-only
> ok 20 - rm_rf can delete a read-only dir
> ok 21 - temp directory not there yet
> mkdir .: Operation not allowed at
>    /boot/home/dev/perl/git/perl/dist/ExtUtils-
>    Command/../../lib/ExtUtils/Command.pm line 288.
> ok 22 - testing non-existent directory
> cannot fetch initial working directory: Operation not allowed at
>    t/eu_command.t line 282.
> cannot fetch initial working directory: Operation not allowed at
>    t/eu_command.t line 283.
> # Looks like you planned 40 tests but ran 22.
> # Looks like you failed 1 test of 22 run.
> # Looks like your test exited with 15 just after 22.
> Dubious, test returned 15 (wstat 3840, 0xf00)
> Failed 19/40 subtests
> 
> Test Summary Report
> -------------------
> ../dist/ExtUtils-Command/t/eu_command.t (Wstat: 3840 Tests: 22 Failed:
>    1)
>   Failed test:  3
>   Non-zero exit status: 15
>   Parse errors: Bad plan.  You planned 40 tests but ran 22.
> Files=1, Tests=22,  2 wallclock secs ( 0.02 usr  0.01 sys +  0.22 cusr
>    0.07 csys =  0.32 CPU)
> Result: FAIL
> 
> ~/dev/perl/git/perl/t> LIBRARY_PATH=`pwd`/..:$LIBRARY_PATH ./perl
>    harness -v ../dist/Net-Ping/t/450_service.t
> ../dist/Net-Ping/t/450_service.t ..
> 1..26
> ok 1 - use Net::Ping;
> ok 2 - Start a TCP listen server on ephemeral port isa
>    IO::Socket::INET
> ok 3 - Start a second TCP listen server on ephemeral port isa
>    IO::Socket::INET
> ok 4
> ok 5
> ok 6 - Make sure the servers are listening on different ports
> ok 7 - new() worked isa Net::Ping
> ok 8 - first port is reachable
> ok 9 - second port is reachable
> ok 10 - first service is on
> ok 11 - second service is off
> ok 12 - new() worked isa Net::Ping
> ok 13 - send SYN to first port
> ok 14 - IP should be reachable
> ok 15 - No more sockets
> ok 16 - new() worked isa Net::Ping
> ok 17 - send SYN to second port
> ok 18 - IP should be reachable
> ok 19 - No more sockets
> ok 20 - new() worked isa Net::Ping
> ok 21 - send SYN to first port
> ok 22 - IP should be reachable
> ok 23 - No more sockets
> ok 24 - new() worked isa Net::Ping
> ok 25 - send SYN to second port
> 
> #   Failed test 'No sockets should have service on'
> #   at t/450_service.t line 166.
> #          got: '127.0.0.1'
> #     expected: undef
> # Looks like you failed 1 test of 26.
> not ok 26 - No sockets should have service on
> Dubious, test returned 1 (wstat 256, 0x100)
> Failed 1/26 subtests
> 
> Test Summary Report
> -------------------
> ../dist/Net-Ping/t/450_service.t (Wstat: 256 Tests: 26 Failed: 1)
>   Failed test:  26
>   Non-zero exit status: 1
> Files=1, Tests=26,  1 wallclock secs ( 0.02 usr  0.01 sys +  0.23 cusr
>    0.08 csys =  0.35 CPU)
> Result: FAIL
> 
> ~/dev/perl/git/perl/t> LIBRARY_PATH=`pwd`/..:$LIBRARY_PATH ./perl
>    harness -v ../ext/POSIX/t/wrappers.t
> ../ext/POSIX/t/wrappers.t ..
> ok 1 - abs
> ok 2 - abs
> ...
> ok 84 - gets
> ok 85 - getppid
> 
> #   Failed test 'child exited cleanly'
> #   at t/wrappers.t line 219.
> ok 86 - wait
> not ok 87 - child exited cleanly
> #          got: '0'
> #     expected: '1'
> 
> #   Failed test 'child exited with 1 (the retun value of its close
>    call)'
> #   at t/wrappers.t line 220.
> #          got: '0'
> #     expected: '1'
> # Looks like you failed 2 tests of 89.
> not ok 88 - child exited with 1 (the retun value of its close call)
> ok 89 - umask
> 1..89
> Dubious, test returned 2 (wstat 512, 0x200)
> Failed 2/89 subtests
>         (less 2 skipped subtests: 85 okay)
> 
> Test Summary Report
> -------------------
> ../ext/POSIX/t/wrappers.t (Wstat: 512 Tests: 89 Failed: 2)
>   Failed tests:  87-88
>   Non-zero exit status: 2
> Files=1, Tests=89,  1 wallclock secs ( 0.04 usr  0.01 sys +  0.30 cusr
>    0.09 csys =  0.45 CPU)
> Result: FAIL
> 
> ~/dev/perl/git/perl/t> LIBRARY_PATH=`pwd`/..:$LIBRARY_PATH ./perl
>    harness -v ../lib/File/stat.t
> (extracted from piping through less, so stderr out of order.)
> 
> #   Failed test 'correct overload for -A for file with mode=0100'
> #   at ../lib/File/stat.t line 90.
> #          got: '0'
> #     expected: '-1.15740740740741e-05'
> 
> #   Failed test 'correct overload for -A for file with mode=0004'
> #   at ../lib/File/stat.t line 90.
> #          got: '-1.15740740740741e-05'
> #     expected: '-2.31481481481481e-05'
> 
> #   Failed test 'correct overload for -A for dir with mode=0400'
> #   at ../lib/File/stat.t line 90.
> #          got: '-2.31481481481481e-05'
> #     expected: '-3.47222222222222e-05'
> 
> #   Failed test 'correct overload for -A for dir with mode=0002'
> #   at ../lib/File/stat.t line 90.
> #          got: '-3.47222222222222e-05'
> #     expected: '-4.62962962962963e-05'
> cannot stat current working directory for
>    /boot/common/cache/tmp/OGg87AkPGd: Operation not allowed at
>    ../lib/File/Temp.pm line 919.
> # Looks like you failed 4 tests of 5008.
> ...
> ok 4969 - Overload succeeds for -g under use filetest 'access' for
>    ./perl
> ok 4970 - no warnings about VMS ACLs for -g under use filetest
>    'access' for ./penot ok 878 - correct overload for -A for file with
>    mode=0100
> ok 879 - no warnings about VMS ACLs for -A for file with mode=0100
> ok 880 - should be no warning for -A for file with mode=0100
> ...
> ok 1744 - no other warnings seen for -C under use filetest 'access'
>    for file wit
> h mode=0004
> ok 1745 - Overload succeeds for -A for file with mode=0004
> not ok 1746 - correct overload for -A for file with mode=0004
> ok 1747 - no warnings about VMS ACLs for -A for file with mode=0004
> ok 1748 - should be no warning for -A for file with mode=0004
> ...
> ok 2829 - no other warnings seen for -C under use filetest 'access'
>    for dir with mode=0400
> ok 2830 - Overload succeeds for -A for dir with mode=0400
> not ok 2831 - correct overload for -A for dir with mode=0400
> ok 2832 - no warnings about VMS ACLs for -A for dir with mode=0400
> ok 2833 - should be no warning for -A for dir with mode=0400
> ...
> ok 4348 - no other warnings seen for -C under use filetest 'access'
>    for dir with
>  mode=0002
> ok 4349 - Overload succeeds for -A for dir with mode=0002
> not ok 4350 - correct overload for -A for dir with mode=0002
> ok 4351 - no warnings about VMS ACLs for -A for dir with mode=0002
> ok 4352 - should be no warning for -A for dir with mode=0002
> ...
> ok 5008 - check -p detects a pipe
> 1..5008
> Dubious, test returned 4 (wstat 1024, 0x400)
> Failed 4/5008 subtests
> 
> Test Summary Report
> -------------------
> ../lib/File/stat.t (Wstat: 1024 Tests: 5008 Failed: 4)
>   Failed tests:  878, 1746, 2831, 4350
>   Non-zero exit status: 4
> Files=1, Tests=5008, 113 wallclock secs ( 1.22 usr  0.20 sys +  2.63
>    cusr  0.49 csys =  4.54 CPU)
> Result: FAIL
> 

Tony, are we still getting all these failures with Perl 5.18?

Do we have any idea if there is a common cause for some or all of them,
e.g., some feature of Haiku we haven't accounted for or encountered before?

Thank you very much.
Jim Keenan


---
via perlbug:  queue: perl5 status: open
https://rt.perl.org:443/rt3/Ticket/Display.html?id=116873

Thread Next


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