dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Skeleton for PSGI handler tests

Browse Source
This commit is contained in:
Xavier Guimard 2016-02-01 11:11:31 +00:00
parent c01a84fadd
commit 8aa41789a9
3 changed files with 42 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lemonldap-ng-handler/MANIFEST
View File

@ -46,5 +46,7 @@ t/40-Lemonldap-NG-Handler-Proxy.t
t/50-Lemonldap-NG-Handler-SecureToken.t
t/51-Lemonldap-NG-Handler-Zimbra.t
t/52-Lemonldap-NG-Handler-AuthBasic.t
t/60-Lemonldap-NG-Handler-PSGI.t
t/99-pod.t
t/lmConf-1
t/test-psgi-lib.pm

9
lemonldap-ng-handler/t/60-Lemonldap-NG-Handler-PSGI.t Normal file
View File

@ -0,0 +1,9 @@
#!/usr/bin/env perl -I pl/lib
use Test::More;
use JSON;
use strict;
require 't/test-psgi-lib.pm';
done_testing( count() );

31
lemonldap-ng-handler/t/test-psgi-lib.pm Normal file
View File

@ -0,0 +1,31 @@
# Base library for tests
use strict;
use Data::Dumper;
use 5.10.0;
use_ok('Lemonldap::NG::Common::PSGI::Cli::Lib');
our $client;
ok(
$client = Lemonldap::NG::Common::PSGI::Cli::Lib->new(
app => sub {
return Lemonldap::NG::Handler::PSGI->run(configStorage => { type => 'File', dirName => 't' });
}
),
'Client object'
);
sub client {
return $client;
}
our $count = 2;
sub count {
my $c = shift;
$count += $c if ($c);
return $count;
}
1;