r1602 - trunk/varnish-tools/regress/lib/Varnish/Test

[des at projects.linpro.no]

Author: des
Date: 2007-06-29 16:05:21 +0200 (Fri, 29 Jun 2007)
New Revision: 1602

Modified:
   trunk/varnish-tools/regress/lib/Varnish/Test/Case.pm
Log:
Add an usleep() method based on select().


Modified: trunk/varnish-tools/regress/lib/Varnish/Test/Case.pm
===================================================================
--- trunk/varnish-tools/regress/lib/Varnish/Test/Case.pm	2007-06-29 12:57:55 UTC (rev 1601)
+++ trunk/varnish-tools/regress/lib/Varnish/Test/Case.pm	2007-06-29 14:05:21 UTC (rev 1602)
@@ -188,4 +188,10 @@
     return $client;
 }
 
+sub usleep($$) {
+    my ($self, $usec) = @_;
+
+    select(undef, undef, undef, $usec / 1000000.0);
+}
+
 1;