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/response/TestAPI module.pm
Date Wed, 04 Apr 2001 05:45:48 GMT
dougm       01/04/03 22:45:48

  Added:       t/response/TestAPI module.pm
  Log:
  add a test for Apache::Module
  
  Revision  Changes    Path
  1.1                  modperl-2.0/t/response/TestAPI/module.pm
  
  Index: module.pm
  ===================================================================
  package TestAPI::module;
  
  use strict;
  use warnings FATAL => 'all';
  
  use Apache::Test;
  use Apache::Module ();
  use DynaLoader ();
  
  sub handler {
      my $r = shift;
  
      plan $r, tests => 6;
  
      my $top_module = Apache::Module->top_module;
  
      ok $top_module;
  
      ok $top_module->version;
  
      ok $top_module->module_index;
  
      ok $top_module->name;
  
      ok $top_module->cmds;
  
      for (my $modp = $top_module; $modp; $modp = $modp->next) {
          if ($modp->name eq 'mod_perl.c') {
              ok 1;
              last;
          }
      }
  
      0;
  }
  
  1;
  
  
  

Mime
View raw message