version 1.1, 2008/02/18 16:08:38 |
version 1.2, 2008/02/18 16:37:35 |
|
|
#!perl -T |
#!perl -T |
# $RedRiver$ |
# $RedRiver: 30-decode-sysname.t,v 1.1 2008/02/18 16:08:38 andrew Exp $ |
|
|
use Test::More tests => 3; |
use Test::More tests => 19; |
use File::Spec; |
use File::Spec; |
|
|
BEGIN { |
BEGIN { |
use_ok( 'Net::Telnet::Trango' ); |
use_ok( 'Net::Telnet::Trango' ); |
} |
} |
|
|
diag("25: Parse login banners"); |
diag("30: Parse login banners"); |
|
|
my @banners = ( |
my @banners = ( |
'Welcome to Trango Broadband Wireless, TrangoLINK-45 DFS PtP-P5055M 2p0r1D07070201', |
{ |
) |
banner => 'Welcome to Trango Broadband Wireless, TrangoLINK-45 DFS PtP-P5055M 2p0r1D07070201', |
|
host_type => 'TrangoLINK-45 DFS', |
|
version => 'DFS PtP-P5055M 2p0r1D07070201', |
|
}, |
|
{ |
|
banner => 'Welcome to Trango Broadband Wireless M5830S AP 2p0r7H8002D07010207', |
|
host_type => 'M5830S AP', |
|
version => 'AP 2p0r7H8002D07010207', |
|
}, |
|
{ |
|
banner => 'Welcome to Trango Broadband Wireless M5800S-FSU 2p0r2H0004D05121201', |
|
host_type => 'M5800S-FSU', |
|
version => 'FSU 2p0r2H0004D05121201', |
|
}, |
|
{ |
|
banner => 'Welcome to Trango Broadband Wireless M5830S AP 2p0r7H8002D07010207', |
|
host_type => 'M5830S AP', |
|
version => 'AP 2p0r7H8002D07010207', |
|
}, |
|
{ |
|
banner => 'Welcome to Trango Broadband Wireless M5830S SU 2p0r7H0002D07010207', |
|
host_type => 'M5830S SU', |
|
version => 'SU 2p0r7H0002D07010207', |
|
}, |
|
{ |
|
banner => 'Welcome to Trango Broadband Wireless M5300S-FSU 2p0r2H0003D05121201', |
|
host_type => 'M5300S-FSU', |
|
version => 'FSU 2p0r2H0003D05121201', |
|
}, |
|
); |
|
|
use Data::Dumper; |
|
foreach my $banner (@banners) { |
foreach my $banner (@banners) { |
my $decoded; |
my $decoded; |
ok($decoded = Net::Telnet::Trango::parse_login_banner($banner), |
my $t = Net::Telnet::Trango->new(); |
"Decoding linktest"); |
ok($decoded = $t->parse_login_banner($banner->{banner}), |
|
"Decoding linktest"); |
|
|
print Dumper $decoded; |
is($t->host_type(), $banner->{host_type}, "Host Type matches"); |
#is_deeply($decoded, $should_decode_to, "Decoded information matches"); |
is($t->firmware_version(), $banner->{version}, "Firmware Version matches"); |
} |
} |
|
|