Репозиторий Sisyphus
Последнее обновление: 1 октября 2023 | Пакетов: 18631 | Посещений: 37919208
en ru br
Репозитории ALT

Группа :: Разработка/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
 
дизайн и разработка: Vladimir Lettiev aka crux © 2004-2005, Andrew Avramenko aka liks © 2007-2008
текущий майнтейнер: Michael Shigorin