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
|
use strict;
use Test::More qw(no_plan);
use lib "lib";
BEGIN { use_ok('Text::DHCPLeases'); }
my $file = 't/dhcpd.leases.sample';
my $dl = Text::DHCPLeases->new(file=>$file);
isa_ok($dl, 'Text::DHCPLeases', 'Constructor');
my $it = $dl->get_objects();
is($it->count, 34, 'count');
is($it->first->ip_address, '192.168.10.87', 'get_leases2');
is($it->last->ip_address, '192.168.10.55', 'get_leases3');
$it = $dl->get_objects(type=>'lease', ip_address=>'192.168.10.55');
is($it->last->tsfp, '3 2007/08/15 20:31:07', 'get_leases1');
my @objs = $dl->get_objects('mac_address'=>'08:00:09:7c:c5:9a');
is(scalar @objs, 2, 'search');
open(FILE, $file) or die "Can't open file $file: $!\n";
my $text;
while(<FILE>){
$text .= $_;
}
is($dl->print, $text, 'print');
=head1 LICENCE AND COPYRIGHT
Copyright (c) 2007-2010, Carlos Vicente <cvicente@cpan.org>. All rights reserved.
This module is free software; you can redistribute it and/or
modify it under the same terms as Perl itself. See L<perlartistic>.
=cut
|
