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

[dukeleto at svn.parrot.org]

Author: dukeleto
Date: Sun Oct 10 17:57:59 2010
New Revision: 49498
URL: https://trac.parrot.org/parrot/changeset/49498

Log:
[t] Add a TODO test for get_bool on a SockAddr PMC

Modified:
   trunk/t/pmc/sockaddr.t

Modified: trunk/t/pmc/sockaddr.t
==============================================================================
--- trunk/t/pmc/sockaddr.t	Sun Oct 10 17:48:06 2010	(r49497)
+++ trunk/t/pmc/sockaddr.t	Sun Oct 10 17:57:59 2010	(r49498)
@@ -19,8 +19,13 @@
 .sub main :main
     .include 'test_more.pir'
 
-    plan(5)
+    plan(6)
 
+    test_basic()
+    test_bool()
+.end
+
+.sub test_basic
     new $P0, ['Socket']
     ok(1, 'Instantiated a Socket PMC')
 
@@ -39,6 +44,18 @@
     is($S2, 'Sockaddr', 'PMC clone has correct type')
 .end
 
+.sub test_bool
+    $P0 = new 'Socket'
+    $P1 = $P0."sockaddr"("localhost", 1234)
+    push_eh handler
+    ok($P1, 'get_bool on a SockAddr')
+    goto done
+handler:
+    pop_eh
+    todo(0,'get_bool on SockAddr does not work TT#1822')
+done:
+.end
+
 # Local Variables:
 #   mode: pir
 #   fill-column: 100