debian/perl-framework/t/modules/sed.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

use strict;
use warnings FATAL => 'all';

use Apache::Test;
use Apache::TestRequest;
use Apache::TestUtil;

my @ts = (
   # see t/conf/extra.conf.in
   { url => "/apache/sed/out-foo/foobar.html", content => 'barbar', msg => "sed output filter", code => 200 }
);

my $tests = 2*scalar @ts;

plan tests => $tests, need_module('sed');


for my $t (@ts) {
  my $req = GET $t->{'url'};
  ok t_cmp($req->code, $t->{'code'}, "status code for " . $t->{'url'});
  my $content = $req->content;
  chomp($content);
  ok t_cmp($content, $t->{content}, $t->{msg});
}