diff options
author | Yang Tse <yangsita@gmail.com> | 2008-04-18 17:17:14 +0000 |
---|---|---|
committer | Yang Tse <yangsita@gmail.com> | 2008-04-18 17:17:14 +0000 |
commit | 72c58b0d1d415a2c89c7cf1fbaba00713ca77369 (patch) | |
tree | 74f525d331e215f4b453362a8ce9c8815d61c9cf /tests/libtest | |
parent | 6c89e1b3114e51ea3c7feae2133c6efdbb9c8b16 (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
Diffstat (limited to 'tests/libtest')
-rwxr-xr-x | tests/libtest/delay.pl | 16 |
1 files changed, 16 insertions, 0 deletions
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; +} + |