develooper 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
 



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