Add an usleep() method based on select().

git-svn-id: svn+ssh://projects.linpro.no/svn/varnish/trunk@1602 d4fa192b-c00b-0410-8231-f00ffab90ce4

diff --git a/varnish-tools/regress/lib/Varnish/Test/Case.pm b/varnish-tools/regress/lib/Varnish/Test/Case.pm
index 22868ac15403ec6b5b16dc4f7ff3c33ea967dcbe..5cf251926568ae45e58e532c8efb015d87e17f08 100644 (file)
--- a/varnish-tools/regress/lib/Varnish/Test/Case.pm
+++ b/varnish-tools/regress/lib/Varnish/Test/Case.pm
@@ -188,4 +188,10 @@ sub ev_client_timeout($$) {
     return $client;
 }
 
+sub usleep($$) {
+    my ($self, $usec) = @_;
+
+    select(undef, undef, undef, $usec / 1000000.0);
+}
+
 1;