#!perl
use strict;
use warnings;
use Test::More tests => 4;
use_ok 'Crypt::Skip32::Base64URLSafe';
my $key = pack( 'H20', "112233445566778899AA" ); # Always 10 bytes!
my $cipher = Crypt::Skip32::Base64URLSafe->new($key);
my $number = 3493209676;
my $plaintext = pack( "N", $number );
my $ciphertext = $cipher->encrypt($plaintext);
my $cipherhex = unpack( "H8", $ciphertext );
is( $cipherhex, '6da27100' );
is( $cipher->encrypt_number_b64_urlsafe($number), 'baJxAA' );
is( $cipher->decrypt_number_b64_urlsafe('baJxAA'), $number );