[svn:parrot] r45009 - branches/pcc_megrecells/t/pmc

bacek at svn.parrot.org bacek at svn.parrot.org
Thu Mar 18 11:24:04 UTC 2010


Author: bacek
Date: Thu Mar 18 11:24:03 2010
New Revision: 45009
URL: https://trac.parrot.org/parrot/changeset/45009

Log:
Remove outdated tests.

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

Modified: branches/pcc_megrecells/t/pmc/callcontext.t
==============================================================================
--- branches/pcc_megrecells/t/pmc/callcontext.t	Thu Mar 18 11:23:40 2010	(r45008)
+++ branches/pcc_megrecells/t/pmc/callcontext.t	Thu Mar 18 11:24:03 2010	(r45009)
@@ -19,12 +19,10 @@
 .sub 'main' :main
     .include 'test_more.pir'
 
-    plan(66)
+    plan(37)
 
     test_instantiate()
     test_get_set_attrs()
-    test_push_pop_indexed_access()
-    test_shift_unshift_indexed_access()
     test_indexed_access()
     test_indexed_boxing()
     test_keyed_access()
@@ -54,85 +52,6 @@
     is($P5,'cheese', 'got arg_flags attribute')
 .end
 
-.sub 'test_push_pop_indexed_access'
-    $P0 = new [ 'CallContext' ]
-    $P1 = new [ 'Integer' ]
-    $P1 = 100
-
-    push $P0, $P1
-    $I0 = elements $P0
-    is( $I0, 1, 'elements after push' )
-
-    $P2 = $P0[0]
-    is( $P2, 100, 'push_pmc/get_pmc_keyed_int pair' )
-    $P2 = pop $P0
-    is( $P2, 100, 'push_pmc/pop_pmc pair' )
-
-    $I0 = elements $P0
-    is( $I0, 0, 'elements after pop' )
-
-    push $P0, 200
-    $I0 = $P0[0]
-    is( $I0, 200, 'push_integer/get_integer_keyed_int pair' )
-    $I0 = pop $P0
-    is( $I0, 200, 'push_integer/pop_integer pair' )
-
-    push $P0, 3.03
-    $N0 = $P0[0]
-    is( $N0, 3.03, 'push_number/get_number_keyed_int pair' )
-    $N0 = pop $P0
-    is( $N0, 3.03, 'push_number/pop_number pair' )
-
-    push $P0, 'hello'
-    $S0 = $P0[0]
-    is( $S0, 'hello', 'push_string/get_string_keyed_int pair' )
-    $S0 = pop $P0
-    is( $S0, 'hello', 'push_string/pop_string pair' )
-
-    $I0 = elements $P0
-    is( $I0, 0, 'elements after push/pop' )
-.end
-
-.sub 'test_shift_unshift_indexed_access'
-    $P0 = new [ 'CallContext' ]
-    $P1 = new [ 'Integer' ]
-    $P1 = 100
-
-    unshift $P0, $P1
-
-    $I0 = elements $P0
-    is( $I0, 1, 'elements after unshift' )
-
-    $P2 = $P0[0]
-    is( $P2, 100, 'unshift_pmc/get_pmc_keyed_int pair' )
-    $P2 = shift $P0
-    is( $P2, 100, 'unshift_pmc/shift_pmc pair' )
-
-    $I0 = elements $P0
-    is( $I0, 0, 'elements after unshift/shift' )
-
-    unshift $P0, 200
-    $I0 = $P0[0]
-    is( $I0, 200, 'unshift_integer/get_integer_keyed_int pair' )
-    $I0 = shift $P0
-    is( $I0, 200, 'unshift_integer/shift_integer pair' )
-
-    unshift $P0, 3.03
-    $N0 = $P0[0]
-    is( $N0, 3.03, 'unshift_number/get_number_keyed_int pair' )
-    $N0 = shift $P0
-    is( $N0, 3.03, 'unshift_number/shift_number pair' )
-
-    unshift $P0, 'hello'
-    $S0 = $P0[0]
-    is( $S0, 'hello', 'unshift_string/get_string_keyed_int pair' )
-    $S0 = shift $P0
-    is( $S0, 'hello', 'unshift_string/shift_string pair' )
-
-    $I0 = elements $P0
-    is( $I0, 0, 'elements after unshift/shift' )
-.end
-
 .sub 'test_indexed_access'
     $P0    = new [ 'CallContext' ]
     $P0[0] = 100
@@ -170,26 +89,6 @@
     $P1    = $P0[3]
     is( $P1, 3.33, 'set_pmc_keyed_int/get_pmc_keyed_int pair' )
 
-    $I1 = shift $P0
-    is( $I1, 100, 'set_integer_keyed_int/shift_integer pair' )
-
-    $N1 = $P0[0]
-    is( $N1, 1.11, 'shift_* should remove elements from array' )
-
-    $N1 = shift $P0
-    is( $N1, 1.11, 'set_number_keyed_int/shift_number pair' )
-
-    $S1 = $P0[0]
-    is( $S1, '2.22', 'shift_* should remove elements from array' )
-
-    $S1 = shift $P0
-    is( $S1, '2.22', 'set_string_keyed_int/shift_string pair' )
-
-    $P1 = $P0[0]
-    is( $P1, 3.33, 'shift_* should remove elements from array' )
-
-    $P1 = shift $P0
-    is( $P1, 3.33, 'set_pmc_keyed_int/shift_pmc pair' )
 .end
 
 .sub 'test_indexed_boxing'


More information about the parrot-commits mailing list