cvs commit: xml-axkit/t/directives/style 02_processor_inheritance.t

[kip]

kip         2003/08/23 01:46:44

  Added:       t/directives/style 02_processor_inheritance.t
  Log:
  Test that AddProcessor does inheritance the way we want it to (styles added 
in child direcotories are *prepended* to the list of processor definitions, not 
*appended*).
  
  Revision  Changes    Path
  1.1                  xml-axkit/t/directives/style/02_processor_inheritance.t
  
  Index: 02_processor_inheritance.t
  ===================================================================
  #!perl
  use Apache::Test;
  use Apache::TestUtil;
  use Apache::TestRequest qw( GET ) ;
  
  plan tests => 1, have_module qw(LWP);
  
  sub test_basic {
      my $resp = GET 
'/directives/style/larry/moe/curly/02_processor_inheritance.xml' ;    
      warn "GOT CONTENT:" . $resp->content();
      return 0 unless $resp->content =~ /Larry...Moe...Curly/gi;    
      return 1;
  }
  
  ok( test_basic(),1,    "Basic AxAddProcessor inheritance test." );