httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: httpd-test/perl-framework/t/modules alias.t
Date Sat, 20 Oct 2001 02:34:37 GMT
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");
  
  
  

Mime
View raw message