about summary refs log tree commit
diff options
context:
space:
mode:
authorGraham Barr <gbarr@pobox.com>1997-11-18 03:15:47 +0000
committerGraham Barr <gbarr@pobox.com>1997-11-18 03:15:47 +0000
commit8844af6ff249c6275f095619f8459b22bae1b2d7 (patch)
treeb0a38750a0142acc320fc77cf39451f9bbef1b45
parent708cc418ff60c9577ac8356736d1b10c02b921f7 (diff)
downloadperl-libnet-8844af6ff249c6275f095619f8459b22bae1b2d7.tar.gz
t/nntp.t
- Modified to check for more groups before failure

-rw-r--r--t/nntp.t2
1 files changed, 2 insertions, 0 deletions
diff --git a/t/nntp.t b/t/nntp.t
index 3b7fcf4..7245081 100644
--- a/t/nntp.t
+++ b/t/nntp.t
@@ -18,6 +18,8 @@ $nntp = Net::NNTP->new(Debug => 0)
 print "ok 1\n";
 
 @grp = $nntp->group('test');
+@grp = $nntp->group('control') unless @grp;
+@grp = $nntp->group('news.announce.newusers') unless @grp;
 print "not " unless @grp;
 print "ok 2\n";