Mercurial > hg > nginx-tests

comparison secure_link.t @ 161:2c07dc5bc354

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: avoid using encode_base64url(). It only recently appeared in MIME::Base64 3.11 and only shipped with Perl 5.13.8+.
author Maxim Dounin <mdounin@mdounin.ru>
date Fri, 29 Jul 2011 02:28:45 +0400
parents 197d5d9fd7f9
children 6a0d934950bc
comparison
equal deleted inserted replaced
160:197d5d9fd7f9 161:2c07dc5bc354
10 use strict; 10 use strict;
11 11
12 use Test::More; 12 use Test::More;
13 13
14 use Digest::MD5 qw/ md5 md5_hex /; 14 use Digest::MD5 qw/ md5 md5_hex /;
15 use MIME::Base64 qw/ encode_base64url /; 15 use MIME::Base64 qw/ encode_base64 /;
16 16
17 BEGIN { use FindBin; chdir($FindBin::Bin); } 17 BEGIN { use FindBin; chdir($FindBin::Bin); }
18 18
19 use lib 'lib'; 19 use lib 'lib';
20 use Test::Nginx; 20 use Test::Nginx;
134 like(http_get('/p/' . md5_hex('fake') . '/test.html'), qr/^HTTP.*403/, 134 like(http_get('/p/' . md5_hex('fake') . '/test.html'), qr/^HTTP.*403/,
135 'request old style fake hash'); 135 'request old style fake hash');
136 like(http_get('/p/test.html'), qr/^HTTP.*403/, 'request old style no hash'); 136 like(http_get('/p/test.html'), qr/^HTTP.*403/, 'request old style no hash');
137 137
138 ############################################################################### 138 ###############################################################################
139
140 sub encode_base64url {
141 my $e = encode_base64(shift, "");
142 $e =~ s/=+\z//;
143 $e =~ tr[+/][-_];
144 return $e;
145 }
146
147 ###############################################################################