Apache-SSI

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
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

1
2
3
4
5
6
7
8
9
10
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

1
2
3
4
5
6
7
8
9
 
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

70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/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',