develooper Front page | perl.perl5.porters | Postings from December 2017

Re: [perl.git] branch blead updated. v5.27.7-8-g503bc07b4b

Thread Next
From:
Steve Hay via perl5-porters
Date:
December 22, 2017 08:58
Subject:
Re: [perl.git] branch blead updated. v5.27.7-8-g503bc07b4b
Message ID:
CADED=K5oJB1jUd5kO9upTh1+8AVoNQXJa5VFL17uKy9S4zW8hg@mail.gmail.com
On 22 December 2017 at 07:58, Zefram <zefram@fysh.org> wrote:
> In perl.git, the branch blead has been updated
>
> <https://perl5.git.perl.org/perl.git/commitdiff/503bc07b4b9e34ed04a725b2bc8faec1ae0f3be2?hp=8fe3452cc6ac7af8c08c2044cd3757018a9c8887>
>
> - Log -----------------------------------------------------------------
> commit 503bc07b4b9e34ed04a725b2bc8faec1ae0f3be2
> Author: Zefram <zefram@fysh.org>
> Date:   Fri Dec 22 07:54:38 2017 +0000
>
>     test more about exit from special blocks
>
>     Commit 0301e899536a22752f40481d8a1d141b7a7dda82 introduced some tests
>     about ways of exiting from special blocks.  Make those tests more
>     thorough, checking which kinds of special blocks execute after exiting
>     from a special block.  This tests, for example, that exiting from a BEGIN
>     block prevents INIT blocks from running, which when applied to exit(0)
>     is how that bugfix commit broke Module::Install [perl #132577].
>

I'm getting failures from this test script on Win32:

C:\Dev\Git\perl\t>.\perl harness -v op\blocks.t
op/blocks.t ..
1..22
ok 1 - Order of execution of special blocks
ok 2 - blocks interact with packages/scopes
ok 3 - can name blocks as sub FOO
ok 4 - eval-UNITCHECK-eval (bug 70614)
ok 5 - constant named after a special block
ok 6 - context
ok 7 - null PL_curcop in newGP
ok 8 - blocks execute in right order
# 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"; } pri
nt "main\n"; BEGIN { exit 0; }
# STATUS: 0
not ok 9 - BEGIN{exit 0} should exit
# Failed test 10 - BEGIN{exit 1} 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"; } pri
nt "main\n"; BEGIN { exit 1; }
# STATUS: 256
not ok 10 - BEGIN{exit 1} should exit
# Failed test 11 - BEGIN{die} should exit at ./test.pl line 1074
#      got 'begin\nDied at - line 1.\nBEGIN failed--compilation aborted at - lin
e 1.\nunitcheck\ncheck'
# expected /(?^:\Abegin\nDied[^\n]*\.\nBEGIN failed[^\n]*\.\nunitcheck\ncheck\ne
nd\z)/
# PROG:
# BEGIN { $| = 1; } BEGIN { print "begin\n"; } UNITCHECK { print "unitcheck\n";
} CHECK { print "check\n"; } INIT { print "init\n"; } END { print "end\n"; } pri
nt "main\n"; BEGIN { die; }
# STATUS: 65280
not ok 11 - BEGIN{die} should exit
# Failed test 12 - 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"; } pri
nt "main\n"; UNITCHECK { exit 0; }
# STATUS: 0
not ok 12 - UNITCHECK{exit 0} should exit
# Failed test 13 - UNITCHECK{exit 1} 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"; } pri
nt "main\n"; UNITCHECK { exit 1; }
# STATUS: 256
not ok 13 - UNITCHECK{exit 1} should exit
# Failed test 14 - UNITCHECK{die} should exit at ./test.pl line 1074
#      got 'begin\nDied at - line 1.\nUNITCHECK failed--call queue aborted.\nuni
tcheck\ncheck'
# expected /(?^:\Abegin\nDied[^\n]*\.\nUNITCHECK failed[^\n]*\.\nunitcheck\nchec
k\nend\z)/
# PROG:
# BEGIN { $| = 1; } BEGIN { print "begin\n"; } UNITCHECK { print "unitcheck\n";
} CHECK { print "check\n"; } INIT { print "init\n"; } END { print "end\n"; } pri
nt "main\n"; UNITCHECK { die; }
# STATUS: 65280
not ok 14 - UNITCHECK{die} should exit
# Failed test 15 - 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"; } pri
nt "main\n"; CHECK { exit 0; }
# STATUS: 0
not ok 15 - CHECK{exit 0} should exit
# Failed test 16 - CHECK{exit 1} 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"; } pri
nt "main\n"; CHECK { exit 1; }
# STATUS: 256
not ok 16 - CHECK{exit 1} should exit
# Failed test 17 - CHECK{die} should exit at ./test.pl line 1074
#      got 'begin\nunitcheck\nDied at - line 1.\nCHECK failed--call queue aborte
d.\ncheck'
# expected /(?^:\Abegin\nunitcheck\nDied[^\n]*\.\nCHECK failed[^\n]*\.\ncheck\ne
nd\z)/
# PROG:
# BEGIN { $| = 1; } BEGIN { print "begin\n"; } UNITCHECK { print "unitcheck\n";
} CHECK { print "check\n"; } INIT { print "init\n"; } END { print "end\n"; } pri
nt "main\n"; CHECK { die; }
# STATUS: 65280
not ok 17 - CHECK{die} should exit
ok 18 - INIT{exit 0} should exit
ok 19 - INIT{exit 1} should exit
ok 20 - INIT{die} should exit
not ok 21 - RT \#2917: No constraint on how late INIT blocks can run # TODO RT #
2917: INIT{} in eval is wrongly considered too late
# Failed test 21 - RT \#2917: No constraint on how late INIT blocks can run at .
/test.pl line 1062
#      got ""
# expected "in init"
# PROG:
# eval "INIT { print qq(in init); };";
# STATUS: 0
ok 22 - RT \#113934: goto out of BEGIN causes assertion failure
Failed 9/22 subtests

Test Summary Report
-------------------
op/blocks.t (Wstat: 0 Tests: 22 Failed: 9)
  Failed tests:  9-17
Files=1, Tests=22,  2 wallclock secs ( 0.02 usr +  0.02 sys =  0.03 CPU)
Result: FAIL

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