[svn:parrot] r41831 - branches/pcc_reapply/t/pmc

[dukeleto at svn.parrot.org]

Author: dukeleto
Date: Mon Oct 12 08:26:43 2009
New Revision: 41831
URL: https://trac.parrot.org/parrot/changeset/41831

Log:
[t] Fix a bug in some of the CallSignature tests

Modified:
   branches/pcc_reapply/t/pmc/callsignature.t

Modified: branches/pcc_reapply/t/pmc/callsignature.t
==============================================================================
--- branches/pcc_reapply/t/pmc/callsignature.t	Mon Oct 12 03:25:48 2009	(r41830)
+++ branches/pcc_reapply/t/pmc/callsignature.t	Mon Oct 12 08:26:43 2009	(r41831)
@@ -45,13 +45,13 @@
     setattribute $P0, 'return_flags', $P5
     ok(1, 'set return_flags attribute')
     getattribute $P1, $P0, 'return_flags'
-    is($P5,'moonbomb', 'got return_flags attribute')
+    is($P1,'moonbomb', 'got return_flags attribute')
 
     $P5 = 'cheese'
     setattribute $P0, 'arg_flags', $P5
     ok(1, 'set arg_flags attribute')
     getattribute $P1, $P0, 'arg_flags'
-    is($P5,'cheese', 'got arg_flags attribute')
+    is($P1,'cheese', 'got arg_flags attribute')
 .end