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

git-svn-id: https://svn.parrot.org/parrot/trunk@49498 d31e2699-5ff4-0310-a27c-f18f2fbe73fe

t/pmc/sockaddr.t

@@ -19,8 +19,13 @@ Test the Sockaddr PMC.
 .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 @@ Test the Sockaddr PMC.
     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