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

[dukeleto at svn.parrot.org]

Author: dukeleto
Date: Sun Oct 10 07:27:58 2010
New Revision: 49489
URL: https://trac.parrot.org/parrot/changeset/49489

Log:
[t] Add a test for cloning a Socket PMC

Modified:
   trunk/t/pmc/socket.t

Modified: trunk/t/pmc/socket.t
==============================================================================
--- trunk/t/pmc/socket.t	Sun Oct 10 06:26:39 2010	(r49488)
+++ trunk/t/pmc/socket.t	Sun Oct 10 07:27:58 2010	(r49489)
@@ -19,12 +19,27 @@
 .sub main :main
     .include 'test_more.pir'
 
-    plan(1)
+    plan(2)
 
+    test_init()
+    test_clone()
+
+.end
+
+.sub test_init
     new $P0, ['Socket']
     ok(1, 'Instantiated a Socket PMC')
 .end
 
+.sub test_clone
+    new $P0, ['Socket']
+    $P1 = $P0."sockaddr"("localhost", 1234)
+
+    $P2 = clone $P1
+    ok(1, 'Cloned a Socket PMC')
+
+.end
+
 # Local Variables:
 #   mode: pir
 #   fill-column: 100