Mercurial > hg > nginx-tests

comparison http_variables.t @ 192:f2a48c528b3b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: fixed http variables test, log entries order may differ.
author Valentin Bartenev <ne@vbart.ru>
date Thu, 29 Dec 2011 18:31:14 +0300
parents 43fe964de06a
children 0ab1f0e978b5
comparison
equal deleted inserted replaced
191:bc6ecf23cc9c 192:f2a48c528b3b
34 } 34 }
35 35
36 http { 36 http {
37 %%TEST_GLOBALS_HTTP%% 37 %%TEST_GLOBALS_HTTP%%
38 38
39 log_format cc "CC: $sent_http_cache_control"; 39 log_format cc "$uri: $sent_http_cache_control";
40 40
41 server { 41 server {
42 listen 127.0.0.1:8080; 42 listen 127.0.0.1:8080;
43 server_name localhost; 43 server_name localhost;
44 44
71 http_get('/'); 71 http_get('/');
72 http_get('/redefine'); 72 http_get('/redefine');
73 73
74 $t->stop(); 74 $t->stop();
75 75
76 my @log; 76 my $log;
77 77
78 open LOG, $t->testdir() . '/cc.log' 78 {
79 or die("Can't open nginx access log file.\n"); 79 open LOG, $t->testdir() . '/cc.log'
80 80 or die("Can't open nginx access log file.\n");
81 foreach my $line (<LOG>) { 81 local $/;
82 chomp $line; 82 $log = <LOG>;
83 push @log, $line; 83 close LOG;
84 } 84 }
85 85
86 close LOG; 86 like($log, qr!^/: -$!m, 'no header');
87 87 like($log, qr!^/set: max-age=3600; private; must-revalidate$!m,
88 is(shift @log, 'CC: -', 'no header'); 88 'multi headers');
89 is(shift @log, 'CC: max-age=3600; private; must-revalidate', 'multi headers');
90 89
91 TODO:{ 90 TODO:{
92 local $TODO = 'add hash checks'; 91 local $TODO = 'add hash checks';
93 92
94 is(shift @log, 'CC: no-cache', 'ignoring headers with (hash == 0)'); 93 like($log, qr!^/redefine: no-cache$!m, 'ignoring headers with (hash == 0)');
95 } 94 }
96 95
97 ############################################################################### 96 ###############################################################################