cvs commit: modperl-2.0/ModPerl-Registry/t/cgi-bin redirect.pl

[st...@apache.org]

stas        2002/08/16 03:11:17

  Added:       ModPerl-Registry/t redirect.t
               ModPerl-Registry/t/cgi-bin redirect.pl
  Log:
  test external redirects
  
  Revision  Changes    Path
  1.1                  modperl-2.0/ModPerl-Registry/t/redirect.t
  
  Index: redirect.t
  ===================================================================
  use strict;
  use warnings FATAL => 'all';
  
  use Apache::Test;
  use Apache::TestUtil;
  use Apache::TestRequest qw(GET_BODY HEAD);
  
  plan tests => 2;
  
  my $base_url = "/registry/redirect.pl";
  
  {
      my $redirect_path = "/registry/basic.pl";
      my $url = "$base_url?$redirect_path";
  
      ok t_cmp(
          "ok",
          GET_BODY($url),
          "test redirect: existing target",
         );
  }
  
  {
      my $redirect_path = "/registry/does_not_exists.pl";
      my $url = "$base_url?$redirect_path";
  
      ok t_cmp(
          404,
          HEAD($url)->code,
          "test redirect: non-existing target",
         );
  }
  
  
  
  1.1                  modperl-2.0/ModPerl-Registry/t/cgi-bin/redirect.pl
  
  Index: redirect.pl
  ===================================================================
  # test env vars
  
  use Apache::URI ();
  
  my $r = shift;
  my $path = $r->args || '';
  $server = $r->construct_server;
  
  print "Location: http://$server$path\n\n";
  warn "Location: http://$server$path\n\n";
  
  __END__