use strict;
use warnings;

use Test::More tests => 3;

BEGIN {
  use_ok(
    'Number::Nary',
    -codec_pair => { digits => '0123456789ABC', -suffix => 13 }
  );
}

my $meaning = encode13(6 * 9);

is($meaning, "42", "encodes base 13 properly");

my $meaningless = decode13($meaning);

is($meaningless, "54", "decodes base 13 properly");