#!/usr/bin/env perl

use strict;
use warnings;

use Test::More tests => 14;

use FindBin;
use Bootylicious::ArticleIteratorLoader;

use_ok('Bootylicious::ArticleIteratorFinder');

my $article;

my $iterator =
  Bootylicious::ArticleIteratorLoader->new(root => "$FindBin::Bin/finder")->load;

$article =
  Bootylicious::ArticleIteratorFinder->new(iterator => $iterator)
  ->find(2010, 1, 'unknown');
ok not defined $article;

$iterator->rewind;
$article =
  Bootylicious::ArticleIteratorFinder->new(iterator => $iterator)
  ->find(2010, 1, 'foo');
ok $article;
is $article->name => 'foo';
ok not defined $article->next;
is $article->prev->name => 'bar';

$iterator->rewind;
$article =
  Bootylicious::ArticleIteratorFinder->new(iterator => $iterator)
  ->find(2010, 2, 'bar');
ok $article;
is $article->name       => 'bar';
is $article->prev->name => 'baz';
is $article->next->name => 'foo';

$iterator->rewind;
$article =
  Bootylicious::ArticleIteratorFinder->new(iterator => $iterator)
  ->find(2010, 3, 'baz');
ok $article;
is $article->name => 'baz';
ok not defined $article->prev;
is $article->next->name => 'bar';