t/plan/repetition.t

use Test::More;
use Test::Krawfish;
use strict;
use warnings;

use_ok('Krawfish::Koral');
use_ok('Krawfish::Index');

my $index = Krawfish::Index->new;

ok_index($index, '<1:aaa>[hey][hey]</1>', 'Add new document');

my $koral = Krawfish::Koral->new;

my $builder = $koral->query_builder;

# [hey]{0,3}
my $rep = $builder->repeat($builder->token('hey'), 0, 3);
is($rep->to_string, '[hey]{0,3}', 'Stringification');
ok(!$rep->is_any, 'Is not any');
ok($rep->is_optional, 'Is optional');
ok(!$rep->is_null, 'Is not null');
ok(!$rep->is_negative, 'Is not negative');
ok(!$rep->is_extended, 'Is not extended');
ok(!$rep->is_extended_right, 'Is not extended to the right');
ok(!$rep->is_extended_left, 'Is not extended to the left');

# TODO: Probably better to warn here
ok(!$rep->plan_for($index), 'Unable to stringify');
ok($rep->has_error, 'Error set');
is($rep->error->[0]->[1], 'Optionality is ignored', 'Error');

# [hey]{1,3}
$rep = $builder->repeat($builder->token('hey'), 1, 3);
is($rep->to_string, '[hey]{1,3}', 'Stringification');
ok(!$rep->is_any, 'Is not any');
ok(!$rep->is_optional, 'Is not optional');
ok(!$rep->is_null, 'Is not null');
ok(!$rep->is_negative, 'Is not negative');
ok(!$rep->is_extended, 'Is not extended');
ok(!$rep->is_extended_right, 'Is not extended to the right');
ok(!$rep->is_extended_left, 'Is not extended to the left');
is($rep->plan_for($index)->to_string, "rep(1-3:'hey')", 'Stringification');
ok(!$rep->has_error, 'Error not set');

# [hey]{2,}
$rep = $builder->repeat($builder->token('hey'), 2, undef);
is($rep->to_string, '[hey]{2,}', 'Stringification');
ok(!$rep->is_any, 'Is not any');
ok(!$rep->is_optional, 'Is not optional');
ok(!$rep->is_null, 'Is not null');
ok(!$rep->is_negative, 'Is not negative');
ok(!$rep->is_extended, 'Is not extended');
ok(!$rep->is_extended_right, 'Is not extended to the right');
ok(!$rep->is_extended_left, 'Is not extended to the left');
is($rep->plan_for($index)->to_string, "rep(2-100:'hey')", 'Stringification');
ok(!$rep->has_error, 'Error not set');

# [hey]*
$rep = $builder->repeat($builder->token('hey'), undef, undef);
is($rep->to_string, '[hey]*', 'Stringification');
ok(!$rep->is_any, 'Is not any');
ok($rep->is_optional, 'Is not optional');
ok(!$rep->is_null, 'Is not null');
ok(!$rep->is_negative, 'Is not negative');
ok(!$rep->is_extended, 'Is not extended');
ok(!$rep->is_extended_right, 'Is not extended to the right');
ok(!$rep->is_extended_left, 'Is not extended to the left');
ok(!$rep->plan_for($index), 'Unplannable');
ok($rep->has_error, 'Error set');
is($rep->error->[0]->[1], 'Optionality is ignored', 'Error');

# [hey]{0,2}
$rep = $builder->repeat($builder->token('hey'), undef, 2);
is($rep->to_string, '[hey]{,2}', 'Stringification');
ok(!$rep->is_any, 'Is not any');
ok($rep->is_optional, 'Is optional');
ok(!$rep->is_null, 'Is not null');
ok(!$rep->is_negative, 'Is not negative');
ok(!$rep->is_extended, 'Is not extended');
ok(!$rep->is_extended_right, 'Is not extended to the right');
ok(!$rep->is_extended_left, 'Is not extended to the left');
ok(!$rep->plan_for($index), 'Unplannable');
ok($rep->has_error, 'Error set');
is($rep->error->[0]->[1], 'Optionality is ignored', 'Error');

# [hey]{3}
$rep = $builder->repeat($builder->token('hey'), 3, 3);
is($rep->to_string, '[hey]{3}', 'Stringification');
ok(!$rep->is_any, 'Is not any');
ok(!$rep->is_optional, 'Is not optional');
ok(!$rep->is_null, 'Is not null');
ok(!$rep->is_negative, 'Is not negative');
ok(!$rep->is_extended, 'Is not extended');
ok(!$rep->is_extended_right, 'Is not extended to the right');
ok(!$rep->is_extended_left, 'Is not extended to the left');
is($rep->plan_for($index)->to_string, "rep(3-3:'hey')", 'Planned');
ok(!$rep->has_error, 'Error not set');

# []{2,4}
$rep = $builder->repeat($builder->token, 2, 4);
is($rep->to_string, '[]{2,4}', 'Stringification');
ok($rep->is_any, 'Is any');
ok(!$rep->is_optional, 'Is not optional');
ok(!$rep->is_null, 'Is not null');
ok(!$rep->is_negative, 'Is not negative');
ok($rep->is_extended, 'Is extended');
ok($rep->is_extended_right, 'Is extended to the right');
ok(!$rep->is_extended_left, 'Is not extended to the left');
ok(!$rep->plan_for($index), 'Unplannable');
ok($rep->has_error, 'Error set');
is($rep->error->[0]->[1], 'Unable to search for any tokens', 'Error');

# []{,4}
$rep = $builder->repeat($builder->token, 0, 4);
is($rep->to_string, '[]{0,4}', 'Stringification');
ok($rep->is_any, 'Is any');
ok($rep->is_optional, 'Is optional');
ok(!$rep->is_null, 'Is not null');
ok(!$rep->is_negative, 'Is not negative');
ok($rep->is_extended, 'Is extended');
ok($rep->is_extended_right, 'Is extended to the right');
ok(!$rep->is_extended_left, 'Is not extended to the left');
ok(!$rep->plan_for($index), 'Unplannable');
ok($rep->has_error, 'Error set');
is($rep->error->[0]->[1], 'Unable to search for any tokens', 'Error');

# []{4,}
$rep = $builder->repeat($builder->token, 4, undef);
is($rep->to_string, '[]{4,}', 'Stringification');
ok($rep->is_any, 'Is any');
ok(!$rep->is_optional, 'Is not optional');
ok(!$rep->is_null, 'Is not null');
ok(!$rep->is_negative, 'Is not negative');
ok($rep->is_extended, 'Is extended');
ok($rep->is_extended_right, 'Is extended to the right');
ok(!$rep->is_extended_left, 'Is not extended to the left');
ok(!$rep->plan_for($index), 'Unplannable');
ok($rep->has_error, 'Error set');
is($rep->error->[0]->[1], 'Unable to search for any tokens', 'Error');

# []{8}
$rep = $builder->repeat($builder->token, 8);
is($rep->to_string, '[]{8}', 'Stringification');
ok($rep->is_any, 'Is any');
ok(!$rep->is_optional, 'Is not optional');
ok(!$rep->is_null, 'Is not null');
ok(!$rep->is_negative, 'Is not negative');
ok($rep->is_extended, 'Is extended');
ok($rep->is_extended_right, 'Is extended to the right');
ok(!$rep->is_extended_left, 'Is not extended to the left');
ok(!$rep->plan_for($index), 'Unplannable');
ok($rep->has_error, 'Error set');
is($rep->error->[0]->[1], 'Unable to search for any tokens', 'Error');

# <x>{2,3}
$rep = $builder->repeat($builder->span('aaa'), 2,3);
is($rep->to_string, '<aaa>{2,3}', 'Stringification');
ok(!$rep->is_any, 'Is not any');
ok(!$rep->is_optional, 'Is not optional');
ok(!$rep->is_null, 'Is not null');
ok(!$rep->is_negative, 'Is not negative');
ok(!$rep->is_extended, 'Is not extended');
ok(!$rep->is_extended_right, 'Is not extended to the right');
ok(!$rep->is_extended_left, 'Is not extended to the left');

is($rep->plan_for($index)->to_string, "rep(2-3:'<>aaa')", 'Planned');


done_testing;

__END__