From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

MARSCHAP / perl-ldap-0.68 / t / 10ldif-controls.t 

            

              
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