# $Id: map.t 522 2002-10-22 18:07:09Z comdog $

use Test::More tests => 2;

use Object::Iterate qw(imap);
use Object::Iterate::Tester;

my $o = Object::Iterate::Tester->new();
isa_ok( $o, 'Object::Iterate::Tester' );

my @O = imap { uc } $o;

my @expected = qw( A B C D E F );

ok( eq_array( \@O, \@expected ), 'imap outputs right results' );