Changeset 17705 for lang

Timestamp:

08/16/08 18:06:38 (5 years ago)

Author:

tokuhirom

Message:

refactoring

Files:

• lang/perl/HTTP-Engine/trunk/t/030_daemonize/upload.t (modified) (2 diffs)

lang/perl/HTTP-Engine/trunk/t/030_daemonize/upload.t

@@ -3 +3 @@
 use t::Utils;
 use Test::More;
-
-plan tests => 10*interfaces;
-
 use LWP::UserAgent;
 use HTTP::Request::Common qw(POST $DYNAMIC_FILE_UPLOAD);
 use HTTP::Engine;
+
+my $try_num = 10;
+plan tests => $try_num*interfaces*2;
 
 my $port = empty_port;
@@ -29 +29 @@
 
 sub do_request {
-    _do_request();
-    _do_request();
-    _do_request();
-    _do_request();
-    _do_request();
+    for (1..$try_num) {
+        _do_request();
+    }
 }