Return to 60-network-trangolink.t CVS log

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

Annotation of trango/Net-Telnet-Trango/t/60-network-trangolink.t, Revision 1.2

1.1       andrew      1: #!perl -T
1.2     ! andrew      2: # $RedRiver: 60-network-trangolink.t,v 1.1 2008/02/18 19:13:32 andrew Exp $
1.1       andrew      3:
                      4: use Test::More tests => 8;
                      5: #use Data::Dumper;
                      6:
                      7: BEGIN {
                      8:        use_ok( 'Net::Telnet::Trango' );
                      9: }
                     10:
                     11: diag("60: trango-link tests");
                     12:
                     13: SKIP: {
                     14:     my $skipped = 7;
                     15:
                     16:     my $type = 'TLink';
                     17:     my ($host, $pass) = ('10.150.0.253', '');
                     18:
                     19:     skip "password not set", $skipped if $pass eq '';
                     20:
                     21:     my $t;
1.2     ! andrew     22:     ok($t = Net::Telnet::Trango->new(), "Instantiating object");
1.1       andrew     23:
                     24:     ok($t->open($host), "Opening connection to $host");
                     25:
                     26:     ok($t->is_connected, "connected");
                     27:
                     28:     ok($t->login($pass), "Logging in");
                     29:
                     30:     ok($t->logged_in, "logged in");
                     31:
                     32:     # XXX Additional tests go here.
                     33:
                     34:     my $sysinfo;
                     35:     ok($sysinfo = $t->sysinfo, "sysinfo");
                     36:     #print Dumper $sysinfo;
                     37:
                     38:     ok($t->bye, "Goodbye");
                     39: }