libnet-radius-perl/t/bundled.t

194 lines
7.3 KiB
Perl
Raw Permalink Normal View History

2017-09-15 15:01:34 +02:00
#!/usr/bin/perl
# Test the parsing of the bundled dictionary files...
# $Id: bundled.t 98 2009-10-14 15:26:33Z lem $
use Test::Warn;
use Test::More;
use Net::Radius::Dictionary;
my %dict =
(
'dicts/dictionary.base'
=> { attr => 39, vendor => undef, vsa => 0 },
'dicts/dictionary.3com-o'
=> { attr => 3, vendor => 'USR', vsa => 259 },
'dicts/dictionary'
=> { attr => 78, vendor => undef, vsa => 0 },
'dicts/dictionary.3com'
=> { attr => 0, vendor => '3com', vsa => 1 },
'dicts/dictionary.3gpp2'
=> { attr => 0, vendor => '3GPP2', vsa => 74 },
'dicts/dictionary.3gpp'
=> { attr => 0, vendor => '3GPP', vsa => 17 },
'dicts/dictionary.acc'
=> { attr => 0, vendor => 'Acc', vsa => 47 },
'dicts/dictionary.alcatel'
=> { attr => 0, vendor => 'Alcatel', vsa => 21 },
'dicts/dictionary.alteon'
=> { attr => 0, vendor => 'Alteon', vsa => 1 },
'dicts/dictionary.altiga'
=> { attr => 0, vendor => 'Altiga', vsa => 29},
'dicts/dictionary.aptis'
=> { attr => 0, vendor => 'Aptis', vsa => 36 },
'dicts/dictionary.ascend'
=> { attr => 137, vendor => 'Ascend',vsa => 249 },
'dicts/dictionary.bay'
=> { attr=>0,vendor=>'Bay-Networks',vsa => 65 },
'dicts/dictionary.bintec'
=> { attr => 0, vendor => 'BinTec', vsa => 17 },
'dicts/dictionary.bristol'
=> { attr => 0, vendor => 'Bristol', vsa => 5 },
'dicts/dictionary.broadsoft'
=> { attr => 0, vendor => 'BroadSoft', vsa => 132 },
'dicts/dictionary.cablelabs'
=> { attr => 0, vendor => 'CableLabs', vsa => 62 },
'dicts/dictionary.cabletron'
=> { attr => 0, vendor => 'Cabletron', vsa => 2 },
'dicts/dictionary.cisco'
=> { attr => 0, vendor => 'Cisco', vsa => 83 },
'dicts/dictionary.cisco.bbsm'
=> { attr => 0, vendor => 'Cisco-BBSM', vsa => 1 },
'dicts/dictionary.cisco.vpn3000'
=> { attr => 0, vendor => 'Cisco-VPN3000', vsa => 74 },
'dicts/dictionary.cisco.vpn5000'
=> { attr => 0, vendor => 'Cisco-VPN5000', vsa => 7 },
'dicts/dictionary.colubris'
=> { attr => 0, vendor => 'Colubris', vsa => 1 },
'dicts/dictionary.columbia_university'
=> { attr => 0, vendor => 'Columbia-University', vsa => 4 },
'dicts/dictionary.compat'
=> { attr => 21, vendor => undef, vsa => 0 },
'dicts/dictionary.cosine'
=> { attr => 0, vendor => 'Cosine', vsa => 8 },
'dicts/dictionary.erx'
=> { attr => 0, vendor => 'ERX', vsa => 51 },
'dicts/dictionary.extreme'
=> { attr => 0, vendor => 'Extreme', vsa => 4 },
'dicts/dictionary.foundry'
=> { attr => 0, vendor => 'Foundry', vsa => 4 },
'dicts/dictionary.freeradius'
=> { attr => 0, vendor => 'FreeRADIUS', vsa => 1 },
'dicts/dictionary.gandalf'
=> { attr => 0, vendor => 'Gandalf', vsa => 33 },
'dicts/dictionary.garderos'
=> { attr => 0, vendor => 'Garderos', vsa => 2 },
'dicts/dictionary.gemtek'
=> { attr => 0, vendor => 'Gemtek', vsa => 6 },
'dicts/dictionary.huawei'
=> { attr => 0, vendor => 'Huawei', vsa => 52 },
'dicts/dictionary.itk'
=> { attr => 0, vendor => 'ITK', vsa => 32 },
'dicts/dictionary.juniper'
=> { attr => 0, vendor => 'Juniper', vsa => 5 },
'dicts/dictionary.karlnet'
=> { attr => 0, vendor => 'KarlNet', vsa => 4 },
'dicts/dictionary.livingston'
=> { attr => 0, vendor => 'Livingston', vsa => 21 },
'dicts/dictionary.localweb'
=> { attr => 0, vendor => 'Local-Web', vsa => 15 },
'dicts/dictionary.merit'
=> { attr => 0, vendor => 'Merit', vsa => 3 },
'dicts/dictionary.microsoft'
=> { attr => 0, vendor => 'Microsoft', vsa => 33 },
'dicts/dictionary.mikrotik'
=> { attr => 0, vendor => 'Mikrotik', vsa => 3 },
'dicts/dictionary.navini'
=> { attr => 0, vendor => 'Navini', vsa => 1 },
'dicts/dictionary.netscreen'
=> { attr => 0, vendor => 'Netscreen', vsa => 7 },
'dicts/dictionary.nokia'
=> { attr => 5, vendor => undef, vsa => 0 },
'dicts/dictionary.nomadix'
=> { attr => 0, vendor => 'Nomadix', vsa => 13 },
'dicts/dictionary.propel'
=> { attr => 0, vendor => 'Propel', vsa => 5 },
'dicts/dictionary.quintum'
=> { attr => 0, vendor => 'Quintum', vsa => 23 },
'dicts/dictionary.redback'
=> { attr => 0, vendor => 'Redback', vsa => 170 },
'dicts/dictionary.redcreek'
=> { attr => 0, vendor => 'RedCreek', vsa => 9 },
'dicts/dictionary.shasta'
=> { attr => 0, vendor => 'Shasta', vsa => 3 },
'dicts/dictionary.shiva'
=> { attr => 0, vendor => 'Shiva', vsa => 16 },
'dicts/dictionary.sonicwall'
=> { attr => 0, vendor => 'SonicWall', vsa => 4 },
'dicts/dictionary.springtide'
=> { attr => 0, vendor => 'SpringTide', vsa => 8 },
'dicts/dictionary.t_systems_nova'
=> { attr => 0, vendor => 'T-Systems-Nova', vsa => 15 },
'dicts/dictionary.telebit'
=> { attr => 0, vendor => 'Telebit', vsa => 4 },
'dicts/dictionary.trapeze'
=> { attr => 0, vendor => 'Trapeze', vsa => 8 },
'dicts/dictionary.tunnel'
=> { attr => 12, vendor => undef, vsa => 0 },
'dicts/dictionary.unisphere'
=> { attr => 0, vendor => 'Unisphere', vsa => 49 },
'dicts/dictionary.unix'
=> { attr => 0, vendor => 'Unix', vsa => 6 },
'dicts/dictionary.usr'
=> { attr => 2, vendor => 'USR', vsa => 259 },
'dicts/dictionary.valemount'
=> { attr => 0, vendor => 'ValemountNetworks', vsa => 5 },
'dicts/dictionary.versanet'
=> { attr => 0, vendor => 'Versanet', vsa => 1 },
'dicts/dictionary.wispr'
=> { attr => 0, vendor => 'WISPr', vsa => 11 },
'dicts/dictionary.xedia'
=> { attr => 0, vendor => 'Xedia', vsa => 6 },
);
plan tests => 6 * keys %dict;
# Determine which dicts are not readable and produce the appropiate skip
for my $d (keys %dict)
{
unless (-f $d)
{
delete $dict{$d};
fail "Access $d: $!";
SKIP: { skip "(Consequence of previous failure)", 5 };
next;
}
$dict{$d}->{dict} = new Net::Radius::Dictionary;
isa_ok($dict{$d}->{dict}, 'Net::Radius::Dictionary');
}
# Verify what happens upon reading the dictionary - Check for warnings
# if the proper module is available
while (my ($dict, $h) = each %dict)
{
warning_is { $h->{dict}->readfile($dict) } undef,
"No warning to readfile('$dict')";
}
# Now check the dictionary contents...
# XXX - These tests peek inside the object. Probably their methods should
# be encapsulated through adequate accessors. However, these functions
# are never required for real use
while (my ($d, $h) = each %dict)
{
my $dict = $h->{dict};
my $attr = $dict->{attr};
is(keys %{$attr}, $dict{$d}->{attr}, "Correct number of attributes in $d");
my $num = undef;
SKIP: {
skip "No vendors defined in $d", 3
if not defined $dict{$d}->{vendor};
warning_is {$num = $dict->vendor_num($dict{$d}->{vendor})} undef,
"No warn fetching vendor " . $dict{$d}->{vendor} . " in $d" ;
ok(defined $num, "Vendor " . $dict{$d}->{vendor} . " in $d");
is(scalar(keys %{$dict->{vsattr}->{$num}}),
$dict{$d}->{vsa},
"Correct number of VSAs for " . $dict{$d}->{vendor} . " in $d");
# print "$_\n" for keys %{$dict->{vsattr}->{$num}};
};
}