Added some test targets.

diff --git a/Makefile b/Makefile
index 5f4ae7e18b713feafb875ccab7a3b85f3ad74094..306b50b921260835beac1e030221e5c54da91d57 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -46,7 +46,15 @@ test:
        rm -f news.log
        PERL5LIB=./Net-Server-NNTP/lib ./newsd conf_file=test.conf
        sleep 1
        rm -f news.log
        PERL5LIB=./Net-Server-NNTP/lib ./newsd conf_file=test.conf
        sleep 1

-       prove t/*.t
+       -prove t/*.t
+       -test -f newsd.pid && kill `cat newsd.pid`
+
+vtest:
+       -test -f newsd.pid && kill `cat newsd.pid`
+       rm -f news.log
+       PERL5LIB=./Net-Server-NNTP/lib ./newsd conf_file=test.conf
+       sleep 1
+       -prove -v t/*.t

        -test -f newsd.pid && kill `cat newsd.pid`
 
 schema:
        -test -f newsd.pid && kill `cat newsd.pid`
 
 schema:

diff --git a/Net-Server-NNTP/lib/Net/Server/NNTP.pm b/Net-Server-NNTP/lib/Net/Server/NNTP.pm
index 63c37b097622febbf9f5108ef73849b372e5bee5..54765487dc4a86ca06d192491670b618f8863a67 100644 (file)
--- a/Net-Server-NNTP/lib/Net/Server/NNTP.pm
+++ b/Net-Server-NNTP/lib/Net/Server/NNTP.pm
@@ -62,13 +62,6 @@ Perhaps a little code snippet.
     my $foo = Net::Server::NNTP->new();
     ...
 
     my $foo = Net::Server::NNTP->new();
     ...
 

-=head1 EXPORT
-
-Nothing is exported.
-
-A list of functions that can be exported. You can delete this section if
-you don't export anything, such as for a purely object-oriented module.
-

 =cut 
 
 our $article_re = qr/\<[^\s\>]+\@[^\s\>]+\>/; # rfc 1036 2.1.5
 =cut 
 
 our $article_re = qr/\<[^\s\>]+\@[^\s\>]+\>/; # rfc 1036 2.1.5


@@ -407,9 +400,9 @@ sub stat {
                $s->article_number($n);
        } elsif (!@args) {
                ($g, $n) = $s->pointer;
                $s->article_number($n);
        } elsif (!@args) {
                ($g, $n) = $s->pointer;

-               $s->log(4, "fetching ($g $n)");

                return $s->response(412) unless defined $g;
                return $s->response(420) unless defined $n;
                return $s->response(412) unless defined $g;
                return $s->response(420) unless defined $n;

+               $s->log(4, "fetching ($g $n)");

                $id = $s->fetch_stat($g,$n);
                return $s->response(420) unless defined $id;
        } else {
                $id = $s->fetch_stat($g,$n);
                return $s->response(420) unless defined $id;
        } else {