#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 5;
use FindBin;
use Bootylicious::ArticleIteratorLoader;
use_ok('Bootylicious::ArticleByTagIterator');
my $i;
my $article;
$i = _new_iterator('unknown');
is $i->size => 0;
$i = _new_iterator('foo');
is $i->size => 1;
$i = _new_iterator('bar');
is $i->size => 2;
$i = _new_iterator('baz');
is $i->size => 1;
sub _new_iterator {
Bootylicious::ArticleByTagIterator->new(
Bootylicious::ArticleIteratorLoader->new(
root => "$FindBin::Bin/article-by-tag-iterator"
)->load,
tag => $_[0]
);
}