Re: [perl.git] branch blead, updated. v5.17.6-307-gd2192f4

On Wed, Dec 12, 2012 at 01:18:58AM +0100, Father Chrysostomos wrote:
> In perl.git, the branch blead has been updated
> 
> <http://perl5.git.perl.org/perl.git/commitdiff/d2192f4f82773968f8eb344c3b3b3836b271aa06?hp=23b7025ebc631174249ce95dd496a0f82b55701a>
> 
> - Log -----------------------------------------------------------------
> commit d2192f4f82773968f8eb344c3b3b3836b271aa06
> Author: Father Chrysostomos <sprout@cpan.org>
> Date:   Tue Dec 11 16:18:40 2012 -0800
> 
>     Really fix t/op/lex.t
>     
>     I *thought* I had run the tests after making commit 6d70c68615.
> -----------------------------------------------------------------------
> 
> Summary of changes:
>  t/op/lex.t |    3 ++-
>  1 files changed, 2 insertions(+), 1 deletions(-)
> 
> diff --git a/t/op/lex.t b/t/op/lex.t
> index 7601b95..157ac24 100644
> --- a/t/op/lex.t
> +++ b/t/op/lex.t
> @@ -64,7 +64,8 @@ fresh_perl_is(
>  fresh_perl_is(
>    'BEGIN{ ++$_ for @INC{"charnames.pm","_charnames.pm"};
>            $^H{charnames} = \"foo" } "\N{a}"',
> -  'Constant(\N{a}) unknown at - line 1, within string' . "\n"
> +  "Not a CODE reference at - line 2.\n"
> + ."Propagated at - line 2, within string\n"
>   ."Execution of - aborted due to compilation errors.\n",
>     { stderr => 1 },
>    'no crash when charnames cannot load and %^H holds string reference'

Still broken with PERL_UNICODE= LANG=en_AU.UTF-8

tony@mars:.../perl/t$ LANG=en_AU.UTF-8 PERL_UNICODE= ./perl -I../lib op/lex.t
1..7
ok 1
ok 2
ok 3 - interpolation of hash lookup with space between lexical variable and subscript
ok 4 - interpolation of hash lookup with space between lexical variable and subscript - test for [perl \#70091]
not ok 5 - correct output (and no crash) when charnames cannot load for \N{...}
# Failed test 5 - correct output (and no crash) when charnames cannot load for \N{...} at ./test.pl line 925
#      got "Unknown charname \'a\' at - line 1, within string\nExecution of - aborted due to compilation errors."
# expected "Constant(\\N{a}) unknown at - line 1, within string\nExecution of - aborted due to compilation errors."
# PROG: 
# BEGIN{ ++$_ for @INC{"charnames.pm","_charnames.pm"} } "\N{a}"
# STATUS: 65280
ok 6 - no crash when charnames cannot load and %^H holds string
ok 7 - no crash when charnames cannot load and %^H holds string reference

Similarly for one of the new tests added to t/lib/croak/toke:

tony@mars:.../perl/t$ LANG=en_AU.UTF-8 PERL_UNICODE= ./perl -I../lib lib/croak.t
1..38
# From lib/croak/mg
ok 1 - Perl_magic_setsig
# From lib/croak/op
ok 2 - my $<special>
ok 3 - my $<special_unicode>
ok 4 - OP_HELEM fields
ok 5 - OP_HSLICE fields
ok 6 - delete BAD
ok 7 - exists BAD
ok 8 - exists non-sub
# From lib/croak/pp_ctl
ok 9 - dump with computed label
ok 10 - when outside given
ok 11 - default outside given
# From lib/croak/pp_hot
ok 12 - local %$ref on last line of lvalue sub in lv cx
ok 13 - local @$ref on last line of lvalue sub in lv cx
ok 14 - local %$ref on last line of lvalue sub in non-lv cx
ok 15 - local @$ref on last line of lvalue sub in non-lv cx
ok 16 - \local %$ref
ok 17 - \local @$ref
ok 18 - calling undef sub belonging to undef GV
ok 19 - calling undef sub resident in its GV
ok 20 - calling undef scalar
ok 21 - calling undef magical scalar
# From lib/croak/toke
ok 22 - Unterminated here-doc in string eval
ok 23 - Unterminated here-doc in s/// string eval
ok 24 - Missing name in "my sub"
ok 25 - Missing name in "our sub"
ok 26 - Missing name in "state sub"
ok 27 - Integer constant overloading returning undef
ok 28 - Float constant overloading returning undef
ok 29 - Binary constant overloading returning undef
ok 30 - String constant overloading returning undef
ok 31 - Regexp constant overloading when *^H is undefined
PROG: 
BEGIN { ++$_ for @INC{"charnames.pm","_charnames.pm"} }
"\N{a}"
EXPECTED:
Constant(\N{a}) unknown at - line 2, within string
Execution of - aborted due to compilation errors.
EXIT STATUS: != 0
GOT:
Unknown charname 'a' at - line 2, within string
Execution of - aborted due to compilation errors.
EXIT STATUS: 255
not ok 32 - \N{...} when charnames fails to load but without an error
# Failed test 32 - \N{...} when charnames fails to load but without an error at ./test.pl line 1141
ok 33 - Integer constant overloading returning undef
ok 34 - Float constant overloading returning undef
ok 35 - Binary constant overloading returning undef
ok 36 - String constant overloading returning undef
ok 37 - Regexp constant overloading returning undef
ok 38 - Unterminated delimiter for here document

Tony

• Re: [perl.git] branch blead, updated. v5.17.6-307-gd2192f4 by Tony Cook