[perl #115506] [BUG] Bad failure mode when macro returns AST.new in Rakudo

[Will Coleda via RT]

On Sat Nov 03 09:17:06 2012, masak wrote:
> On Sat Oct 27 10:45:32 2012, masak wrote:
> > <diakopter> r: macro marco { AST.new }; marco
> > <p6eval> rakudo 6859fb: OUTPUT«===SORRY!===␤Error while compiling
> > block : Error while compiling op call: Error while compiling block :
> > Error while compiling block : Unknown QAST node type Any␤»
> > <diakopter> :>
> > <masak> diakopter: fair point.
> > * masak submits rakudobug
> 
> Fixed as of 026880:
> 
> $ nom -e 'macro pathological { AST.new }; pathological(); say "alive"'
> alive
> 
> Tagging testneeded.


I was unable to test this:

#RT #115506
eval_lives_ok
    "macro pathological { AST.new }; pathological();",
    "macro returning AST.new doesn't blow up";

fails with:

prove -v -e t/fudgeandrun t/spec/S06-macros/errors.tt/spec/S06-macros/errors.t 
.. 
1..1
not ok 1 - macro returning AST.new doesn't blow up
# Error: Missing block
# Looks like you failed 1 tests of 1

-- 
Will "Coke" Coleda