Added some debug to t/ftp.t to help understand failure

1 files changed, 11 insertions, 3 deletions

diff --git a/t/ftp.t b/t/ftp.t
index 5e5645e..cf5aadf 100644
--- a/t/ftp.t
+++ b/t/ftp.t
@@ -15,11 +15,19 @@ $ftp = Net::FTP->new($NetConfig{ftp_testhost}, Debug => 0)
 
 print "ok 1\n";
 
-$ftp->login('anonymous') or print "not ";
+$ftp->login('anonymous') or die($ftp->message . "\n");
 print "ok 2\n";
 
-$ftp->pwd or print "not ";
+$ftp->pwd  or do {
+  print STDERR $ftp->message,"\n";
+  print "not ";
+};
+
 print "ok 3\n";
 
-$ftp->quit or print "not ";
+$ftp->quit  or do {
+  print STDERR $ftp->message,"\n";
+  print "not ";
+};
+
 print "ok 4\n";