trango/Net-Telnet-Trango/t/60-network-trangolink.t - view

Return to 60-network-trangolink.t CVS log

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

File: [local] / trango / Net-Telnet-Trango / t / 60-network-trangolink.t (download)

Revision 1.2, Mon Feb 18 19:27:06 2008 UTC (16 years, 3 months ago) by andrew
Branch: MAIN
CVS Tags: Net-Telnet-Trango-0-05, Net-Telnet-Trango-0-04, Net-Telnet-Trango-0-03, Net-Telnet-Trango-0-02, HEAD
Changes since 1.1: +2 -2 lines

don't need a dump log anymore

#!perl -T
# $RedRiver: 60-network-trangolink.t,v 1.1 2008/02/18 19:13:32 andrew Exp $

use Test::More tests => 8;
#use Data::Dumper;

BEGIN {
	use_ok( 'Net::Telnet::Trango' );
}

diag("60: trango-link tests");

SKIP: {
    my $skipped = 7;

    my $type = 'TLink';
    my ($host, $pass) = ('10.150.0.253', '');

    skip "password not set", $skipped if $pass eq '';

    my $t;
    ok($t = Net::Telnet::Trango->new(), "Instantiating object");

    ok($t->open($host), "Opening connection to $host");

    ok($t->is_connected, "connected");

    ok($t->login($pass), "Logging in");

    ok($t->logged_in, "logged in");

    # XXX Additional tests go here.

    my $sysinfo;
    ok($sysinfo = $t->sysinfo, "sysinfo");
    #print Dumper $sysinfo;

    ok($t->bye, "Goodbye");
}