develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35213 - branches/rvar2/languages/perl6/t/pmc

From:
jonathan
Date:
January 8, 2009 09:36
Subject:
[svn:parrot] r35213 - branches/rvar2/languages/perl6/t/pmc
Message ID:
20090108173640.B4270CB9F9@x12.develooper.com
Author: jonathan
Date: Thu Jan  8 09:36:39 2009
New Revision: 35213

Modified:
   branches/rvar2/languages/perl6/t/pmc/perl6multisub-arity.t
   branches/rvar2/languages/perl6/t/pmc/perl6multisub-tiebreak.t
   branches/rvar2/languages/perl6/t/pmc/perl6multisub-type.t

Log:
[rakudo] Update Perl6MultiSub PMC tests.

Modified: branches/rvar2/languages/perl6/t/pmc/perl6multisub-arity.t
==============================================================================
--- branches/rvar2/languages/perl6/t/pmc/perl6multisub-arity.t	(original)
+++ branches/rvar2/languages/perl6/t/pmc/perl6multisub-arity.t	Thu Jan  8 09:36:39 2009
@@ -161,7 +161,7 @@
   param_loop:
     if $I0 == num_params goto param_loop_end
     $P2 = new 'Perl6Hash'
-    $P2["type"] = any
+    $P2["nom_type"] = any
     $P2["multi_invocant"] = true
     push $P1, $P2
     inc $I0

Modified: branches/rvar2/languages/perl6/t/pmc/perl6multisub-tiebreak.t
==============================================================================
--- branches/rvar2/languages/perl6/t/pmc/perl6multisub-tiebreak.t	(original)
+++ branches/rvar2/languages/perl6/t/pmc/perl6multisub-tiebreak.t	Thu Jan  8 09:36:39 2009
@@ -79,8 +79,8 @@
     unless it goto param_loop_end
     con = shift it
     $P2 = new 'Perl6Hash'
-    $P2["type"] = any
-    $P2["constraints"] = con
+    $P2["nom_type"] = any
+    $P2["cons_type"] = con
     $P2["multi_invocant"] = true
     push $P1, $P2
     goto param_loop

Modified: branches/rvar2/languages/perl6/t/pmc/perl6multisub-type.t
==============================================================================
--- branches/rvar2/languages/perl6/t/pmc/perl6multisub-type.t	(original)
+++ branches/rvar2/languages/perl6/t/pmc/perl6multisub-type.t	Thu Jan  8 09:36:39 2009
@@ -187,7 +187,7 @@
     $S0 = $P3
     type = get_hll_global $S0
     $P2 = new 'Perl6Hash'
-    $P2["type"] = type
+    $P2["nom_type"] = type
     $P2["multi_invocant"] = true
     push $P1, $P2
     goto param_loop



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About