[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