#!perl -T
use Test::More qw/no_plan/;
use Data::Rand::Obscure;
my $random;
ok($random = Data::Rand::Obscure::create);
ok($random = Data::Rand::Obscure::create_hex);
ok($random = Data::Rand::Obscure::create_b64);
ok($random = Data::Rand::Obscure::create_bin);
# Naive check to see we don't get duplicates
ok($random = Data::Rand::Obscure::create_hex);
for (1 .. 20) {
ok(my $different = Data::Rand::Obscure::create_hex);
isnt($random, $different);
}
for my $length (8 .. 2 ** 8) {
ok($random = Data::Rand::Obscure::create(length => $length)); is(length($random), $length);
ok($random = Data::Rand::Obscure::create_hex(length => $length)); is(length($random), $length);
ok($random = Data::Rand::Obscure::create_b64(length => $length)); is(length($random), $length);
ok($random = Data::Rand::Obscure::create_bin(length => $length)); is(length($random), $length);
}