t/t_server.pl

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use LWP::Simple;
   5 use App::Prove;
   6
   7 use Pod::Usage;
   8 use Getopt::Long;
   9
  10 use Catalyst::ScriptRunner;
  11
  12 use lib 'lib';
  13 use SGN::Devel::MyDevLibs;
  14
  15 GetOptions(
  16     "carpalways" => \( my $carpalways = 0 ),
  17     );
  18
  19 require Carp::Always if $carpalways;
  20
  21 my @prove_args = @ARGV;
  22 @prove_args = ( 't' ) unless @prove_args;
  23
  24 my $parallel = (grep /^-j\d*$/, @ARGV) ? 1 : 0;
  25
  26 $ENV{SGN_CONFIG_LOCAL_SUFFIX} = 'testing';
  27
  28 my $server_pid = fork;
  29 unless( $server_pid ) {
  30     # web server process
  31
  32     $ENV{SGN_TEST_MODE} = 1;
  33     @ARGV = (
  34         -p => 3003,
  35         ( $parallel ? ('--fork') : () ),
  36      );
  37     Catalyst::ScriptRunner->run('SGN', 'Server');
  38     exit;
  39 }
  40 warn "$0: starting web server with PID $server_pid.\n";
  41
  42 # wait for the test server to start
  43 {
  44     local $SIG{CHLD} = sub {
  45         waitpid $server_pid, 0;
  46         die "\nTest server failed to start.  Aborting.\n";
  47     };
  48     sleep 1 until !kill(0, $server_pid) || get 'http://localhost:3003';
  49 }
  50
  51 my $prove_pid = fork;
  52 unless( $prove_pid ) {
  53     # test harness process
  54
  55
  56     # set up env vars for prove and the tests
  57     $ENV{SGN_TEST_SERVER} = 'http://localhost:3003';
  58     if( $parallel ) {
  59         $ENV{SGN_PARALLEL_TESTING} = 1;
  60         $ENV{SGN_SKIP_LEAK_TEST}   = 1;
  61     }
  62
  63     # now run the tests against it
  64     my $app = App::Prove->new;
  65     $app->process_args(
  66         '-lr',
  67         ( map { -I => $_ } @INC ),
  68         @prove_args
  69         );
  70     exit( $app->run ? 0 : 1 );
  71 }
  72
  73 $SIG{CHLD} = 'IGNORE';
  74 $SIG{INT}  = sub { kill 15, $server_pid, $prove_pid };
  75 $SIG{KILL} = sub { kill 9, $server_pid, $prove_pid };
  76
  77 warn "$0: prove started with PID $prove_pid.\n";
  78 waitpid $prove_pid, 0;
  79 warn "$0: prove finished, stopping web server PID $server_pid.\n";
  80 END { kill 15, $server_pid if $server_pid }
  81 waitpid $server_pid, 0;
  82
  83 __END__
  84
  85 =head1 NAME
  86
  87 test_all.pl - start a dev server and run tests against it
  88
  89 =head1 SYNOPSIS
  90
  91 t/test_all.pl --carpalways -- -v -j5 t/mytest.t  t/mydiroftests/
  92
  93 =head1 OPTIONS
  94
  95   --carpalways   Load Carp::Always in both the server and the test process
  96                  to force backtraces of all warnings and errors
  97
  98 =cut