t/nntp.t

- Now exits passing if commands fail due to not having
  authorization.

1 files changed, 9 insertions, 1 deletions

diff --git a/t/nntp.t b/t/nntp.t
index 5888b16..1afb588 100644
--- a/t/nntp.t
+++ b/t/nntp.t
@@ -2,10 +2,11 @@
 
 use Net::Config;
 use Net::NNTP;
+use Net::Cmd qw(CMD_REJECT);
 
 unless(@{$NetConfig{nntp_hosts}} && $NetConfig{test_hosts}) {
     print "1..0\n";
-    exit 0;
+    exit;
 }
 
 print "1..4\n";
@@ -22,6 +23,13 @@ foreach $grp (qw(test alt.test control news.announce.newusers)) {
     @grp = $nntp->group($grp);
     last if @grp;
 }
+
+if($nntp->status == CMD_REJECT) {
+    # Command was rejected, probably because we need authinfo
+    map { print "ok ",$_,"\n" } 2,3,4;
+    exit;
+}
+
 print "not " unless @grp;
 print "ok 2\n";