Группа :: Разработка/Perl
Пакет: perl-CGI-SSI
Главная Изменения Спек Патчи Sources Загрузить Gear Bugs and FR Repocop
Патч: CGI-SSI-0.92-alt-drop_network_tests.patch
Скачать
Скачать
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[<!--#include virtual="http://www.yahoo.com" -->]);
- ok($html =~ /yahoo/i && $html =~ /mail/i,'include virtual 1');
-}
+#
+#{
+# my $ssi = CGI::SSI->new();
+# my $html = $ssi->process(q[<!--#include virtual="http://www.yahoo.com" -->]);
+# 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[<!--#exec cgi="http://www.yahoo.com/" -->]);
- ok($html =~ /yahoo/i,'exec cgi');
-}
+#
+#{
+# my $ssi = CGI::SSI->new();
+# my $html = $ssi->process(q[<!--#exec cgi="http://www.yahoo.com/" -->]);
+# 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[<!--#include virtual="http://www.bitperfect.com/cgi-bin/cgi-ssi/cookietest.cgi"-->]);
- 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[<!--#include virtual="http://www.bitperfect.com/cgi-bin/cgi-ssi/cookietest.cgi"-->]);
+# ok($html =~ m'COOKIEVAL', "cookie support");
+#}
SKIP: {
# tie by hand & close