version 1.1, 2008/02/18 19:13:32 |
version 1.2, 2008/02/18 19:27:06 |
|
|
#!perl -T |
#!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 Test::More tests => 8; |
#use Data::Dumper; |
#use Data::Dumper; |
|
|
skip "password not set", $skipped if $pass eq ''; |
skip "password not set", $skipped if $pass eq ''; |
|
|
my $t; |
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"); |
ok($t->open($host), "Opening connection to $host"); |
|
|