# HG changeset patch
# User Maxim Dounin <mdounin@mdounin.ru>
# Date 1311892125 -14400
# Node ID 2c07dc5bc35475391b121b9278d88c7bf75e957e
# Parent  197d5d9fd7f9ed753566317b7dcfa7be54c1586e
Tests: avoid using encode_base64url().

It only recently appeared in MIME::Base64 3.11 and only shipped
with Perl 5.13.8+.

diff --git a/secure_link.t b/secure_link.t
--- 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;
+}
+
+###############################################################################