test-lib.pm 366 Bytes
Newer Older
1
# Base library for tests
2

3
use strict;
4
use 5.10.0;
5
use_ok('Lemonldap::NG::Manager::Cli::Lib');
6

7
our $client;
8 9

ok(
10 11 12
    $client =
      Lemonldap::NG::Manager::Cli::Lib->new( iniFile => 't/lemonldap-ng.ini' ),
    'Client object'
13 14
);

15 16 17
sub client {
    return $client;
}
Xavier Guimard's avatar
Xavier Guimard committed
18

19
our $count = 2;
20 21 22 23 24 25 26 27

sub count {
    my $c = shift;
    $count += $c if ($c);
    return $count;
}

1;