cvs commit: modperl-2.0/t/response/TestAPI access.pm

[dougm]

dougm       01/05/04 19:08:06

  Added:       t/response/TestAPI access.pm
  Log:
  add tests for Apache::Access
  
  Revision  Changes    Path
  1.1                  modperl-2.0/t/response/TestAPI/access.pm
  
  Index: access.pm
  ===================================================================
  package TestAPI::access;
  
  use strict;
  use warnings FATAL => 'all';
  
  use Apache::Const -compile => qw(:options :override :satisfy);
  use Apache::Access ();
  use Apache::Test;
  
  sub handler {
      my $r = shift;
  
      plan $r, tests => 8;
  
      $r->allow_methods(1, qw(GET POST));
  
      ok 1;
  
      ok $r->allow_options & Apache::OPT_INDEXES;
  
      ok !($r->allow_options & Apache::OPT_EXECCGI);
  
      ok $r->allow_overrides & Apache::OR_LIMIT;
  
      ok $r->satisfies == Apache::SATISFY_NOSPEC;
  
      ok $r->auth_name eq 'modperl';
  
      ok $r->auth_type eq 'none';
  
      ok ! $r->some_auth_required;
  
      Apache::OK;
  }
  
  1;
  __END__
  Options None
  Options Indexes FollowSymLinks
  AuthName modperl
  AuthType none