You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
67 lines
1.4 KiB
67 lines
1.4 KiB
![]()
9 years ago
|
#!/usr/bin/env perl -I pl/lib
|
||
|
|
||
|
use Test::More;
|
||
|
use JSON;
|
||
|
use Data::Dumper;
|
||
|
use MIME::Base64;
|
||
|
|
||
|
require 't/test-psgi-lib.pm';
|
||
|
|
||
|
my $app;
|
||
|
|
||
|
use_ok('Lemonldap::NG::Handler::PSGI::Try');
|
||
|
|
||
|
ok( $app = module( Lemonldap::NG::Handler::PSGI::Try->new() ), 'New object' );
|
||
|
|
||
|
init();
|
||
|
|
||
|
ok(
|
||
|
$app->init(
|
||
|
{
|
||
|
configStorage => { type => 'File', dirName => 't' },
|
||
|
logLevel => 'warn',
|
||
|
cookieName => 'lemonldap',
|
||
|
securedCookie => 0,
|
||
|
https => 0,
|
||
|
}
|
||
|
),
|
||
|
'initialization'
|
||
|
);
|
||
|
|
||
|
ok( $app->addAuthRoute( test => sub { [ 200, [], ['Auth'] ] }, ['GET'] ),
|
||
|
'Set auth route' );
|
||
|
|
||
|
ok( $app->addUnauthRoute( test => sub { [ 200, [], ['Unauth'] ] }, ['GET'] ),
|
||
|
'Set auth route' );
|
||
|
|
||
|
count(4);
|
||
|
|
||
|
my $res;
|
||
|
|
||
|
# Unauth tests
|
||
|
ok( $res = $client->_get('/test'), 'Get response' );
|
||
|
ok( $res->[0] == 200, 'Response code is 200' )
|
||
|
or print "Expect 200, got $res->[0]\n";
|
||
|
ok( $res->[2]->[0] eq 'Unauth', 'Get unauth result' )
|
||
|
or print "Expect Unauth, got $res->[2]->[0]\n";
|
||
|
count(3);
|
||
|
|
||
|
# Auth tests
|
||
|
ok(
|
||
|
$res = $client->_get(
|
||
|
'/test',
|
||
|
undef,
|
||
|
undef,
|
||
|
'lemonldap=f5eec18ebb9bc96352595e2d8ce962e8ecf7af7c9a98cb9a43f9cd181cf4b545'
|
||
|
),
|
||
|
'Get response'
|
||
|
);
|
||
|
ok( $res->[0] == 200, 'Response code is 200' )
|
||
|
or print "Expect 200, got $res->[0]\n";
|
||
|
ok( $res->[2]->[0] eq 'Auth', 'Get auth result' )
|
||
|
or print "Expect Auth, got $res->[2]->[0]\n";
|
||
|
count(3);
|
||
|
|
||
|
done_testing( count() );
|
||
|
|