5 use Test::More tests => 4;
6 use Data::Dump qw(dump);
12 ok my $o = APKPM::LDAP->new, 'new';
14 my $login = $ENV{LOGIN} || 'ttest7';
16 ok my $r = $o->search( 'job', $login ), "search $login";
19 my $ip = $ENV{IP} || '10.16.13.24';
21 ok my $r = $o->search( 'job', $ip ), "search $ip";