From: Yang Tse <yangsita@gmail.com>
Date: Fri, 18 Apr 2008 17:17:14 +0000 (+0000)
Subject: test 1001 needs a small delay between client part execution and test
X-Git-Tag: upstream/7.37.1~7905
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=72c58b0d1d415a2c89c7cf1fbaba00713ca77369;p=platform%2Fupstream%2Fcurl.git

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
---

diff --git a/tests/data/test1001 b/tests/data/test1001
index 9f8e534..58832cb 100644
--- a/tests/data/test1001
+++ b/tests/data/test1001
@@ -71,6 +71,9 @@ http://%HOSTIP:%HTTPPORT/1001 -u auser:apasswd --digest -T log/1001 -x  http://%
 <file name="log/1001">
 test
 </file>
+<postcheck>
+%SRCDIR/libtest/delay.pl 1
+</postcheck>
 </client>
 
 # Verify data after the test has been "shot"
diff --git a/tests/libtest/delay.pl b/tests/libtest/delay.pl
new file mode 100755
index 0000000..219b868
--- /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;
+}
+