The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use 5.008001;
use strict;
use warnings;
use Test::More 0.96;
use FindBin qw($Bin);

use Crypt::Diceware words => { file => "$Bin/files/dicewarekit.txt" };

isnt(
    join( " ", words(5) ),
    join( " ", words(5) ),
    "words(N) != words(N) (default)"
);

done_testing;
#
# This file is part of Crypt-Diceware
#
# This software is Copyright (c) 2013 by David Golden.
#
# This is free software, licensed under:
#
#   The Apache License, Version 2.0, January 2004
#