perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/t/hooks/TestHooks authen.pm
Date Mon, 02 Apr 2001 09:09:40 GMT
dougm       01/04/02 02:09:40

  Added:       t/hooks  authen.t
               t/hooks/TestHooks authen.pm
  Log:
  start of hooks tests
  
  Revision  Changes    Path
  1.1                  modperl-2.0/t/hooks/authen.t
  
  Index: authen.t
  ===================================================================
  use strict;
  use warnings FATAL => 'all';
  
  use Test;
  use Apache::TestRequest;
  
  plan tests => 3;
  
  my $location = "/TestHooks::authen";
  
  ok ! GET_OK $location;
  
  my $rc = GET_RC $location;
  
  ok $rc == 401;
  
  ok GET_OK $location, username => 'dougm', password => 'foo';
  
  
  
  
  
  1.1                  modperl-2.0/t/hooks/TestHooks/authen.pm
  
  Index: authen.pm
  ===================================================================
  package TestHooks::authen;
  
  use strict;
  use warnings FATAL => 'all';
  
  use Apache::Access ();
  
  sub handler {
      my $r = shift;
      #auth api not complete yet
      0;
  }
  
  1;
  __DATA__
  require valid-user
  AuthType Basic
  AuthName simple
  PerlResponseHandler Apache::TestHandler::ok1
  SetHandler modperl
  
  
  

Mime
View raw message