Return to 30-decode-sysname.t CVS log

Up to [local] / trango / Net-Telnet-Trango / t

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");
}