As the subject line says.
Simon
--- macro.t.old Tue Nov 13 02:00:01 2001
+++ macro.t Thu Jan 10 15:52:28 2002
@@ -1,6 +1,6 @@
#! perl -w
-use Parrot::Test tests = 8;
+use Parrot::Test tests = 9;
output_is( 'CODE', OUTPUT, macro, zero parameters );
answer macro
@@ -47,19 +47,19 @@
42
OUTPUT
-#
-# Can't test because I can't capture errors
-#
-#output_is( 'CODE', OUTPUT, macro, one parameter in call, not in def );
-#answermacro
-# print A
-#endm
-# answer 42
-# print \n
-#end
-#CODE
-#42
-#OUTPUT
+SKIP: { skip(Await exceptions, 1);
+
+output_is( 'CODE', OUTPUT, macro, one parameter in call, not in def );
+answer macro
+ print A
+endm
+ answer 42
+ print \n
+end
+CODE
+42
+OUTPUT
+}
output_is( 'CODE', OUTPUT, macro, one used parameter, register );
answer macro A