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.1

1.1     ! andrew      1: #!perl -T
        !             2: # $RedRiver: 50-network.t-stub,v 1.6 2007/02/06 20:59:10 andrew Exp $
        !             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;
        !            22:     ok($t = Net::Telnet::Trango->new(Dump_Log => 'dump_log'), "Instantiating object");
        !            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: }