Apache-SSI

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

use strict;
use Module::Build;
use lib 't/lib';  # distributed here until changes are incorporated into the real version
use Apache::test qw(have_httpd);

my %params = Apache::test->get_test_params();

my $class = 'Module::Build';

if (have_httpd()) {
  Apache::test->write_httpd_conf
      (%params,
       include => do {local $/; open FH, 't/config.incl' or die $!; <FH>});

Makefile.PL  view on Meta::CPAN

use ExtUtils::MakeMaker;
use lib 't/lib';
use Apache::test;

my %params = Apache::test->get_test_params();
chomp (my $cwd = `pwd`);
Apache::test->write_httpd_conf
    (%params, 
     include => do {local $/; open FH, 't/config.incl' or die $!; <FH>});
*MY::test = sub { Apache::test->MM_test(%params) };

t/benchmark.pl  view on Meta::CPAN

use lib "/home/ken/modules/Apache-SSI/blib/lib";
use Apache::SSI;
use Benchmark;

my $text = '<!--#perl sub="sub {$_[0]*2-$_[1]}" args=5,7 pass_request=no-->';
$p = new Apache::SSI($text);

timethis(10000, '$::p->get_output()');

t/lib/Apache/test.pm  view on Meta::CPAN

LockFile $DIR/t/httpd.lock
TypesConfig /dev/null
TransferLog /dev/null
ScoreBoardFile /dev/null

AddType text/html .html

# Look in ./blib/lib
<Perl>
 use blib '$DIR';
 use lib  '$DIR/t/lib';
</Perl>

$args{include}
EOF

    return 1;
}

sub _ask {
    # Just a function for asking the user questions

t/real.t  view on Meta::CPAN

#!/usr/bin/perl

# This test will start up a real httpd server with Apache::SSI loaded in
# it, and make several requests on that server.

use strict;
use lib 'lib', 't/lib';
use Apache::test;
use Test;

my %requests = 
  (
   3  => '/docs/bare.ssi',
   4  => '/docs/file.ssi',
   5  => '/docs/kid.ssik',
   6  => '/docs/virtual.ssi',
   7  => '/docs/incl_rel.ssi',