RT #40204

Add a TODO'd regression test for the failing behavior.



git-svn-id: https://svn.parrot.org/parrot/trunk@28449 d31e2699-5ff4-0310-a27c-f18f2fbe73fe

t/compilers/imcc/syn/regressions.t

@@ -6,7 +6,7 @@ use strict;
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test tests => 6;
+use Parrot::Test tests => 7;
 
 pir_error_output_like( <<'CODE', <<'OUT', 'invalid get_results syntax');
 .sub main :main
@@ -93,6 +93,18 @@ CODE
 hello
 OUT
 
+pir_error_output_like( <<'CODE', <<'OUT', 'off by one error message (RT#40204)', todo=>'broken');
+.sub foo :main
+  $P0 = new 'Hash'
+  $P1 = $P0['x']
+  unless $P1 goto no
+  print "yes\n"
+no:
+.end
+CODE
+/(?s:Null PMC access in get_bool.*current instr.*:4\))/
+OUT
+
 # Local Variables:
 #   mode: cperl
 #   cperl-indent-level: 4