#!/usr/bin/env perl
use strict;
use warnings;

use Test::More;

use File::Spec;
use File::Basename;
use lib File::Spec->catdir( dirname(__FILE__), 'lib' );
use SubClassTest;

plan tests => 4;

my $subclass = SubClassTest->new( extra_number => 123 );
isa_ok( $subclass, 'SubClassTest' );
isa_ok( $subclass, 'Hashids' );

my $plaintext = 456;
my $encoded   = 'MlpTgL';

is( $subclass->encode($plaintext), $encoded, 'subclass encoded' );
is_deeply(
    scalar $subclass->decode($encoded),
    [ $subclass->extra_number, $plaintext ],
    'subclass encoded'
);