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

[NotFound at svn.parrot.org]

Author: NotFound
Date: Wed Sep  1 22:25:23 2010
New Revision: 48756
URL: https://trac.parrot.org/parrot/changeset/48756

Log:
test StringIterator get_pmc vtable

Modified:
   trunk/t/pmc/stringiterator.t

Modified: trunk/t/pmc/stringiterator.t
==============================================================================
--- trunk/t/pmc/stringiterator.t	Wed Sep  1 21:36:30 2010	(r48755)
+++ trunk/t/pmc/stringiterator.t	Wed Sep  1 22:25:23 2010	(r48756)
@@ -22,8 +22,9 @@
 .sub main :main
     .include 'test_more.pir'
 
-    plan(28)
+    plan(29)
 
+    test_get_pmc()
     test_clone()
     test_elements()
     iterate_forward() # 11 tests
@@ -34,6 +35,16 @@
 
 .end
 
+
+.sub 'test_get_pmc'
+    .local pmc s, it, sget
+    s = new ['String']
+    s = 'foobar'
+    it = iter s
+    sget = deref it
+    is(s, sget, 'deref StringIterator gives the iterated string')
+.end
+
 .sub 'test_clone'
     .local pmc s, it, itc
     .local int nit, nitc