[svn:parrot] r39632 - trunk/t/compilers/imcc/syn

[NotFound at svn.parrot.org]

Author: NotFound
Date: Wed Jun 17 20:44:28 2009
New Revision: 39632
URL: https://trac.parrot.org/parrot/changeset/39632

Log:
[test] add a TODOed test for TT #767

Modified:
   trunk/t/compilers/imcc/syn/errors.t

Modified: trunk/t/compilers/imcc/syn/errors.t
==============================================================================
--- trunk/t/compilers/imcc/syn/errors.t	Wed Jun 17 20:30:30 2009	(r39631)
+++ trunk/t/compilers/imcc/syn/errors.t	Wed Jun 17 20:44:28 2009	(r39632)
@@ -13,7 +13,7 @@
 plan skip_all => 'No reason to compile invalid PBC here'
     if $ENV{TEST_PROG_ARGS} && $ENV{TEST_PROG_ARGS} =~ m/--run-pbc/;
 
-plan tests => 5;
+plan tests => 6;
 
 ## tests for imcc error messages
 
@@ -78,6 +78,20 @@
 /^error:imcc:syntax error, unexpected IDENTIFIER, expecting/
 END_EXPECTED
 
+TODO: {
+  local $TODO = 'TT #767';
+
+pir_error_output_like( <<'END_PIR', <<'END_EXPECTED', 'no multiple .local, TT #767' );
+.sub main :main
+  .local pmc p
+  .local pmc p
+.end
+END_PIR
+/^error:imcc:syntax error, duplicated IDENTIFIER/
+END_EXPECTED
+
+}
+
 # Local Variables:
 #   mode: cperl
 #   cperl-indent-level: 4