Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Increase test hardness when RELEASE_TESTING

  • Loading branch information...
commit 4c086a572f24f5f59c3e40fca77e27d7dcab64e9 1 parent 6d9302b
@stash authored
View
5 t/05-streaming.t
@@ -1,8 +1,9 @@
#!perl
use warnings;
use strict;
-use constant CLIENTS_11 => 25;
-use constant CLIENTS_10 => 25;
+use constant HARDER => $ENV{RELEASE_TESTING} ? 10 : 1;
+use constant CLIENTS_11 => HARDER * 2;
+use constant CLIENTS_10 => HARDER * 2;
use constant CLIENTS => CLIENTS_11 + CLIENTS_10;
use Test::More tests => 7 + 21 * CLIENTS_11 + 22 * CLIENTS_10;
use Test::Exception;
View
3  t/07-graceful-shutdown.t
@@ -1,7 +1,8 @@
#!perl
use warnings;
use strict;
-use constant CLIENTS => 15;
+use constant HARDER => $ENV{RELEASE_TESTING} ? 10 : 1;
+use constant CLIENTS => HARDER * 3;
use Test::More tests => 10 + 11 * CLIENTS;
use Test::Exception;
use lib 't'; use Utils;
View
7 t/08-read-timeout.t
@@ -1,9 +1,10 @@
#!perl
use warnings;
use strict;
-use constant POST_CLIENTS => 5;
-use constant GET_CLIENTS => 5;
-use constant GOOD_CLIENTS => 5;
+use constant HARDER => $ENV{RELEASE_TESTING} ? 10 : 1;
+use constant POST_CLIENTS => HARDER*1;
+use constant GET_CLIENTS => HARDER*1;
+use constant GOOD_CLIENTS => HARDER*1;
use Test::More tests =>
17 + 2*POST_CLIENTS + 2*GET_CLIENTS + 4*GOOD_CLIENTS;
use Test::Exception;
View
5 t/13-pre-fork.t
@@ -1,8 +1,9 @@
#!perl
use warnings;
use strict;
-use constant NUM_FORK => 4;
-use constant CLIENTS => 30;
+use constant HARDER => $ENV{RELEASE_TESTING} ? 1 : 0;
+use constant NUM_FORK => HARDER ? 4 : 2;
+use constant CLIENTS => HARDER ? 30 : 4;
use Test::More tests => 4 + CLIENTS*3;
use utf8;
use lib 't'; use Utils;
View
3  t/15-write_array.t
@@ -1,7 +1,8 @@
#!perl
use warnings;
use strict;
-use constant CLIENTS => 3;
+use constant HARDER => $ENV{RELEASE_TESTING} ? 10 : 1;
+use constant CLIENTS => HARDER * 2;
use Test::More tests => 4 + 10 * CLIENTS;
use Test::Exception;
use lib 't'; use Utils;
View
2  t/50-psgi-simple.t
@@ -1,7 +1,7 @@
#!perl
use warnings;
use strict;
-use constant CLIENTS => 15;
+use constant CLIENTS => $ENV{RELEASE_TESTING} ? 15 : 2;
use Test::More tests => 4 + 5*CLIENTS;
use lib 't'; use Utils;
View
6 t/54-psgix-io.t
@@ -1,8 +1,8 @@
#!perl
use warnings;
use strict;
-use constant CLIENTS => 10;
-use constant ROUNDS => 4;
+use constant CLIENTS => $ENV{RELEASE_TESTING} ? 10 : 2;
+use constant ROUNDS => $ENV{RELEASE_TESTING} ? 25 : 4;
use Scalar::Util qw/refaddr/;
use Test::More tests => 3 + ROUNDS*(
CLIENTS*5 + # server setup
@@ -10,7 +10,7 @@ use Test::More tests => 3 + ROUNDS*(
CLIENTS + # server msg
CLIENTS + # client send
CLIENTS*CLIENTS + # client msg
- 4 # round
+ 4 # each round
);
use lib 't'; use Utils;
Please sign in to comment.
Something went wrong with that request. Please try again.