#!perl

use strict;
use warnings;

use Test::More;

use lib 'lib';

use Permute;

{
    my @a1 = ( 4 );

    my $possibilities = Permute::possibilities ( \@a1 );
    ok ( defined $possibilities, "Got result back" );
    is ( scalar @{$possibilities}, 1, "Have just one row" );
    is ( $a1[0], $possibilities->[0]->[0], "Value matches" );

    done_testing;
}