Meh, that shows what I mean. This can be done waaaay more elegantly by abstracting...

[catagits/Catalyst-Runtime.git] / t / unit_core_script_server.t

use strict;
use warnings;

use FindBin qw/$Bin/;
use lib "$Bin/lib";

use Test::More 'no_plan';
use Test::Exception;

use Catalyst::Script::Server;

{
    local @ARGV; # Blank
    local @TestAppToTestScripts::RUN_ARGS;
    lives_ok {
        Catalyst::Script::Server->new_with_options(application_name => 'TestAppToTestScripts')->run;
    };
    is_deeply \@TestAppToTestScripts::RUN_ARGS, ['TestAppToTestScripts',
          '3000',
          'localhost',
          {
            'pidfile' => undef,
            'fork' => undef,
            'follow_symlinks' => undef,
            'background' => undef,
            'keepalive' => undef
          }];
}

{
    local @ARGV = qw/-p 3001/;
    local @TestAppToTestScripts::RUN_ARGS;
    lives_ok {
        Catalyst::Script::Server->new_with_options(application_name => 'TestAppToTestScripts')->run;
    };
    is_deeply \@TestAppToTestScripts::RUN_ARGS, ['TestAppToTestScripts',
          '3001',
          'localhost',
          {
            'pidfile' => undef,
            'fork' => undef,
            'follow_symlinks' => undef,
            'background' => undef,
            'keepalive' => undef
          }];
}