root/trunk/t/04-parser.t

Revision 57, 0.7 kB (checked in by clinton, 4 years ago)

Adding Apache::Test style tests harness, tid 10737

Line 
1 # -*-cperl-*-
2 use strict;
3 use warnings FATAL => 'all';
4
5 use Apache::Test qw(-withtestmore);
6 use Apache::TestRequest qw(GET);
7 use Test::More tests => 10;
8
9 # 04-parser.t
10 # Goal: Confirm that the Mungo parser correctly assembles simple things in the right order.
11 #
12
13 my ($url, $response, $content, $pattern);
14
15 $url = '/04-parser/';
16 $response = GET $url;
17 ok($response->is_success, "Fetch of $url should be a success");
18 $content = $response->content();
19 like($content, $pattern, "Content of $url should be correct");
20 unlike($content, qr{<\%}, "Content of by-ext $url should not contain mungo start tag '<\%'");
21 unlike($content, qr{\%>}, "Content of by-ext $url should not contain mungo end tag '\%>'");
22
23
24
25
26
27
Note: See TracBrowser for help on using the browser.