aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorYang Tse <yangsita@gmail.com>2008-04-18 17:17:14 +0000
committerYang Tse <yangsita@gmail.com>2008-04-18 17:17:14 +0000
commit72c58b0d1d415a2c89c7cf1fbaba00713ca77369 (patch)
tree74f525d331e215f4b453362a8ce9c8815d61c9cf
parent6c89e1b3114e51ea3c7feae2133c6efdbb9c8b16 (diff)
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
-rw-r--r--tests/data/test10013
-rwxr-xr-xtests/libtest/delay.pl16
2 files changed, 19 insertions, 0 deletions
diff --git a/tests/data/test1001 b/tests/data/test1001
index 9f8e53432..58832cbdf 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 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;
+}
+