t/live_stats.t

   1 use strict;
   2 use warnings;
   3
   4 use FindBin;
   5 use lib "$FindBin::Bin/lib";
   6
   7 use Test::More;
   8 use Catalyst::Test 'TestAppStats';
   9
  10 if ( $ENV{CATALYST_SERVER} ) {
  11     plan skip_all => 'Using remote server';
  12 }
  13 else {
  14     plan tests => 5;
  15 }
  16
  17 {
  18     ok( my $response = request('http://localhost/'), 'Request' );
  19     ok( $response->is_success, 'Response Successful 2xx' );
  20 }
  21 {
  22     ok( my $response = request('http://localhost/'), 'Request' );
  23     ok( $response->is_success, 'Response Successful 2xx' );
  24     like( $response->content, qr/\/default.*?[\d.]+s.*- test.*[\d.]+s/s, 'Stats report');
  25
  26 }
  27