![]() ![]() | ![]() |
File: [local] / trango / Net-Telnet-Trango / t / 30-decode-sysname.t (download)
Revision 1.1, Mon Feb 18 16:08:38 2008 UTC (16 years, 6 months ago) by andrew
add the beginnings of a script to test decoding of login banners |
#!perl -T # $RedRiver$ use Test::More tests => 3; use File::Spec; BEGIN { use_ok( 'Net::Telnet::Trango' ); } diag("25: Parse login banners"); my @banners = ( 'Welcome to Trango Broadband Wireless, TrangoLINK-45 DFS PtP-P5055M 2p0r1D07070201', ) use Data::Dumper; foreach my $banner (@banners) { my $decoded; ok($decoded = Net::Telnet::Trango::parse_login_banner($banner), "Decoding linktest"); print Dumper $decoded; #is_deeply($decoded, $should_decode_to, "Decoded information matches"); }