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

NotFound at svn.parrot.org NotFound at svn.parrot.org
Tue Sep 7 18:06:43 UTC 2010


Author: NotFound
Date: Tue Sep  7 18:06:42 2010
New Revision: 48821
URL: https://trac.parrot.org/parrot/changeset/48821

Log:
test OrderedHashIterator clone

Modified:
   trunk/t/pmc/orderedhashiterator.t

Modified: trunk/t/pmc/orderedhashiterator.t
==============================================================================
--- trunk/t/pmc/orderedhashiterator.t	Tue Sep  7 06:06:16 2010	(r48820)
+++ trunk/t/pmc/orderedhashiterator.t	Tue Sep  7 18:06:42 2010	(r48821)
@@ -23,12 +23,13 @@
 .sub 'main'
     .include 'test_more.pir'
 
-    plan(6)
+    plan(7)
 
     'test_init'()
     'test_bad_type'()
     'test_shift'()
     'test_pop'()
+    'test_clone'()
 .end
 
 .sub 'test_init'
@@ -113,6 +114,18 @@
     ok(i, 'pop_pmc in empty OH throws')
 .end
 
+.sub 'test_clone'
+    .local pmc oh, it, cl
+    .local int result
+    oh = new ['OrderedHash']
+    it = iter oh
+
+    # This chekcs the de facto behavior for code coverage purposes.
+    cl = clone it
+    result = isnull cl
+    ok(result, 'clone of OHI gives null')
+.end
+
 # Local Variables:
 #   mode: pir
 #   fill-column: 100


More information about the parrot-commits mailing list