[t] Add tests for creating raw TCP and UDP sockets

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

t/pmc/socket.t

@@ -20,14 +20,16 @@ Tests the Socket PMC.
 .sub main :main
     .include 'test_more.pir'
 
-    plan(9)
+    plan(11)
 
     test_init()
     test_clone()
     test_bool()
     test_close()
     test_tcp_socket()
+    test_raw_tcp_socket()
     test_udp_socket()
+    test_raw_udp_socket()
 
 .end
 
@@ -71,6 +73,13 @@ Tests the Socket PMC.
     ok(sock, 'Created a TCP Socket')
 .end
 
+.sub test_raw_tcp_socket
+    .local pmc sock
+    sock = new 'Socket'
+    sock.'socket'(.PIO_PF_INET, .PIO_SOCK_RAW, .PIO_PROTO_TCP)
+    ok(sock, 'Created a raw TCP Socket')
+.end
+
 .sub test_udp_socket
     .local pmc sock
     sock = new 'Socket'
@@ -79,6 +88,14 @@ Tests the Socket PMC.
     ok(sock, 'Created a UDP Socket')
 .end
 
+.sub test_raw_udp_socket
+    .local pmc sock
+    sock = new 'Socket'
+
+    sock.'socket'(.PIO_PF_INET, .PIO_SOCK_RAW, .PIO_PROTO_UDP)
+    ok(sock, 'Created a raw UDP Socket')
+.end
+
 # Local Variables:
 #   mode: pir
 #   fill-column: 100