rand_words.t

use strict;
use warnings;

use Test::More;
use Data::Random qw( rand_words );
use File::Temp;

use vars qw( $wordlist );

my ($fh, $wordlist) = File::Temp::tempfile();
foreach ( 'A' .. 'Z' ) {
    print $fh "$_\n";
}
close($fh);

my %valid_words;
@valid_words{ 'A' .. 'Z' } = ();

my $num_words = 26;

# Test default w/ no params -- should return one entry
{
    my $pass = 1;

    my $i = 0;
    while ( $pass && $i < $num_words ) {
        my @words = rand_words( wordlist => $wordlist );

        $pass = 0 unless ( @words == 1 && exists( $valid_words{ $words[0] } ) );

        $i++;
    }

    ok($pass);
}

# Test size option
{
    my $pass = 1;

    my $i = 0;
    while ( $pass && $i < $num_words ) {
        my @words = rand_words( wordlist => $wordlist, size => $i + 1 );

        $pass = 0 unless @words == ( $i + 1 );

        foreach (@words) {
            $pass = 0 unless exists( $valid_words{$_} );
        }

        $i++;
    }

    ok($pass);
}

# Test max/min option
{
    my $pass = 1;

    my $i = 0;
    while ( $pass && $i < $num_words ) {
        my @words =
          rand_words( wordlist => $wordlist, min => $i, max => $num_words );

        $pass = 0 unless ( @words >= $i && @words <= $num_words );

        foreach (@words) {
            $pass = 0 unless exists( $valid_words{$_} );
        }

        $i++;
    }

    ok($pass);
}

# Test size w/ min/max set
{
    my $pass = 1;

    my $i = 0;
    while ( $pass && $i < $num_words ) {
        my @words = rand_words(
            wordlist => $wordlist,
            size     => $i + 1,
            min      => $i,
            max      => $num_words
        );

        $pass = 0 unless @words == ( $i + 1 );

        foreach (@words) {
            $pass = 0 unless exists( $valid_words{$_} );
        }

        $i++;
    }

    ok($pass);
}

# Test w/ shuffle set to 0
{
    my $pass = 1;

    my $i = 0;
    while ( $pass && $i < $num_words ) {
        my @words =
          rand_words( wordlist => $wordlist, size => 2, shuffle => 0 );

        $pass = 0 unless ( @words == 2 && !( $words[0] gt $words[1] ) );

        $i++;
    }

    ok($pass);
}

done_testing;