use strict;
use Test::More tests => 4;
use Plack::Builder;
use Plack::Test;
use Plack::Middleware::ServerStatus::Lite;
use File::Temp;
{
my $app = builder {
enable 'ServerStatus::Lite', path => '/server-status', allow=>'0.0.0.0/0';
sub { [200, [ 'Content-Type' => 'text/plain' ], [ "Hello World" ]] };
};
test_psgi
app => $app,
client => sub {
my $cb = shift;
my $req = HTTP::Request->new(GET => "http://localhost/server-status");
my $res = $cb->($req);
like( $res->content, qr/Uptime:/ );
unlike( $res->content, qr/IdleWorker/ );
};
}
{
my $dir = File::Temp::tempdir( CLEANUP => 1 );
my $app = builder {
enable 'ServerStatus::Lite', path => '/server-status', allow=>'0.0.0.0/0', scoreboard => $dir;
sub { [200, [ 'Content-Type' => 'text/plain' ], [ "Hello World" ]] };
};
test_psgi
app => $app,
client => sub {
my $cb = shift;
my $req = HTTP::Request->new(GET => "http://localhost/server-status");
my $res = $cb->($req);
like( $res->content, qr/IdleWorkers: 0/ );
like( $res->content, qr/BusyWorkers: 1/ );
};
}