X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=test.pl;h=fc1dfe520a397d9196ea4d24bb58c905d6b8b84a;hb=7bf4c03cd3e647070f42f6e2da2a03a56f7e5f76;hp=aaa3715b16777b63c78804b61c9e07f7d263f04d;hpb=ff7f79072d14341d7427e12351d56d027d92f589;p=Net-APP.git

diff --git a/test.pl b/test.pl
index aaa3715..fc1dfe5 100644
--- a/test.pl
+++ b/test.pl
@@ -33,7 +33,10 @@ sub input {
 
 print <<END;
 In order to test Net::APP, you need a cleartext APP server available, i.e. a
-Safe Passage tunnel, and an account on the APP server.
+Safe Passage or tunnel or Stunnel <http://www.stunnel.org>, and an account on
+the APP server.
+
+(i.e. stunnel -P none -c -d 8888 -r appsandbox.criticalpath.net:8889)
 
 END
 
@@ -47,7 +50,7 @@ my $password = input "Enter your APP password: ";
 print "\n\n"; system("stty echo");
 
 test 2, my $app = new Net::APP ( "$hostname:$port",
-                                  Debug => 1,
+                                  Debug => 0,
                                 );
 test 3, $app->login( User => $user,
                      Domain => $domain,
@@ -59,7 +62,7 @@ test 6, $app->code == 0;
 $app->close();
 undef $app;
 test 6, $app = new Net::APP ( "$hostname:$port",
-                              Debug => 1,
+                              Debug => 0,
                               User => $user,
                               Domain => $domain,
                               Password => $password,