===================================================================
RCS file: /cvs/trango/Net-Telnet-Trango/t/54-network-ap-su.t,v
retrieving revision 1.2
retrieving revision 1.4
diff -u -r1.2 -r1.4
--- trango/Net-Telnet-Trango/t/54-network-ap-su.t	2007/02/06 19:10:48	1.2
+++ trango/Net-Telnet-Trango/t/54-network-ap-su.t	2007/02/06 20:59:10	1.4
@@ -1,5 +1,5 @@
 #!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.3 2007/02/06 19:17:26 andrew Exp $
 
 use Test::More tests => 37;
 use File::Spec;
@@ -8,8 +8,7 @@
 	use_ok( 'Net::Telnet::Trango' );
 }
 
-diag("Testing Net::Telnet::Trango $Net::Telnet::Trango::VERSION, Perl $], $^X");
-diag("  Tests that run on both APs and SUs associated or not");
+diag("54: Tests that run on both APs and SUs associated or not");
 
 my $cfg_file = File::Spec->catfile('t', 'tests.cfg');
 
@@ -99,12 +98,15 @@
 
         is($tftpd->{Tftpd}, 'disabled', "TFTPd is disabled");
 
-        # XXX for some reason this doesn't return Success. 
-        # XXX at least not on the fox I am testing on.
-        #if ( (! ok($t->eth_link, "Getting eth link")) 
-        #    && $t->last_error ) {
-        #    diag('ERR: ' . $t->last_error);
-        #} 
+        # no TODO because I don't want to upgrade Test::Harness
+        #TODO: {
+        #    # XXX for some reason this doesn't return Success. 
+        #    # XXX at least not on the fox I am testing on.
+        #    if ( (! ok($t->eth_link, "Getting eth link")) 
+        #        && $t->last_error ) {
+        #        diag('ERR: ' . $t->last_error);
+        #    } 
+        #}
 
         ok($t->bye, "Goodbye");
     }