Author: particle
Date: Wed Oct 26 13:59:59 2005
New Revision: 9580
Added:
trunk/imcc/t/syn/errors.t
Modified:
trunk/MANIFEST
Log:
added test file for imcc error messages, and a test for [perl #37541]
Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST (original)
+++ trunk/MANIFEST Wed Oct 26 13:59:59 2005
@@ -712,6 +712,7 @@ imcc/t/reg/spill.t
imcc/t/syn/bsr.t []
imcc/t/syn/clash.t []
imcc/t/syn/const.t []
+imcc/t/syn/errors.t []
imcc/t/syn/eval.t []
imcc/t/syn/file.t []
imcc/t/syn/keyed.t []
Added: trunk/imcc/t/syn/errors.t
==============================================================================
--- (empty file)
+++ trunk/imcc/t/syn/errors.t Wed Oct 26 13:59:59 2005
@@ -0,0 +1,20 @@
+#!perl -w
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
+# $Id$
+
+use strict;
+use Parrot::Test;
+
+## tests for imcc error messages
+
+pir_output_like(<<'CODE', <<'OUT', "op not found");
+.sub 'test' :main
+ branch $P0
+.end
+CODE
+/.*The opcode 'branch' \(branch\<1\>\) was not found\. Check the type and
number of the arguments.*/
+OUT
+
+
+## remember to change the number of tests
+BEGIN { plan tests => 1; }
