[svn:parrot] r46586 - trunk/t/op

NotFound at svn.parrot.org NotFound at svn.parrot.org
Thu May 13 12:30:06 UTC 2010


Author: NotFound
Date: Thu May 13 12:30:05 2010
New Revision: 46586
URL: https://trac.parrot.org/parrot/changeset/46586

Log:
test a index usage that triggers a bug in r46564, cotto++

Modified:
   trunk/t/op/string.t

Modified: trunk/t/op/string.t
==============================================================================
--- trunk/t/op/string.t	Thu May 13 11:35:19 2010	(r46585)
+++ trunk/t/op/string.t	Thu May 13 12:30:05 2010	(r46586)
@@ -19,7 +19,7 @@
 .sub main :main
     .include 'test_more.pir'
 
-    plan(369)
+    plan(370)
 
     set_s_s_sc()
     test_clone()
@@ -918,6 +918,12 @@
     set $S1, "bar"
     index $I1, $S0, $S1
     is( $I1, "-1", 'index, 3-arg form' )
+
+    # Non-ascii, source shorter than searched
+    set $S0, unicode:"-o"
+    set $S1, unicode:"@INC"
+    index $I1, $S0, $S1
+    is( $I1, "-1", 'index, 3-arg form' )
 .end
 
 .sub index_four_arg_form


More information about the parrot-commits mailing list