From 715de3b2f989293c66d365ac28399c6f6585a9f4 Mon Sep 17 00:00:00 2001
From: wangchao <wangchao>
Date: Wed, 12 Nov 2003 07:56:04 +0000
Subject: [PATCH] b=2134 r=shaver add a test case of unix domain socket test to
 sanity.sh (test case 54)

---
 lustre/tests/socketclient | 12 ++++++++++++
 lustre/tests/socketserver | 21 +++++++++++++++++++++
 2 files changed, 33 insertions(+)
 create mode 100755 lustre/tests/socketclient
 create mode 100755 lustre/tests/socketserver

diff --git a/lustre/tests/socketclient b/lustre/tests/socketclient
new file mode 100755
index 0000000..5e6e659
--- /dev/null
+++ b/lustre/tests/socketclient
@@ -0,0 +1,12 @@
+#!/usr/bin/perl -w
+use Socket;
+use strict;
+my ($rendezvous, $line);
+
+$rendezvous = shift || <@ARGV>;
+socket(SOCK, AF_UNIX, SOCK_STREAM, 0)	|| die "socket: $!";
+connect(SOCK, sockaddr_un($rendezvous))	|| die "connect: $!";
+while (defined($line = <SOCK>)) {
+	print $line;
+}
+exit;  
diff --git a/lustre/tests/socketserver b/lustre/tests/socketserver
new file mode 100755
index 0000000..25bbb6e
--- /dev/null
+++ b/lustre/tests/socketserver
@@ -0,0 +1,21 @@
+#! /usr/bin/perl -w
+use strict;
+use Socket;
+
+BEGIN { $ENV{PATH} = '/usr/ucb:/bin' }
+sub logmsg { print "$0 $$: @_ at ", scalar localtime, "\n" }
+
+my $NAME = <@ARGV>;
+my $uaddr = sockaddr_un($NAME);
+
+socket(Server,AF_UNIX,SOCK_STREAM,0) 	|| die "socket: $!";
+unlink($NAME);
+bind  (Server, $uaddr) 			|| die "bind: $!";
+listen(Server,SOMAXCONN)			|| die "listen: $!";
+
+logmsg "server started on $NAME";
+
+accept(Client,Server);
+logmsg "connection on $NAME";
+print Client "from server\n";
+close Client;
-- 
1.8.3.1