use Test::More tests => 6;
use strict;

use Data::Dump qw( dump );

use_ok('Search::Tools::HiLiter');
use_ok('Search::Tools::Snipper');

my $text = <<EOF;
when in the course of human events
you need to create a test to span the ages and prove
your style is still hip, still happening,
that style isn't outmoded but something to
embrace.
EOF

my @q = ('span your style');

ok( my $query = Search::Tools->parser->parse( join( ' ', @q ) ),
    "new query" );
ok( my $h = Search::Tools::HiLiter->new( query => $query ), "hiliter" );

ok( my $l = $h->light($text), "light" );

#diag($l);

unlike( $l, qr/<span <span/, "no double-dipping by hiliter" );