Apache-AppCluster

 view release on metacpan or  search on metacpan

Server/Makefile.PL  view on Meta::CPAN

use strict;
use ExtUtils::MakeMaker;
use lib 't/lib';
use lib '../blib/lib';
use Apache::test qw(have_httpd);

my %params = Apache::test->get_test_params();

chomp (my $cwd = `pwd`);
my $libdir = $cwd . '/t/lib';
my $mods = 'MyLib; TestLib1::Mod1; TestLib2::Mod2;';
my $conf_text = <<"EOF";
StartServers 15
MinSpareServers 15

Server/Server.pm  view on Meta::CPAN

	my $lib_list = $begin_r->dir_config('AppCLibs');
	$lib_list =~ s/[\t\s\n\r]//g;
	$lib_list =~ s/;$//; #remove trailing ; if found
	my @libs = split(';', $lib_list);


	foreach my $lib (@libs)
	{
		warn "AppCluster adding library directory: $lib" if($VERBOSE);
		my $p_code = "use lib '$lib';";
		eval $p_code;
		warn "A problem occured in Apache::AppCluster::Server while parsing your library directories: $@" if ($@);
	}

	foreach my $module (@mods)
	{
		warn "AppCluster adding module $module" if($VERBOSE);
		my $p_code = "use $module;";
		eval $p_code;
		warn "A problem occured in Apache::AppCluster::Server while parsing your modules: $@" if($@);

Server/t/1_single_client_test.t  view on Meta::CPAN

use strict;
use lib 't/lib';
use Apache::test qw( have_httpd skip_test );
skip_test unless have_httpd;

$|=1;

print "1..1\n";
use Apache::AppCluster::Client;
my $client = Apache::AppCluster::Client->new();

$client->add_request(

Server/t/2_single_client_digest.t  view on Meta::CPAN

use Digest::MD5 qw( md5_hex );
use strict;
use lib 't/lib';

use Apache::test qw( have_httpd skip_test );
skip_test unless have_httpd;


$|=1;
print "1..1\n";
use Apache::AppCluster::Client;

my $client = Apache::AppCluster::Client->new();

Server/t/3_multi_client_test.t  view on Meta::CPAN

use strict;

use lib 't/lib';
$|=1;

use Apache::test qw( have_httpd skip_test );
skip_test unless have_httpd;



print "1..5\n";
use Apache::AppCluster::Client;
my $client = Apache::AppCluster::Client->new();

Server/t/4_multi_client_digest.t  view on Meta::CPAN

use Digest::MD5 qw( md5_hex );
use strict;
use lib 't/lib';
$|=1;

use Apache::test qw( have_httpd skip_test );
skip_test unless have_httpd;


print "1..5\n";
use Apache::AppCluster::Client;

my $client = Apache::AppCluster::Client->new();

Server/t/5_heavy_load.t  view on Meta::CPAN

use Digest::MD5 qw( md5_hex );
use strict;
use lib 't/lib';
$|=1;

use Apache::test qw( have_httpd skip_test );
skip_test unless have_httpd;


print "1..100\n";
use Apache::AppCluster::Client;

for(my $main_counter = 0; $main_counter < 10; $main_counter++)

Server/t/6_server_to_server.t  view on Meta::CPAN

use strict;
use lib 't/lib';
$|=1;

use Apache::test qw( have_httpd skip_test );
skip_test unless have_httpd;



print "1..3\n";
use Apache::AppCluster::Client;
my $client = Apache::AppCluster::Client->new();

Server/t/lib/Apache/AppCluster/Server.pm  view on Meta::CPAN

	my $lib_list = $begin_r->dir_config('AppCLibs');
	$lib_list =~ s/[\t\s\n\r]//g;
	$lib_list =~ s/;$//; #remove trailing ; if found
	my @libs = split(';', $lib_list);


	foreach my $lib (@libs)
	{
		warn "AppCluster adding library directory: $lib" if($VERBOSE);
		my $p_code = "use lib '$lib';";
		eval $p_code;
		warn "A problem occured in Apache::AppCluster::Server while parsing your library directories: $@" if ($@);
	}

	foreach my $module (@mods)
	{
		warn "AppCluster adding module $module" if($VERBOSE);
		my $p_code = "use $module;";
		eval $p_code;
		warn "A problem occured in Apache::AppCluster::Server while parsing your modules: $@" if($@);

Server/t/lib/Apache/test.pm  view on Meta::CPAN

LockFile $DIR/t/httpd.lock
TypesConfig /dev/null
TransferLog /dev/null
ScoreBoardFile /dev/null

AddType text/html .html

# Look in ./blib/lib
#PerlModule ExtUtils::testlib
<Perl>
 use lib "$DIR/blib/lib", "$DIR/t/lib";
</Perl>

$args{include}
EOF

    return 1;
}

sub _ask {
    # Just a function for asking the user questions