2016-01-01 20:55:29 +01:00
|
|
|
# Base library for tests
|
2015-05-14 08:44:38 +02:00
|
|
|
|
2016-01-01 20:55:29 +01:00
|
|
|
use strict;
|
2015-05-14 08:44:38 +02:00
|
|
|
use 5.10.0;
|
2016-01-01 20:55:29 +01:00
|
|
|
use_ok('Lemonldap::NG::Manager::Cli::Lib');
|
2015-05-14 08:44:38 +02:00
|
|
|
|
2016-01-01 20:55:29 +01:00
|
|
|
our $client;
|
2015-05-14 08:44:38 +02:00
|
|
|
|
|
|
|
ok(
|
2016-01-01 20:55:29 +01:00
|
|
|
$client =
|
|
|
|
Lemonldap::NG::Manager::Cli::Lib->new( iniFile => 't/lemonldap-ng.ini' ),
|
|
|
|
'Client object'
|
2015-05-14 08:44:38 +02:00
|
|
|
);
|
|
|
|
|
2016-01-01 20:55:29 +01:00
|
|
|
sub client {
|
|
|
|
return $client;
|
|
|
|
}
|
2015-05-14 08:45:03 +02:00
|
|
|
|
2016-01-01 20:55:29 +01:00
|
|
|
our $count = 2;
|
2015-05-14 08:44:38 +02:00
|
|
|
|
|
|
|
sub count {
|
|
|
|
my $c = shift;
|
|
|
|
$count += $c if ($c);
|
|
|
|
return $count;
|
|
|
|
}
|
|
|
|
|
|
|
|
1;
|