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

[Infinoid at svn.parrot.org]

Author: Infinoid
Date: Fri Mar 27 22:42:02 2009
New Revision: 37776
URL: https://trac.parrot.org/parrot/changeset/37776

Log:
[t] Fix t/pmc/sockaddr.t to use methods instead of ops.

Modified:
   trunk/t/pmc/sockaddr.t

Modified: trunk/t/pmc/sockaddr.t
==============================================================================
--- trunk/t/pmc/sockaddr.t	Fri Mar 27 22:27:13 2009	(r37775)
+++ trunk/t/pmc/sockaddr.t	Fri Mar 27 22:42:02 2009	(r37776)
@@ -19,17 +19,19 @@
 .sub main :main
     .include 'test_more.pir'
 
-    plan(3)
+    plan(4)
 
-    new $P0, ['Sockaddr']
-    ok(1, 'Instantiated a Sockaddr PMC')
+    new $P0, ['Socket']
+    ok(1, 'Instantiated a Socket PMC')
 
-    $P0 = sockaddr "localhost", 1234
-    ok(1, 'op sockaddr successful')
+    $P1 = $P0."sockaddr"("localhost", 1234)
+    ok(1, 'socket.sockaddr method successful')
 
     $I0 = isnull $P0
     $I0 = not $I0
     ok($I0, 'Sockaddr PMC created')
+    $S0 = typeof $P1
+    is($S0, 'Sockaddr', 'PMC has correct type')
 .end
 
 # Local Variables: