"Fossies" - the Fresh Open Source Software Archive

Member "libwww-perl-6.43/t/base/protocols/nntp.t" (26 Nov 2019, 371 Bytes) of package /linux/www/libwww-perl-6.43.tar.gz:


As a special service "Fossies" has tried to format the requested text file into HTML format (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file. See also the last Fossies "Diffs" side-by-side code changes report for "nntp.t": 6.38_vs_6.39.

    1 use strict;
    2 use warnings;
    3 
    4 use LWP::UserAgent ();
    5 use Test::More skip_all => 'nntp.perl.org is unstable and Test::RequiresInternet is not catching it';
    6 use Test::RequiresInternet ( 'nntp.perl.org' => 119 );
    7 
    8 plan tests => 1;
    9 my $ua = LWP::UserAgent->new;
   10 
   11 my $res = $ua->get('nntp://nntp.perl.org/blahblahblah@blahblahblah');
   12 is($res->code, 404, '404 on fake nntp url');