[svn:parrot] r47687 - trunk/t/pmc

[NotFound at svn.parrot.org]

Author: NotFound
Date: Fri Jun 18 16:31:45 2010
New Revision: 47687
URL: https://trac.parrot.org/parrot/changeset/47687

Log:
add a test to cover StringIterator get_string_keyed_int

Modified:
   trunk/t/pmc/stringiterator.t

Modified: trunk/t/pmc/stringiterator.t
==============================================================================
--- trunk/t/pmc/stringiterator.t	Fri Jun 18 16:21:07 2010	(r47686)
+++ trunk/t/pmc/stringiterator.t	Fri Jun 18 16:31:45 2010	(r47687)
@@ -21,11 +21,11 @@
 .sub main :main
     .include 'test_more.pir'
 
-    plan(23)
+    plan(24)
 
     test_clone()
     test_elements()
-    iterate_forward() # 10 tests
+    iterate_forward() # 11 tests
     iterate_backward() # 8 tests
     iterate_wrong() # 1 test
     iterate_out() # 1 test
@@ -84,6 +84,9 @@
     ok(it, "Can shift 1st character")
     is($S0, 'b', "With correct value")
 
+    $S0 = it[0]
+    is($S0, 'a', "can get string keyed int correct value")
+
     $S0 = shift it
     ok(it, "Can shift 2nd character")
     is($S0, 'a', "With correct value")