[t] Add test to Socket is_closed()

parrot · Dec 1, 2010 · 2a3c7f8 · 2a3c7f8
1 parent e4b8819
commit 2a3c7f8
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/t/pmc/socket.t b/t/pmc/socket.t
@@ -19,7 +19,7 @@ Tests the Socket PMC.
 .sub main :main
     .include 'test_more.pir'
 
-    plan(18)
+    plan(19)
 
     test_init()
     test_get_fd()
@@ -28,6 +28,7 @@ Tests the Socket PMC.
     test_clone()
     test_bool()
     test_close()
+    test_is_closed()
     test_tcp_socket()
     test_tcp_socket6()
     test_raw_tcp_socket()
@@ -80,6 +81,13 @@ CODE
     nok($P0,'A closed Socket returns False')
 .end
 
+.sub test_is_closed
+    new $P0, ['Socket']
+
+    $N0 = $P0.'is_closed'()
+    is($N0, 1, 'Socket is_closed returned 1 to new socket')
+.end
+
 .sub test_clone
     new $P0, ['Socket']
     $P1 = $P0."sockaddr"("localhost", 1234)