[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