Front page | perl.cvs.parrot |
Postings from January 2009
[svn:parrot] r35136 - trunk/languages/perl6/t/pmc
From:
pmichaud
Date:
January 7, 2009 09:24
Subject:
[svn:parrot] r35136 - trunk/languages/perl6/t/pmc
Message ID:
20090107172416.9784CCB9F9@x12.develooper.com
Author: pmichaud
Date: Wed Jan 7 09:24:15 2009
New Revision: 35136
Modified:
trunk/languages/perl6/t/pmc/perl6multisub-arity.t
trunk/languages/perl6/t/pmc/perl6multisub-tiebreak.t
trunk/languages/perl6/t/pmc/perl6multisub-type.t
Log:
[rakudo]: Change find_global -> get_global.
Modified: trunk/languages/perl6/t/pmc/perl6multisub-arity.t
==============================================================================
--- trunk/languages/perl6/t/pmc/perl6multisub-arity.t (original)
+++ trunk/languages/perl6/t/pmc/perl6multisub-arity.t Wed Jan 7 09:24:15 2009
@@ -33,13 +33,13 @@
.sub 'simple'
$P0 = new "Perl6MultiSub"
- $P1 = find_global 'simple_1'
+ $P1 = get_global 'simple_1'
'attach_any_sig'($P1, 0)
push $P0, $P1
- $P1 = find_global 'simple_2'
+ $P1 = get_global 'simple_2'
'attach_any_sig'($P1, 1)
push $P0, $P1
- $P1 = find_global 'simple_3'
+ $P1 = get_global 'simple_3'
'attach_any_sig'($P1, 3)
push $P0, $P1
@@ -74,10 +74,10 @@
.sub 'with_optional'
$P0 = new "Perl6MultiSub"
- $P1 = find_global 'with_optional_1'
+ $P1 = get_global 'with_optional_1'
'attach_any_sig'($P1, 0)
push $P0, $P1
- $P1 = find_global 'with_optional_2'
+ $P1 = get_global 'with_optional_2'
'attach_any_sig'($P1, 2)
push $P0, $P1
@@ -100,7 +100,7 @@
.sub 'with_slurpy'
$P0 = new "Perl6MultiSub"
- $P1 = find_global 'with_slurpy_1'
+ $P1 = get_global 'with_slurpy_1'
'attach_any_sig'($P1, 0)
push $P0, $P1
@@ -119,10 +119,10 @@
.sub 'another_with_slurpy'
$P0 = new "Perl6MultiSub"
- $P1 = find_global 'another_with_slurpy_1'
+ $P1 = get_global 'another_with_slurpy_1'
'attach_any_sig'($P1, 0)
push $P0, $P1
- $P1 = find_global 'another_with_slurpy_2'
+ $P1 = get_global 'another_with_slurpy_2'
'attach_any_sig'($P1, 1)
push $P0, $P1
Modified: trunk/languages/perl6/t/pmc/perl6multisub-tiebreak.t
==============================================================================
--- trunk/languages/perl6/t/pmc/perl6multisub-tiebreak.t (original)
+++ trunk/languages/perl6/t/pmc/perl6multisub-tiebreak.t Wed Jan 7 09:24:15 2009
@@ -30,12 +30,12 @@
.sub 'constraint_tiebreak'
$P0 = new "Perl6MultiSub"
- $P1 = find_global 'constraint_tiebreak_1'
+ $P1 = get_global 'constraint_tiebreak_1'
$P2 = null
'attach_sig'($P1, $P2)
push $P0, $P1
- $P1 = find_global 'constraint_tiebreak_2'
- $P2 = find_global 'constraint_tiebreak_2_con'
+ $P1 = get_global 'constraint_tiebreak_2'
+ $P2 = get_global 'constraint_tiebreak_2_con'
'attach_sig'($P1, $P2)
push $P0, $P1
Modified: trunk/languages/perl6/t/pmc/perl6multisub-type.t
==============================================================================
--- trunk/languages/perl6/t/pmc/perl6multisub-type.t (original)
+++ trunk/languages/perl6/t/pmc/perl6multisub-type.t Wed Jan 7 09:24:15 2009
@@ -32,10 +32,10 @@
.sub 'basic_class'
$P0 = new "Perl6MultiSub"
- $P1 = find_global 'basic_class_1'
+ $P1 = get_global 'basic_class_1'
'attach_sig'($P1, 'Int')
push $P0, $P1
- $P1 = find_global 'basic_class_2'
+ $P1 = get_global 'basic_class_2'
'attach_sig'($P1, 'Junction')
push $P0, $P1
@@ -65,10 +65,10 @@
# Set up multis.
$P0 = new "Perl6MultiSub"
- $P1 = find_global 'role_1'
+ $P1 = get_global 'role_1'
'attach_sig'($P1, 'R1')
push $P0, $P1
- $P1 = find_global 'role_2'
+ $P1 = get_global 'role_2'
'attach_sig'($P1, 'R2')
push $P0, $P1
@@ -107,16 +107,16 @@
p6meta.'new_class'('Stone', 'parent'=>'Any')
$P0 = new "Perl6MultiSub"
- $P1 = find_global 'ordered_class_1'
+ $P1 = get_global 'ordered_class_1'
'attach_sig'($P1, 'Any', 'Any')
push $P0, $P1
- $P1 = find_global 'ordered_class_2'
+ $P1 = get_global 'ordered_class_2'
'attach_sig'($P1, 'Paper', 'Stone')
push $P0, $P1
- $P1 = find_global 'ordered_class_3'
+ $P1 = get_global 'ordered_class_3'
'attach_sig'($P1, 'Stone', 'Scissors')
push $P0, $P1
- $P1 = find_global 'ordered_class_4'
+ $P1 = get_global 'ordered_class_4'
'attach_sig'($P1, 'Scissors', 'Paper')
push $P0, $P1
-
[svn:parrot] r35136 - trunk/languages/perl6/t/pmc
by pmichaud