view release on metacpan or  search on metacpan

t/opentoken.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;
use if $ENV{AUTOMATED_TESTING}, 'Test::DiagINC'; use Test2::V0;
use Test2::Tools::Exception;

use Crypt::OpenToken;

###############################################################################
# TEST: instantiation without password; fails
instantiation_no_key: {
    like dies { Crypt::OpenToken->new() }, qr/password.*required/,
        '"password" is a required parameter';
}

###############################################################################
# TEST: instantiation
instantiation: {
    my $factory = Crypt::OpenToken->new(password => 'abc123');
    is $factory, object { prop blessed => 'Crypt::OpenToken'; }, 'instantiated token factory';
}

###############################################################################
# TEST: base64 en/decoding
base64_encoding: {
    # encoded test data taken from OTK IETF Draft
    my $encoded = "UFRLAQK9THj0okLTUB663QrJFg5qA58IDhAb93ondvcx7sY6s44eszNqAAAga5W8Dc4XZwtsZ4qV3_lDI-Zn2_yadHHIhkGqNV5J9kw*";

    my $factory   = Crypt::OpenToken->new(password => 'dummy password');
    my $decoded   = $factory->_base64_decode($encoded);
    my $roundtrip = $factory->_base64_encode($decoded);
    is $roundtrip, $encoded, 'Base64 decode/encode round-trip';
}

###############################################################################
done_testing();