[svn:parrot] r47394 - trunk/t/pmc
NotFound at svn.parrot.org
NotFound at svn.parrot.org
Sat Jun 5 22:26:26 UTC 2010
Author: NotFound
Date: Sat Jun 5 22:26:26 2010
New Revision: 47394
URL: https://trac.parrot.org/parrot/changeset/47394
Log:
test for RIA clone
Modified:
trunk/t/pmc/resizableintegerarray.t
Modified: trunk/t/pmc/resizableintegerarray.t
==============================================================================
--- trunk/t/pmc/resizableintegerarray.t Sat Jun 5 22:08:15 2010 (r47393)
+++ trunk/t/pmc/resizableintegerarray.t Sat Jun 5 22:26:26 2010 (r47394)
@@ -43,7 +43,7 @@
.sub main :main
.include 'test_more.pir'
- plan(45)
+ plan(46)
test_does_interfaces()
@@ -73,6 +73,7 @@
test_unshift()
test_cant_shift_empty()
test_iterator()
+ test_clone()
.end
.sub test_does_interfaces
@@ -587,6 +588,14 @@
is( $I0, 4, 'get_iter: iterator returns all values in correct sequence' )
.end
+.sub test_clone
+ $P0 = new ['ResizableIntegerArray']
+ push $P0, 1
+ $P1 = clone $P0
+ $I0 = iseq $P0, $P1
+ is( $I0, 1, 'cloned is equal to original')
+.end
+
# Local Variables:
# mode: pir
# fill-column: 100
More information about the parrot-commits
mailing list