diff options
author | Graham Barr <gbarr@pobox.com> | 1997-11-18 03:15:47 +0000 |
---|---|---|
committer | Graham Barr <gbarr@pobox.com> | 1997-11-18 03:15:47 +0000 |
commit | 8844af6ff249c6275f095619f8459b22bae1b2d7 (patch) | |
tree | b0a38750a0142acc320fc77cf39451f9bbef1b45 | |
parent | 708cc418ff60c9577ac8356736d1b10c02b921f7 (diff) | |
download | perl-libnet-8844af6ff249c6275f095619f8459b22bae1b2d7.tar.gz |
t/nntp.t
- Modified to check for more groups before failure
-rw-r--r-- | t/nntp.t | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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"; |