--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/sigpipe.c	Thu Jan 23 11:24:13 2003 +0000
@@ -0,0 +1,59 @@
+/* code is all from loser.c and loser.el by Mly
+
+Copyright (C) 2002 Richard Mlynarik <mly@pobox.com>
+
+This is part of XEmacs
+
+Compile this file.  Run it in the background giving it a command line
+argument PORT which is a positive integer 1024 < PORT < 32768 (avoid the
+numbers assigned in /etc/services).
+
+Then start up a fresh (you're going to crash) XEmacs.  Execute the following
+
+(defun lose (port)
+  (interactive "nUrk: ")
+  (require 'comint)
+  (while t
+    (condition-case e
+        (let* ((name "*lose*")
+	       (b (get-buffer-create name)))
+          (switch-to-buffer b)
+          (comint-mode)
+          (comint-exec b name (cons "127.0.0.1" port) nil '())
+          (process-send-string (get-buffer-process b) "\377\373\001")
+          (process-send-string (get-buffer-process b) "\377\373\001"))
+      (error (message "URK: %s" e)) (sit-for 1))))
+
+Then M-x lose RET PORT RET and you lose big (in XEmacs 21.1, anyway).
+Note: the error messages are proper functioning.  What should eventually
+happen after a number of SIGPIPEs is that you get a SIGSEGV and life is
+bad and XEmacs is dead.
+*/
+
+#include <arpa/inet.h>
+
+int
+main (int argc, char **argv)
+{
+  struct sockaddr_in junk;
+  int s;
+
+  memset (&junk, 0, sizeof (junk));
+
+  junk.sin_family = AF_INET;
+  junk.sin_addr.s_addr = htonl (INADDR_ANY); /* un*x sucks */
+  junk.sin_port = htons (atoi (argv[1])); /* un*x blows */
+
+  s = socket (PF_INET, SOCK_STREAM, 0);
+
+  bind (s, (struct sockaddr *)&junk, sizeof (junk));
+
+  listen (s, 1);
+  
+  for (;;)
+  {
+    int loser = accept (s, NULL, 0);
+    close (loser);
+  }
+}
+