diff --git a/tests/data/test1001 b/tests/data/test1001 index 9f8e53432c14faa803cb50d06d8ee666f75857de..58832cbdff6847042e9752825428144f5a8b351e 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://% test + +%SRCDIR/libtest/delay.pl 1 + # 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 0000000000000000000000000000000000000000..219b868124fd4a410e619d1de9beecb63f93c84b --- /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; +} +