The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More tests => 5;

BEGIN { use_ok('Osgood::EventList'); }

use Osgood::Event;

my $list = Osgood::EventList->new;
isa_ok($list, 'Osgood::EventList', 'isa Osgood::EventList');

cmp_ok($list->size, '==', 0, 'No events in list');

my $event = Osgood::Event->new(object => 'Test', action => 'create');
$list->add_to_events($event);
cmp_ok($list->size, '==', 1, '1 event in list');

my $iterator = $list->iterator;

my $count = 0;
while($iterator->has_next) {
	$iterator->next;
	$count++;
}
cmp_ok($count, '==', 1, '1 items in iterator');