Changeset 59

Show
Ignore:
Timestamp:
11/19/09 23:03:41 (5 years ago)
Author:
clinton
Message:

Parser and comment tests, tid10737

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • trunk/t/03-running.t

    r57 r59  
    33use warnings FATAL => 'all'; 
    44 
    5 use Apache::Test qw(-withtestmore); 
     5use Apache::Test qw(); 
    66use Apache::TestRequest qw(GET); 
    77use Test::More tests => 10; 
  • trunk/t/04-parser.t

    r57 r59  
    33use warnings FATAL => 'all'; 
    44 
    5 use Apache::Test qw(-withtestmore); 
     5use Apache::Test qw(); 
    66use Apache::TestRequest qw(GET); 
    7 use Test::More tests => 10; 
     7 
    88 
    99# 04-parser.t 
    10 # Goal: Confirm that the Mungo parser correctly assembles simple things in the right order. 
    11 #  
     10# Goal: Confirm that the Mungo parser correctly assembles simple things in the right order with the right spaces. 
     11# Output generally looks like this, with some variations to test various features 
     12 
     13=for example 
     14 
     15Leader 
     161234567891011123..100 
     17Trailer 
     18 
     19=cut 
     20 
     21# no-trailer 
     22# interpolated-trailer 
     23# no-leader-no-trailer 
     24# literal-trailer 
     25 
     26my %tests; 
     27my $test_count; 
     28 
     29BEGIN { 
     30    %tests = ( 
     31              'no-trailer' => qr{ 
     32                                    ^ 
     33                                    Leader\n      # newline in file => newline in output 
     34                                    12345\d+100   # no whitespace 
     35                                    $ 
     36                            }x, 
     37              'interpolated-trailer' => qr{ 
     38                                              ^ 
     39                                              Leader\n 
     40                                              12345\d+100   # no whitespace 
     41                                              Trailer       # no whitespace 
     42                                              $ 
     43                                      }x, 
     44              'no-leader-no-trailer' => qr{ 
     45                                              ^ 
     46                                              12345\d+100   # no whitespace 
     47                                              $ 
     48                                      }x, 
     49              'literal-trailer' => qr{ 
     50                                         ^ 
     51                                         12345\d+100\n 
     52                                         Trailer 
     53                                         $ 
     54                                 }x, 
     55              'printed-trailer' => qr{ 
     56                                         ^ 
     57                                         Leader\n 
     58                                         12345\d+100   # no whitespace 
     59                                         Trailer       # no whitespace 
     60                                         $ 
     61                                 }x, 
     62              'printed-trailer-newline' => qr{ 
     63                                                 ^ 
     64                                                 Leader\n 
     65                                                 12345\d+100   # no whitespace 
     66                                                 Trailer\n       # literal newline in print 
     67                                                 $ 
     68                                         }x, 
     69 
     70 
     71             ); 
     72    $test_count = 4*(scalar keys %tests); 
     73
     74 
     75use Test::More tests => $test_count; 
    1276 
    1377my ($url, $response, $content, $pattern); 
    1478 
    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  
     79foreach my $test_page (sort keys %tests) { # Sort is so the order is repeatable 
     80    my $url = '/04-parser/' . $test_page . '.asp'; 
     81    my $response = GET $url; 
     82    ok($response->is_success, "Fetch of $url should be a success"); 
     83    my $content = $response->content(); 
     84    my $pattern = $tests{$test_page}; 
     85    like($content, $pattern, "Content of $url should be correct"); 
     86    unlike($content, qr{<\%}, "Content of by-ext $url should not contain mungo start tag '<\%'"); 
     87    unlike($content, qr{\%>}, "Content of by-ext $url should not contain mungo end tag '\%>'"); 
     88
  • trunk/t/htdocs/04-parser/literal-trailer.asp

    r58 r59  
    44} 
    55%> 
    6  
    7 Trailer. 
     6Trailer