use strict;
use warnings;
use Test::More tests=>3;
use Statistics::Benford;

{
    my $stats = Statistics::Benford->new;
    isa_ok( $stats, 'Statistics::Benford', 'new()' );
}

{
    my $stats = Statistics::Benford->new;
    isa_ok( $stats, 'Statistics::Benford', 'new(10, 0, 1)' );
}

{
    my @methods = qw(
        distribution dist difference diff signif z
    );
    can_ok( 'Statistics::Benford', @methods );
}
