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/TestModperl endav.pm
Date Mon, 08 Oct 2001 20:37:33 GMT
dougm       01/10/08 13:37:33

  Added:       t/modperl .cvsignore
               t/response/TestModperl endav.pm
  Log:
  add test for running/clearing END blocks
  
  Revision  Changes    Path
  1.1                  modperl-2.0/t/modperl/.cvsignore
  
  Index: .cvsignore
  ===================================================================
  endav.t
  
  
  
  1.1                  modperl-2.0/t/response/TestModperl/endav.pm
  
  Index: endav.pm
  ===================================================================
  package TestModperl::endav;
  
  use strict;
  use warnings FATAL => 'all';
  
  use Apache::Test;
  use ModPerl::Global ();
  
  sub handler {
      my $r = shift;
  
      plan $r, test => 4;
  
      #just to make sure we dont segv with bogus values
      my $not = 'NoSuchPackage';
      for my $name ('END', $not) {
          ModPerl::Global::special_list_call($name => $not);
          ModPerl::Global::special_list_clear($name => $not);
      }
  
      eval 'END { ok 1 }';
  
      ModPerl::Global::special_list_call(END => __PACKAGE__);
      ModPerl::Global::special_list_call(END => __PACKAGE__);
  
      ModPerl::Global::special_list_clear(END => __PACKAGE__);
      #should do nothing
      ModPerl::Global::special_list_call(END => __PACKAGE__);
  
      eval 'END { ok 1 }';
      ModPerl::Global::special_list_call(END => __PACKAGE__);
      ModPerl::Global::special_list_clear(END => __PACKAGE__);
  
      ModPerl::Global::special_list_clear(END => __PACKAGE__);
      #should do nothing
      ModPerl::Global::special_list_call(END => __PACKAGE__);
  
      ok 1;
  
      Apache::OK;
  }
  
  1;
  __END__
  SetHandler perl-script
  
  
  

Mime
View raw message