#!/usr/bin/env perl
use strict;
use Test::More tests => 5;
use lib 't';
use Data::Dump qw( dump );
use File::Slurp;
use_ok('Search::Tools::Snipper');
use_ok('Search::Tools::HiLiter');

my $file = 't/docs/pre-existing.txt';
my $q    = qq/pre-existing/;
my $buf  = read_file($file);

my $snipper = Search::Tools::Snipper->new(
    query         => $q,
    occur         => 3,      # number of snips
    context       => 100,    # number of words in each snip
    as_sentences  => 1,
    ignore_length => 1,      # ignore max_chars, return entire snippet.
    show          => 0,      # only show if match, no dumb substr
    treat_phrases_as_singles => 0,    # keep phrases together

    #debug                    => 1,

);

my $hiliter = Search::Tools::HiLiter->new( query => $q );

#dump $snipper;

ok( my $snip = $snipper->snip($buf), "snip buf" );
ok( length $snip, "snip has length" );
ok( my $hilited = $hiliter->hilite($snip), "hilite" );

#diag($hilited);