#!/usr/bin/perl

use strict;
use Test::More tests => 10;
use lib ( './lib', '../lib' );
use String::Unique;

#BEGIN {
#	use_ok( 'String::Unique' );
#}
my $stringGen = String::Unique->new(
    {
        characterCount => 12,
        salt           => 'ua',
        date           => 'May 19, 2008'
    }
);
ok( $stringGen->getNextString('January 26 1987') eq '43HE5SB42BAQ' );
ok( $stringGen->getNextString('January 26 1987') eq 'JFQFXCWHDFCS' );
ok( $stringGen->getNextString('January 26 1987') eq '3MW7P9WMLJMC' );
ok( $stringGen->getNextString('January 26 1987') eq '8FZ19361FCGB' );
ok( $stringGen->getNextString('January 26 1987') eq 'XY54OPIO5CO2' );
ok( $stringGen->getNextString('January 26 1987') eq 'K4XC9LTQYPH8' );
ok( $stringGen->getNextString('January 26 1987') eq 'SB0180ARVX3L' );
ok( $stringGen->getNextString('January 26 1987') eq 'A7BY2SVCR2H4' );
ok( $stringGen->getNextString('January 26 1987') eq 'B0MIBG3KJWR3' );
ok( $stringGen->getNextString('January 26 1987') eq '1LLOA2SSPY6U' );