From c5f461d3a35799e0fa9ea75e662955cc40547db2 Mon Sep 17 00:00:00 2001
From: mccallum <mccallum@72102866-910b-0410-8b05-ffd578937521>
Date: Fri, 1 Mar 1996 16:26:49 +0000
Subject: [PATCH] New file.

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@1031 72102866-910b-0410-8b05-ffd578937521
---
 Testing/tcpport-client.m | 25 +++++++++++++++++++++++++
 Testing/tcpport-server.m | 21 +++++++++++++++++++++
 2 files changed, 46 insertions(+)
 create mode 100644 Testing/tcpport-client.m
 create mode 100644 Testing/tcpport-server.m

diff --git a/Testing/tcpport-client.m b/Testing/tcpport-client.m
new file mode 100644
index 000000000..32a4fa637
--- /dev/null
+++ b/Testing/tcpport-client.m
@@ -0,0 +1,25 @@
+#include <stdio.h>
+#include <objects/TcpPort.h>
+
+int main ()
+{
+  id port;
+  id packet;
+  int i;
+
+  port = [TcpOutPort newForSendingToRegisteredName: @"tcpport-test"
+		     onHost: @"localhost"];
+  
+  for (i = 0; i < 5; i++)
+    {
+      packet = [[TcpPacket alloc] initForSendingWithCapacity: 100
+				  replyPort: nil];
+      [packet writeFormat: @"Here is message number %d\n", i];
+      [port sendPacket: packet withTimeout: 20 * 1000];
+      [packet release];
+    }
+
+  [port close];
+
+  exit (0);
+}
diff --git a/Testing/tcpport-server.m b/Testing/tcpport-server.m
new file mode 100644
index 000000000..ae1f365a0
--- /dev/null
+++ b/Testing/tcpport-server.m
@@ -0,0 +1,21 @@
+#include <stdio.h>
+#include <objects/TcpPort.h>
+
+int main ()
+{
+  id port;
+  id packet;
+
+  port = [TcpInPort newForReceivingFromRegisteredName: @"tcpport-test"];
+  
+  while ((packet = [port receivePacketWithTimeout: 20 * 1000]))
+    {
+      fprintf (stdout, "received >");
+      fwrite ([packet streamBuffer], [packet streamEofPosition], 1, stdout);
+      fprintf (stdout, "<\n");
+      [packet release];
+    }
+  fprintf (stdout, "Timed out.  Exiting.\n");
+
+  exit (0);
+}