===================================================================
RCS file: /cvs/trango/Net-Telnet-Trango/t/54-network-ap-su.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- 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 19:17:26	1.3
@@ -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.2 2007/02/06 19:10:48 andrew Exp $
 
 use Test::More tests => 37;
 use File::Spec;
@@ -99,12 +99,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");
     }