[perl #38760] [BUG] Allow passing "todo => $reason" to Parrot::Test::example_output_(is|like|isnt)

[via RT]

# New Ticket Created by  Bernhard Schmalhofer 
# Please include the string:  [perl #38760]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/rt3/Ticket/Display.html?id=38760 >


Hi,

I tried to use something like:

 example_output_like( "examples/benchmarks/arriter.pir", 
$outputs{arriter.pit}, todo => 'syntax error' );

However the 'todo' flag is not honored. My guess is that the TODO 
variable isn't set in the correct package,
or Test::Builder checks for TODO in the incorrect package.
The definition of 'correct' is anything that works.

CU, Bernhard