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
