view release on metacpan or  search on metacpan

xt/02_collisions.t  view on Meta::CPAN

plan tests => $max * 2;

my $test = sub {
    my $fn = shift;
    my %ids;

    my $fn_name = Sub::Util::subname $fn;
    for ( my $i = 0; $i < $max; $i++ ) {
        my $id = $fn->();

        ok !$ids{$id}, "$id is unique in $i iterations ($fn_name)";
        ++$ids{$id};
    }
};

$test->( \&Data::Cuid::cuid );

TODO: {
    local $TODO = 'slug() can easily get collisions due to less precision';

    $test->( \&Data::Cuid::slug );