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');