1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
#!perl
use Test::More;
use File::Compare qw(compare_text);
BEGIN { require "t/common.pl" }
plan tests => 21;
require Net::LDAP::LDIF;
require Net::LDAP::Control::ManageDsaIT;
require Net::LDAP::Control::ProxyAuth;
my $infile = "data/10-in.ldif";
my $outfile1 = "$TEMPDIR/10-out.ldif";
my $cmpfile1 = "data/10-in.ldif";
my $ldifin = Net::LDAP::LDIF->new($infile,"r");
isa_ok($ldifin, Net::LDAP::LDIF, 'input object');
my @entries = ();
while (my ($entry, @controls) = $ldifin->read_entry) {
push(@entries, $entry);
push(@entries, control => \@controls) if (@controls);
}
is(scalar(@entries), 12, 'entries read');
$ldifin->done;
map { chomp(my $t = <DATA>); ref($_) ? isa_ok($_, $t, "structure") : is($_, $t, "structure"); } @entries;
isa_ok($entries[0], 'Net::LDAP::Entry', "1st entry");
ok(@{$entries[2]} == 2 and ref($entries[2][0]) eq 'Net::LDAP::Control::ManageDsaIT', "1st entry's control");
ok(@{$entries[2]} == 2 and ref($entries[2][1]) eq 'Net::LDAP::Control::ProxyAuth', "1st entry's control");
ok(@{$entries[-1]} == 1 and ref($entries[-1][0]) eq 'Net::LDAP::Control::ManageDsaIT', "last entry's control");
my $ldifout = Net::LDAP::LDIF->new($outfile1, 'w', change => 1);
isa_ok($ldifout, Net::LDAP::LDIF, 'output object');
# write all entres at once
my $x = $ldifout->write_entry(@entries);
ok($x, 'entries written');
$ldifout->done;
ok(!compare_text($cmpfile1,$outfile1), $cmpfile1);
__DATA__
Net::LDAP::Entry
control
ARRAY
Net::LDAP::Entry
control
ARRAY
Net::LDAP::Entry
Net::LDAP::Entry
Net::LDAP::Entry
Net::LDAP::Entry
control
ARRAY
|
