[BACK]Return to 30-decode-sysname.t CVS log [TXT][DIR] Up to [local] / trango / Net-Telnet-Trango / t

Diff for /trango/Net-Telnet-Trango/t/30-decode-sysname.t between version 1.1 and 1.2

version 1.1, 2008/02/18 16:08:38 version 1.2, 2008/02/18 16:37:35
Line 1 
Line 1 
 #!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");
 }  }
   
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>