From 72c58b0d1d415a2c89c7cf1fbaba00713ca77369 Mon Sep 17 00:00:00 2001
From: Yang Tse <yangsita@gmail.com>
Date: Fri, 18 Apr 2008 17:17:14 +0000
Subject: test 1001 needs a small delay between client part execution and test
 result file verifications to allow the test server to completely write out
 all files

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

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

diff --git a/tests/libtest/delay.pl b/tests/libtest/delay.pl
new file mode 100755
index 000000000..219b86812
--- /dev/null
+++ b/tests/libtest/delay.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/env perl
+# sleep for a number of seconds
+if ( $#ARGV != 0 )
+{
+    print "Usage: $0 seconds\n";
+    exit 1;
+}
+if ( $ARGV[0] =~ /(\d+)/ ) {
+    sleep $1;
+    exit 0;
+}
+else {
+    print "Usage: $0 seconds\n";
+    exit 1;
+}
+
-- 
cgit v1.2.3