1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
#!perl -w
use strict;
use warnings;
use Test qw(plan ok);
use MIME::Base64 qw(encode_base64url decode_base64url);
my @tests;
while (<DATA>) {
next if /^#/;
chomp;
push(@tests, [split]);
}
plan tests => 2 * @tests;
for (@tests) {
my($name, $input, $output) = @$_;
print "# $name\n";
ok(decode_base64url($input), $output);
ok(encode_base64url($output), $input);
}
__END__
# https://github.com/ptarjan/base64url/blob/master/tests.txt
# Name <space> Input <space> Ouput <newline>
len1 YQ a
len2 YWE aa
len3 YWFh aaa
no_padding YWJj abc
padding YQ a
hyphen fn5- ~~~
underscore Pz8_ ???
|
