Commit 8aa41789 authored by Xavier Guimard's avatar Xavier Guimard

Skeleton for PSGI handler tests

parent c01a84fa
......@@ -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
#!/usr/bin/env perl -I pl/lib
use Test::More;
use JSON;
use strict;
require 't/test-psgi-lib.pm';
done_testing( count() );
# 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;
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment