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

bacek at svn.parrot.org bacek at svn.parrot.org
Sat Apr 17 12:14:49 UTC 2010


Author: bacek
Date: Sat Apr 17 12:14:49 2010
New Revision: 45747
URL: https://trac.parrot.org/parrot/changeset/45747

Log:
Update test for replace op.

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	Sat Apr 17 12:06:56 2010	(r45746)
+++ branches/immutable_strings_part1/t/op/string.t	Sat Apr 17 12:14:49 2010	(r45747)
@@ -19,7 +19,7 @@
 .sub main :main
     .include 'test_more.pir'
 
-    plan(397)
+    plan(398)
 
     set_s_s_sc()
     test_clone()
@@ -472,9 +472,10 @@
 .sub four_arg_replacement_only_substr
     set $S0, "abcdefghijk"
     set $S1, "xyz"
-    substr $S0, 3, 3, $S1
-    is( $S0, "abcxyzghijk", '' )
+    $S2 = replace $S0, 3, 3, $S1
+    is( $S0, "abcdefghijk", '' )
     is( $S1, "xyz", '' )
+    is( $S2, "abcxyzghijk", '' )
 .end
 
 .sub three_arg_substr


More information about the parrot-commits mailing list