Added a simple stress test that hits every URI in the test suite

[catagits/Catalyst-Runtime.git] / t / optional / stress.t

#!perl\r
\r
use strict;\r
use warnings;\r
\r
use FindBin;\r
use lib "$FindBin::Bin/../live/lib";\r
\r
use Test::More;\r
use Catalyst::Test 'TestApp';\r
use YAML;\r
\r
our ($iters, $tests);\r
BEGIN { \r
    plan skip_all => 'set CAT_STRESS to enable this test' unless $ENV{CAT_STRESS};\r
    \r
    $iters = $ENV{CAT_STRESS} || 10;\r
    $tests = YAML::LoadFile( "$FindBin::Bin/stress.yml" );\r
    \r
    my $total_tests = 0;\r
    map { $total_tests += scalar @{ $tests->{$_} } } keys %{$tests};\r
    plan tests => $iters * $total_tests;\r
}\r
\r
for ( 1 .. $iters ) {\r
    run_tests();\r
}\r
\r
sub run_tests {\r
    foreach my $test_group ( keys %{$tests} ) {\r
        foreach my $test ( @{ $tests->{$test_group} } ) {\r
            ok( request( $test ), $test_group . ' - ' . $test );\r
        }\r
    }\r
}\r