5c70ffb3e0
Updated TODO Enabled preloading Added defaultPSGI to WebGUI::Paths Added example of testing site via Plack::Test
23 lines
476 B
Perl
23 lines
476 B
Perl
use strict;
|
|
use warnings;
|
|
use Test::More tests => 4;
|
|
|
|
use Plack::Test;
|
|
use Plack::Util;
|
|
use HTTP::Request::Common;
|
|
use WebGUI::Paths;
|
|
|
|
my $app = Plack::Util::load_psgi( WebGUI::Paths->defaultPSGI );
|
|
|
|
test_psgi $app, sub {
|
|
my $cb = shift;
|
|
|
|
my $res = $cb->( GET "/" );
|
|
is $res->code, 200;
|
|
like $res->content, qr/My Company/;
|
|
|
|
$res = $cb->( GET "/?op=editSettings" );
|
|
is $res->code, 401;
|
|
like $res->content, qr/Administrative Function/;
|
|
|
|
};
|