From fe8b918d89314780ce46041f3f73aaacb7a89a50 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Niels=20M=C3=B6ller?= <nisse@lysator.liu.se>
Date: Fri, 19 Sep 2003 13:55:01 +0200
Subject: [PATCH] New test case that connects to lshd and sends some random
 data.

Rev: src/testsuite/random-input-test:1.1.2.1
---
 src/testsuite/random-input-test | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100755 src/testsuite/random-input-test

diff --git a/src/testsuite/random-input-test b/src/testsuite/random-input-test
new file mode 100755
index 000000000..e065a1a72
--- /dev/null
+++ b/src/testsuite/random-input-test
@@ -0,0 +1,24 @@
+#! /bin/sh
+
+if [ -z "$srcdir" ] ; then
+  srcdir=`pwd`
+fi
+
+. $srcdir/functions.sh
+
+PORT=5555
+
+werror "Testing lshd with random input"
+
+spawn_lshd
+
+for seed in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 ; do
+    werror "Trying seed $seed"
+    ../nettle/examples/lfib-stream $seed \
+        | tcpconnect $INTERFACE $PORT > /dev/null \
+	|| die "Connect failed"
+
+    kill -0 `cat $PIDFILE` || die "Server died"
+done
+
+test_success
-- 
GitLab