changeset 161:2c07dc5bc354

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 465a711ffa19
files secure_link.t
diffstat 1 files changed, 10 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/secure_link.t
+++ b/secure_link.t
@@ -12,7 +12,7 @@ use strict;
 use Test::More;
 
 use Digest::MD5 qw/ md5 md5_hex /;
-use MIME::Base64 qw/ encode_base64url /;
+use MIME::Base64 qw/ encode_base64 /;
 
 BEGIN { use FindBin; chdir($FindBin::Bin); }
 
@@ -136,3 +136,12 @@ like(http_get('/p/' . md5_hex('fake') . 
 like(http_get('/p/test.html'), qr/^HTTP.*403/, 'request old style no hash');
 
 ###############################################################################
+
+sub encode_base64url {
+    my $e = encode_base64(shift, "");
+    $e =~ s/=+\z//;
+    $e =~ tr[+/][-_];
+    return $e;
+}
+
+###############################################################################