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
|
use strict;
use warnings;
use Test::More tests => 8;
use File::Spec ();
use Test::NoWarnings;
BEGIN { use_ok('Authen::Radius') };
my $auth = Authen::Radius->new(Host => '127.0.0.1', Secret => 'secret', Debug => 0);
ok($auth, 'object created');
my $raddb_path = 'raddb';
SKIP: {
skip 'no local dictionary found', 5 if (! -d $raddb_path);
ok($auth->load_dictionary($raddb_path . '/dictionary'), 'local dictionary loaded');
$auth->add_attributes({ Name => 'Cisco-IP-Direct', Value => 10 });
my @attr = $auth->get_attributes();
is(@attr, 1, '1 attribute added');
is($attr[0]->{Name}, 'Cisco-IP-Direct', 'name check');
$auth->clear_attributes;
$auth->add_attributes({ Name => 'WiMAX-MSK', Value => 0x10 });
@attr = $auth->get_attributes();
is(@attr, 1, '1 attribute added');
is($attr[0]->{Name}, 'WiMAX-MSK', 'name check');
};
|
