Mercurial > hg > nginx-tests

comparison secure_link.t @ 590:dc2f8aac0553

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: whitespace fixes.
author Andrey Zelenkov <zelenkov@nginx.com>
date Tue, 26 May 2015 13:22:45 +0300
parents 07c600de2f90
children da20b4389038
comparison
equal deleted inserted replaced
589:a9569f57da98 590:dc2f8aac0553
133 my ($expires, $hash); 133 my ($expires, $hash);
134 134
135 $expires = time() + 86400; 135 $expires = time() + 86400;
136 $hash = encode_base64url(md5("secret/expires.html$expires")); 136 $hash = encode_base64url(md5("secret/expires.html$expires"));
137 like(http_get('/expires.html?hash=' . $hash . '&expires=' . $expires), 137 like(http_get('/expires.html?hash=' . $hash . '&expires=' . $expires),
138 qr/PASSED/, 'request md5 not expired'); 138 qr/PASSED/, 'request md5 not expired');
139 139
140 $expires = time() - 86400; 140 $expires = time() - 86400;
141 $hash = encode_base64url(md5("secret/expires.html$expires")); 141 $hash = encode_base64url(md5("secret/expires.html$expires"));
142 like(http_get('/expires.html?hash=' . $hash . '&expires=' . $expires), 142 like(http_get('/expires.html?hash=' . $hash . '&expires=' . $expires),
143 qr/^HTTP.*403/, 'request md5 expired'); 143 qr/^HTTP.*403/, 'request md5 expired');
144 144
145 # old style 145 # old style
146 146
147 like(http_get('/p/' . md5_hex('test.html' . 'secret') . '/test.html'), 147 like(http_get('/p/' . md5_hex('test.html' . 'secret') . '/test.html'),
148 qr/PASSED/, 'request old style'); 148 qr/PASSED/, 'request old style');
152 like(http_get('/inheritance/test'), qr/PASSED/, 'inheritance'); 152 like(http_get('/inheritance/test'), qr/PASSED/, 'inheritance');
153 153
154 ############################################################################### 154 ###############################################################################
155 155
156 sub encode_base64url { 156 sub encode_base64url {
157 my $e = encode_base64(shift, ""); 157 my $e = encode_base64(shift, "");
158 $e =~ s/=+\z//; 158 $e =~ s/=+\z//;
159 $e =~ tr[+/][-_]; 159 $e =~ tr[+/][-_];
160 return $e; 160 return $e;
161 } 161 }
162 162
163 ############################################################################### 163 ###############################################################################