Author: coke Date: Wed Nov 12 15:22:02 2008 New Revision: 32581 Modified: trunk/t/compilers/imcc/syn/regressions.t
Log: Add a failing TODO test for RT#45859 Modified: trunk/t/compilers/imcc/syn/regressions.t ============================================================================== --- trunk/t/compilers/imcc/syn/regressions.t (original) +++ trunk/t/compilers/imcc/syn/regressions.t Wed Nov 12 15:22:02 2008 @@ -6,7 +6,7 @@ use warnings; use lib qw( . lib ../lib ../../lib ); use Test::More; -use Parrot::Test tests => 7; +use Parrot::Test tests => 8; pir_error_output_like( <<'CODE', <<'OUT', 'invalid get_results syntax'); .sub main :main @@ -105,6 +105,17 @@ /(?s:Null PMC access in get_bool.*current instr.*:4\))/ OUT +pir_error_output_like( <<'CODE', <<'OUT', 'bare method names not allowed (RT #45859)', todo=>'still allowed'); +.sub foo :main + $P0 = new 'String' + $P0 = 'HI' + $P0.lower() + say $P0 +.end +CODE +/error:imcc:syntax error, unexpected/ +OUT + # Local Variables: # mode: cperl # cperl-indent-level: 4
