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;
+}
+