Add script to create token

diff --git a/t/script/make_json.pl b/t/script/make_json.pl
new file mode 100644 (file)
index 0000000..dfb76fd
--- /dev/null
+++ b/t/script/make_json.pl
@@ -0,0 +1,28 @@
+#!/usr/bin/env perl
+
+use warnings;
+use strict;
+use JSON::MaybeXS;
+use stemmaweb::Authentication::Credential::Google;
+use Crypt::OpenSSL::RSA;
+
+use IO::All;
+
+my $cert = io('/home/erryk/certonly.pem')->slurp;
+my $priv = io('/home/erryk/privkey')->slurp;
+
+my $hash = { 'a' => $cert };
+
+warn encode_json($hash) . "\n\n\n\n\n";
+
+my $jwt = JSON::WebToken->encode({
+        sub          => '4242',
+        openid_id    => 'https://www.google.com/accounts/o8/id3',
+}, $priv, 'RS256', { kid => 'a' });
+
+use Data::Dumper;
+warn $jwt . "\n\n\n\n\n";
+
+warn Dumper (stemmaweb::Authentication::Credential::Google->decode($jwt, $hash));
+
+1;