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

Return to 60-network-trangolink.t CVS log

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

version 1.1, 2008/02/18 19:13:32

version 1.2, 2008/02/18 19:27:06

Line 1

#!perl -T

# $RedRiver: 50-network.t-stub,v 1.6 2007/02/06 20:59:10 andrew Exp $

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

use Test::More tests => 8;

#use Data::Dumper;

Line 19

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

my $t;

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

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

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