[svn:parrot] r45598 - branches/immutable_strings_part1/t/op

bacek at svn.parrot.org bacek at svn.parrot.org
Mon Apr 12 11:30:19 UTC 2010


Author: bacek
Date: Mon Apr 12 11:30:19 2010
New Revision: 45598
URL: https://trac.parrot.org/parrot/changeset/45598

Log:
Remove test for update string inplace.

Modified:
   branches/immutable_strings_part1/t/op/string.t

Modified: branches/immutable_strings_part1/t/op/string.t
==============================================================================
--- branches/immutable_strings_part1/t/op/string.t	Mon Apr 12 11:30:08 2010	(r45597)
+++ branches/immutable_strings_part1/t/op/string.t	Mon Apr 12 11:30:19 2010	(r45598)
@@ -19,7 +19,7 @@
 .sub main :main
     .include 'test_more.pir'
 
-    plan(411)
+    plan(408)
 
     set_s_s_sc()
     test_clone()
@@ -27,7 +27,6 @@
     test_length_i_s()
     zero_length_substr()
     chopn_with_clone()
-    chopn_with_set()
     chopn_oob_values()
     three_argument_chopn()
     three_argument_chopn__oob_values()
@@ -237,20 +236,6 @@
     is( $S3, "JAPHxyzw", '' )
 .end
 
-.sub chopn_with_set
-    set $S4, "JAPHxyzw"
-    set $S5, "japhXYZW"
-    set     $S3, $S4
-    set $I1, 4
-    chopn   $S4, 3
-    chopn   $S4, 1
-    chopn   $S5, $I1
-
-    is( $S4, "JAPH", '' )
-    is( $S5, "japh", '' )
-    is( $S3, "JAPH", '' )
-.end
-
 .sub chopn_oob_values
     set $S1, "A string of length 21"
     chopn   $S1, 0


More information about the parrot-commits mailing list