File: test_socket.sl

package info (click to toggle)
slang2 2.3.3-5
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 11,488 kB
  • sloc: ansic: 101,756; sh: 3,435; makefile: 1,046; pascal: 440
file content (24 lines) | stat: -rw-r--r-- 369 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
% -*- mode: slang; mode: fold -*-

() = evalfile ("./test.sl");

require ("socket");

define slsh_main ()
{
   testing_module ("socket");

   variable s;

   try
     {
	s = socket (PF_INET, SOCK_STREAM, 0);
     }
   catch SocketError:
     failed ("socket failed");

   if (-1 == close (s))
     failed ("close socket failed: %S", errno_string());

   end_test ();
}