#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 6;
use FindBin;
use LucyX::Suggester;
use Data::Dump qw( dump );

my $idx = "$FindBin::Bin/../index.swish";

# sorted by frequency, then alpha
my $expected = [qw( brawn quirk brown fox quick run )];
SKIP: {
    if ( !-d $idx ) {
        skip "create an index at $idx", 6;
    }

    ok( my $suggester = LucyX::Suggester->new(
            fields  => [ 'swishdefault', 'swishtitle' ],
            indexes => [$idx]
        ),
        "new Suggester"
    );

    ok( my $suggestions = $suggester->suggest('quiK brwn fx running'),
        "get suggestions" );

    dump($suggestions);

    is_deeply( $suggestions, $expected, "got suggestions" );

    ok( my $regex_suggester = LucyX::Suggester->new(
            fields    => [ 'swishdefault', 'swishtitle' ],
            indexes   => [$idx],
            use_regex => 1,
        ),
        "new Suggester"
    );

    ok( my $regex_suggestions
            = $regex_suggester->suggest('quiK brwn fx running'),
        "suggest() with no optimize"
    );

    dump($regex_suggestions);

    is_deeply( $regex_suggestions, $expected, "got suggestions" );

}