# Test the maximum distance functions.

use warnings;
use strict;
use Text::Fuzzy;
use Test::More;

my $tf = Text::Fuzzy->new ('abcdefghijklm');
my $notmatch = 'nopqrstuvwxyz';

my $d = $tf->distance ($notmatch);
cmp_ok ($d, '>=', 10);

# Test switching off the distance completely.

$tf->set_max_distance ();
$d = $tf->distance ($notmatch);
is ($d, length ($notmatch));

my $md = $tf->get_max_distance ();
ok (! defined $md, "max distance is undefined");

# Test whether we found it in the list.

my @list = ($notmatch);
my $found = $tf->nearest (\@list);
is ($found, 0);
is ($tf->last_distance (), length ($notmatch));

my $tfc = Text::Fuzzy->new ('calamari', max => 1);
my @words = qw/Have you ever kissed in the moonlight
	       In the grand and glorious
	       Gay notorious
	       South American Way?/;
my $index = $tfc->nearest (\@words);
is ($index, undef);

done_testing ();