#!/usr/bin/env perl

use strict;
use warnings;
use Test::More;
use Test::Exception;

my $pkg;

BEGIN {
    $pkg = 'Catmandu::Searchable';
    use_ok $pkg;
}
require_ok $pkg;

{

    package T::SearchableWithoutGenerator;
    use Moo;

    package T::Searchable;
    use Moo;
    with $pkg;

    sub search                 {die "not implemented"}
    sub searcher               {die "not implemented"}
    sub delete_by_query        {die "not implemented"}
    sub translate_cql_query    {die "not implemented"}
    sub translate_sru_sortkeys {die "not implemented"}
}

throws_ok {
    Role::Tiny->apply_role_to_package('T::SearchableWithoutGenerator', $pkg)
}
qr/missing translate_sru_sortkeys, translate_cql_query, search, searcher, delete_by_query/;

my $iter = T::Searchable->new();

is $iter->default_default_limit, 10;
is $iter->default_maximum_limit, 1000;
is $iter->normalize_query("foo bar"), "foo bar";

done_testing 6;