Skip all network tests: no networks inside BTE, and no www.bitperfect.com anyway --- test.pl +++ test.pl @@ -1,7 +1,7 @@ use strict; use warnings FATAL => 'all'; -use Test::More tests => 29; +use Test::More tests => 26; use List::Util qw(sum); use File::Temp qw(tempfile tempdir); @@ -100,12 +100,12 @@ use_ok('CGI::SSI'); # tough to do these well, without more info... # include file - with many types of input # include virtual - with different types of input - -{ - my $ssi = CGI::SSI->new(); - my $html = $ssi->process(q[]); - ok($html =~ /yahoo/i && $html =~ /mail/i,'include virtual 1'); -} +# +#{ +# my $ssi = CGI::SSI->new(); +# my $html = $ssi->process(q[]); +# ok($html =~ /yahoo/i && $html =~ /mail/i,'include virtual 1'); +#} # tough to do these well, without more info... # include file - with many types of input @@ -118,12 +118,12 @@ use_ok('CGI::SSI'); } # exec cgi - with different input - -{ - my $ssi = CGI::SSI->new(); - my $html = $ssi->process(q[]); - ok($html =~ /yahoo/i,'exec cgi'); -} +# +#{ +# my $ssi = CGI::SSI->new(); +# my $html = $ssi->process(q[]); +# ok($html =~ /yahoo/i,'exec cgi'); +#} # exec cmd - with different input @@ -266,15 +266,15 @@ SKIP: { } # test cookie support -SKIP: { - eval "use HTTP::Cookies; 1" or skip("HTTP::Cookies not installed", 1); - my $jar = HTTP::Cookies->new({}); - $jar->set_cookie(1,'mycookie','COOKIEVAL','/','www.bitperfect.com',80,0,0,100); - - my $ssi = CGI::SSI->new(COOKIE_JAR => $jar); - my $html = $ssi->process(qq[]); - ok($html =~ m'COOKIEVAL', "cookie support"); -} +#SKIP: { +# eval "use HTTP::Cookies; 1" or skip("HTTP::Cookies not installed", 1); +# my $jar = HTTP::Cookies->new({}); +# $jar->set_cookie(1,'mycookie','COOKIEVAL','/','www.bitperfect.com',80,0,0,100); +# +# my $ssi = CGI::SSI->new(COOKIE_JAR => $jar); +# my $html = $ssi->process(qq[]); +# ok($html =~ m'COOKIEVAL', "cookie support"); +#} SKIP: { # tie by hand & close