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

[NotFound at svn.parrot.org]

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