dougm 01/10/19 19:34:37
Modified: perl-framework/t/modules alias.t
Log:
WINFU platforms wont have /bin/sh so skip those tests for now
Revision Changes Path
1.8 +10 -5 httpd-test/perl-framework/t/modules/alias.t
Index: alias.t
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/t/modules/alias.t,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- alias.t 2001/09/18 15:41:03 1.7
+++ alias.t 2001/10/20 02:34:37 1.8
@@ -4,7 +4,10 @@
use Apache::Test;
use Apache::TestRequest;
use Apache::TestUtil;
+use Apache::TestConfig ();
+use constant WINFU => Apache::TestConfig::WINFU();
+
##
## mod_alias test
##
@@ -30,8 +33,10 @@
g => '410'
);
+#XXX: find something that'll on other platforms (/bin/sh aint it)
+my $script_tests = WINFU ? 0 : 4;
-plan tests => (keys %redirect) + (keys %rm_body) * 10 + (keys %rm_rc) * 10 +
16,
+plan tests => (keys %redirect) + (keys %rm_body) * 10 + (keys %rm_rc) * 10 +
12 + $script_tests,
have_module 'alias';
## simple alias ##
@@ -93,18 +98,18 @@
## if we get the script here it will be plain text ##
print "verifying /modules/alias/script is plain text\n";
-ok ($cgi eq GET_BODY "/modules/alias/script");
+ok ($cgi eq GET_BODY "/modules/alias/script") unless WINFU;
## here it should be the result of the executed cgi ##
print "verifying same file accessed at /cgi/script is executed code\n";
-ok ("$string\n" eq GET_BODY "/cgi/script");
+ok ("$string\n" eq GET_BODY "/cgi/script") unless WINFU;
## with ScriptAliasMatch ##
print "verifying ScriptAliasMatch with /aliascgi-script\n";
-ok ("$string\n" eq GET_BODY "/aliascgi-script");
+ok ("$string\n" eq GET_BODY "/aliascgi-script") unless WINFU;
## failure with ScriptAliasMatch ##
print "verifying bad script alias.\n";
-ok ('404' eq GET_RC "/aliascgi-nada");
+ok ('404' eq GET_RC "/aliascgi-nada") unless WINFU;
## clean up ##
t_rmtree("$vars->{t_logs}/mod_cgi.log");
