trango/Net-Telnet-Trango/t/54-network-ap-su.t - diff

Return to 54-network-ap-su.t CVS log

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

version 1.2, 2007/02/06 19:10:48

version 1.3, 2007/02/06 19:17:26

Line 1

#!perl -T

# $RedRiver: 54-network-ap-su.t,v 1.1 2007/02/06 18:55:21 andrew Exp $

# $RedRiver: 54-network-ap-su.t,v 1.2 2007/02/06 19:10:48 andrew Exp $

use Test::More tests => 37;

use File::Spec;

Line 99

is($tftpd->{Tftpd}, 'disabled', "TFTPd is disabled");

# XXX for some reason this doesn't return Success.

# no TODO because I don't want to upgrade Test::Harness

# XXX at least not on the fox I am testing on.

#TODO: {

#if ( (! ok($t->eth_link, "Getting eth link"))

# # XXX for some reason this doesn't return Success.

# && $t->last_error ) {

# # XXX at least not on the fox I am testing on.

# diag('ERR: ' . $t->last_error);

# if ( (! ok($t->eth_link, "Getting eth link"))

# && $t->last_error ) {

# diag('ERR: ' . $t->last_error);

# }

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

}