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

[NotFound at svn.parrot.org]

Author: NotFound
Date: Wed Jun 16 22:27:41 2010
New Revision: 47662
URL: https://trac.parrot.org/parrot/changeset/47662

Log:
test Sockaddr clone

Modified:
   trunk/t/pmc/sockaddr.t

Modified: trunk/t/pmc/sockaddr.t
==============================================================================
--- trunk/t/pmc/sockaddr.t	Wed Jun 16 17:50:08 2010	(r47661)
+++ trunk/t/pmc/sockaddr.t	Wed Jun 16 22:27:41 2010	(r47662)
@@ -1,5 +1,5 @@
 #!./parrot
-# Copyright (C) 2006-2008, Parrot Foundation.
+# Copyright (C) 2006-20010, Parrot Foundation.
 # $Id$
 
 =head1 NAME
@@ -19,7 +19,7 @@
 .sub main :main
     .include 'test_more.pir'
 
-    plan(4)
+    plan(5)
 
     new $P0, ['Socket']
     ok(1, 'Instantiated a Socket PMC')
@@ -30,8 +30,13 @@
     $I0 = isnull $P0
     $I0 = not $I0
     ok($I0, 'Sockaddr PMC created')
+
     $S0 = typeof $P1
     is($S0, 'Sockaddr', 'PMC has correct type')
+
+    $P2 = clone $P1
+    $S2 = typeof $P2
+    is($S2, 'Sockaddr', 'PMC clone has correct type')
 .end
 
 # Local Variables: