view release on metacpan or  search on metacpan

lib/Apache/SWIT/Test/Apache.pm  view on Meta::CPAN

17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
        };
        my ($h, $p) = split(/:/, $rshp);
        return unless ($h && $p);
        push @$argv, "-servername", $h, "-port", $p;
}
 
sub swit_run {
        my ($class, $non_config_func) = @_;
        my $top_dir = abs_path(dirname($0) . "/../");
 
        my $not_config = (@ARGV && $ARGV[0] ne '-config');
        push @ARGV, '-top_dir', $top_dir;
        Check_For_Run_Server(\@ARGV);
 
        $non_config_func->() if ($non_config_func && $not_config);
 
        $ENV{SWIT_HAS_APACHE} = 1;
        __PACKAGE__->new->run(@ARGV);
}
 
sub run_tests {
        my $res = 0;
        ASTU_Mem_Show("Apache memory before");
        $ENV{APACHE_SWIT_SERVER_URL} = "http://" . Apache::TestRequest::hostport . "/";
        delete $ENV{APACHE_TEST_PORT};