From 5187faeeb97321343cd0a1f3ad9aa10992513e99 Mon Sep 17 00:00:00 2001
From: Dan Fandrich <dan@coneharvesters.com>
Date: Mon, 30 Apr 2007 20:15:33 +0000
Subject: Improved the test harness to allow running test servers on other than
 the default port numbers, allowing more than one test suite to run
 simultaneously on the same host.

---
 tests/libtest/test75.pl | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100755 tests/libtest/test75.pl

(limited to 'tests/libtest/test75.pl')

diff --git a/tests/libtest/test75.pl b/tests/libtest/test75.pl
new file mode 100755
index 000000000..01a53ff15
--- /dev/null
+++ b/tests/libtest/test75.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/env perl
+# Check that the length of a given URL is correct
+if ( $#ARGV != 1 ) 
+{
+	print "Usage: $0 string length\n";
+	exit 3;
+}
+if (length(@ARGV[0]) != @ARGV[1])
+{
+	print "Given host IP and port not supported\n";
+	exit 1;
+}
+exit 0;
-- 
cgit v1.2.3