You are viewing a plain text version of this content. The canonical link for it is here.

Posted to modperl-cvs@perl.apache.org by do...@hyperreal.org on 1998/05/10 06:07:09 UTC

cvs commit: modperl/t/net/perl/io dir_config.pl

dougm       98/05/09 21:07:09

  Added:       t/net/perl/io dir_config.pl
  Log:
  more tests for PerlDirectiveHandlers
  
  Revision  Changes    Path
  1.1                  modperl/t/net/perl/io/dir_config.pl
  
  Index: dir_config.pl
  ===================================================================
  use strict;
  use Apache::test;
  use Data::Dumper ();
  use Apache::ModuleConfig ();
  
  my $r = shift;
  my $i = 0;
  $r->send_http_header("text/plain");
  
  my $cfg = Apache::ModuleConfig->get($r, "Apache::TestDirectives");
  
  $r->print(Data::Dumper::Dumper($cfg));
  test ++$i, "$cfg" =~ /HASH/;
  test ++$i, keys(%$cfg) >= 3;
  test ++$i, $cfg->{FromNew};
  unless ($cfg->{SetFromScript}) {
      $cfg->{SetFromScript} = [$0,$$];
  }