Return to 30-decode-sysname.t CVS log

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

Annotation of trango/Net-Telnet-Trango/t/30-decode-sysname.t, Revision 1.1

1.1     ! andrew      1: #!perl -T
        !             2: # $RedRiver$
        !             3:
        !             4: use Test::More tests => 3;
        !             5: use File::Spec;
        !             6:
        !             7: BEGIN {
        !             8:        use_ok( 'Net::Telnet::Trango' );
        !             9: }
        !            10:
        !            11: diag("25: Parse login banners");
        !            12:
        !            13: my @banners = (
        !            14:        'Welcome to Trango Broadband Wireless, TrangoLINK-45 DFS PtP-P5055M 2p0r1D07070201',
        !            15: )
        !            16:
        !            17: use Data::Dumper;
        !            18: foreach my $banner (@banners) {
        !            19:        my $decoded;
        !            20:        ok($decoded = Net::Telnet::Trango::parse_login_banner($banner),
        !            21:        "Decoding linktest");
        !            22:
        !            23:        print Dumper $decoded;
        !            24:        #is_deeply($decoded, $should_decode_to, "Decoded information matches");
        !            25: }
        !            26: