[svn:parrot] r43091 - branches/context_unify3/t/pmc

bacek at svn.parrot.org bacek at svn.parrot.org
Wed Dec 16 08:53:37 UTC 2009


Author: bacek
Date: Wed Dec 16 08:53:37 2009
New Revision: 43091
URL: https://trac.parrot.org/parrot/changeset/43091

Log:
Update CallContext test to use CallContext, not CallSignature

Modified:
   branches/context_unify3/t/pmc/callcontext.t

Modified: branches/context_unify3/t/pmc/callcontext.t
==============================================================================
--- branches/context_unify3/t/pmc/callcontext.t	Wed Dec 16 08:53:16 2009	(r43090)
+++ branches/context_unify3/t/pmc/callcontext.t	Wed Dec 16 08:53:37 2009	(r43091)
@@ -4,7 +4,7 @@
 
 =head1 NAME
 
-t/pmc/callsignature.t - test CallSignature PMC
+t/pmc/callsignature.t - test CallContext PMC
 
 =head1 SYNOPSIS
 
@@ -12,7 +12,7 @@
 
 =head1 DESCRIPTION
 
-Tests the CallSignature PMC.
+Tests the CallContext PMC.
 
 =cut
 
@@ -33,12 +33,12 @@
 .end
 
 .sub 'test_instantiate'
-    $P0 = new ['CallSignature']
-    ok(1, 'Instantiated CallSignature')
+    $P0 = new ['CallContext']
+    ok(1, 'Instantiated CallContext')
 .end
 
 .sub 'test_get_set_attrs'
-    $P0 = new ['CallSignature']
+    $P0 = new ['CallContext']
     $P5 = new 'String'
 
     $P5 = 'moonbomb'
@@ -55,7 +55,7 @@
 .end
 
 .sub 'test_push_pop_indexed_access'
-    $P0 = new [ 'CallSignature' ]
+    $P0 = new [ 'CallContext' ]
     $P1 = new [ 'Integer' ]
     $P1 = 100
 
@@ -94,7 +94,7 @@
 .end
 
 .sub 'test_shift_unshift_indexed_access'
-    $P0 = new [ 'CallSignature' ]
+    $P0 = new [ 'CallContext' ]
     $P1 = new [ 'Integer' ]
     $P1 = 100
 
@@ -134,7 +134,7 @@
 .end
 
 .sub 'test_indexed_access'
-    $P0    = new [ 'CallSignature' ]
+    $P0    = new [ 'CallContext' ]
     $P0[0] = 100
 
     $I0 = elements $P0
@@ -193,7 +193,7 @@
 .end
 
 .sub 'test_indexed_boxing'
-    $P0    = new [ 'CallSignature' ]
+    $P0    = new [ 'CallContext' ]
     $P0[0] = 100
     $P0[1] = 1.11
 
@@ -234,7 +234,7 @@
 .end
 
 .sub 'test_keyed_access'
-    $P0        = new [ 'CallSignature' ]
+    $P0        = new [ 'CallContext' ]
 
     $P0['foo'] = 100
     $P0['bar'] = 1.11
@@ -262,7 +262,7 @@
 .end
 
 .sub 'test_exists'
-    $P0        = new [ 'CallSignature' ]
+    $P0        = new [ 'CallContext' ]
 
     $P0[0]     = 111
     $P0['foo'] = 100
@@ -281,7 +281,7 @@
 .end
 
 .sub 'test_clone'
-    $P0 = new ['CallSignature']
+    $P0 = new ['CallContext']
     $P0[0] = 42
     $P0[1] = "Hello Parrot"
     $P0['floatval'] = 3.14159


More information about the parrot-commits mailing list