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

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

8
our $client;
9 10

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

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

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

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

1;