# 01-yubikey_decrypt.t

use strict;
use warnings;

use Test::More;
use Auth::Yubikey_Decrypter;

my $fulltoken   = "dteffujehknhfjbrjnlnldnhcujvddbikngjrtgh";
my $aeskey      = "ecde18dbe76fbd0c33330f1c354871db";

my ($publicID,$secretid_hex,$counter_dec,$timestamp_dec,$session_use_dec,$random_dec,$crc_dec,$crc_ok) =
Auth::Yubikey_Decrypter::yubikey_decrypt($fulltoken,$aeskey);

plan tests => 8;

is($publicID,        q{dteffuje},     q{Expect publicID eq dteffuje});
is($secretid_hex,    q{8792ebfe26cc}, q{Expect secretid_hex eq 8792ebfe26cc});
is($counter_dec,     q{19},           q{Expect counter_dec eq 19});
is($timestamp_dec,   q{49712},        q{Expect timestamp_dec eq 49712});
is($session_use_dec, q{17},           q{Expect session_use_dec eq 17});
is($random_dec,      q{40904},        q{Expect random_dec eq 40904});
is($crc_dec,         q{51235},        q{Expect crc_dec eq 51235});
is($crc_ok,          q{1},            q{Expect crc_ok eq 1});

__END__