Microsoft (R) Program Maintenance Utility Version 7.00.8882 Copyright (C) Microsoft Corp 1988-2000. All rights reserved. Installing C:\cpanrun-5.8\build\5-8-0\site\lib\Array\Iterator.pm Installing C:\cpanrun-5.8\build\5-8-0\site\lib\Array\Iterator\BiDirectional.pm Installing C:\cpanrun-5.8\build\5-8-0\site\lib\Array\Iterator\Circular.pm Installing C:\cpanrun-5.8\build\5-8-0\site\lib\Array\Iterator\Reusable.pm Writing C:\cpanrun-5.8\build\5-8-0\site\lib\auto\Array\Iterator\.packlist Appending installation info to C:\cpanrun-5.8\build\5-8-0\lib/perllocal.pod a Array::Iterator ok 4 - Array::Iterator->can('_init') ok 5 - Array::Iterator->can('_getItem') ok 6 - Array::Iterator->can('_current_index') ok 7 - Array::Iterator->can('_iteratee') ok 8 - Array::Iterator->can('hasNext') ok 9 - Array::Iterator->can('next') ok 10 - Array::Iterator->can('peek') ok 11 - Array::Iterator->can('getNext') ok 12 - Array::Iterator->can('current') ok 13 - Array::Iterator->can('currentIndex') ok 14 - Array::Iterator->can('getLength') ok 15 - ... got the right length ok 16 - ... we have more elements ok 17 - ... our control should match our iterator->peek ok 18 - ... our control should match our iterator->next ok 19 - ... our control should match our iterator->peek ok 20 - ... we have more elements ok 21 - ... our control should match our iterator->peek ok 22 - ... our control should match our iterator->next ok 23 - ... our control should match our iterator->peek ok 24 - ... we have more elements ok 25 - ... our control should match our iterator->peek ok 26 - ... our control should match our iterator->next ok 27 - ... our control should match our iterator->peek ok 28 - ... we have more elements ok 29 - ... our control should match our iterator->peek ok 30 - ... our control should match our iterator->next ok 31 - ... our control should match our iterator->peek ok 32 - ... we have more elements ok 33 - ... our control should match our iterator->peek ok 34 - ... our control should match our iterator->next ok 35 - ... this should return undef now ok 36 - ... we should have no more ok 37 - ... these should be equal ok 38 - ... these should be equal ok 39 - ... these should be equal ok 40 - ... these should be equal ok 41 - ... these should be equal ok 42 - ... these arrays should be equal ok 43 - ... we should have no more ok 44 - ... these should be equal (peek & currentIndex + 1) ok 45 - ... these should be equal (getNext) ok 46 - ... these should be equal (getNext) ok 47 - ... these should be equal (peek & currentIndex + 1) ok 48 - ... these should be equal (getNext) ok 49 - ... these should be equal (getNext) ok 50 - ... these should be equal (peek & currentIndex + 1) ok 51 - ... these should be equal (getNext) ok 52 - ... these should be equal (getNext) ok 53 - ... these should be equal (peek & currentIndex + 1) ok 54 - ... these should be equal (getNext) ok 55 - ... these should be equal (getNext) ok 56 - ... this should return undef now ok 57 - ... these should be equal (getNext) ok 58 - ... these should be equal (getNext) ok 59 - ... we should get undef ok 60 - ... we should have no more ok 61 - The object isa Array::Iterator ok 62 - ... these should be equal (peek & currentIndex + 1) ok 63 - ... these should be equal (getNext) ok 64 - ... these should be equal (getNext) ok 65 - ... these should be equal (peek & currentIndex + 1) ok 66 - ... these should be equal (getNext) ok 67 - ... these should be equal (getNext) ok 68 - ... these should be equal (peek & currentIndex + 1) ok 69 - ... these should be equal (getNext) ok 70 - ... these should be equal (getNext) ok 71 - ... these should be equal (peek & currentIndex + 1) ok 72 - ... these should be equal (getNext) ok 73 - ... these should be equal (getNext) ok 74 - ... this should return undef now ok 75 - ... these should be equal (getNext) ok 76 - ... these should be equal (getNext) ok 77 - ... we should get undef ok 78 - ... we should have no more ok t\20_Array_Iterator_exceptions............1..15 ok 1 - use Array::Iterator; ok 2 - ... we got the error we expected ok 3 - ... we got the error we expected ok 4 - ... we got the error we expected ok 5 - ... we got the error we expected ok 6 - ... we got the error we expected ok 7 - ... we got the error we expected ok 8 - ... we got the error we expected ok 9 - The object isa Array::Iterator ok 10 - ... we are out of elements ok 11 - .. make sure all are exhausted ok 12 - ... we got the error we expected ok 13 - ... got the error we expected ok 14 - ... got the error we expected ok 15 - ... got the error we expected ok t\30_Array_Iterator_BiDirectional_test....1..29 ok 1 - use Array::Iterator::BiDirectional; ok 2 - Array::Iterator::BiDirectional->can('new') ok 3 - The object isa Array::Iterator::BiDirectional ok 4 - The object isa Array::Iterator ok 5 - Array::Iterator::BiDirectional->can('hasPrevious') ok 6 - Array::Iterator::BiDirectional->can('previous') ok 7 - Array::Iterator::BiDirectional->can('lookBack') ok 8 - Array::Iterator::BiDirectional->can('getPrevious') ok 9 - ... we have some previous items ok 10 - ... our control should match our iterator->lookBack ok 11 - ... our control should match our iterator->previous ok 12 - ... we have some previous items ok 13 - ... our control should match our iterator->lookBack ok 14 - ... our control should match our iterator->previous ok 15 - ... we have some previous items ok 16 - ... our control should match our iterator->lookBack ok 17 - ... our control should match our iterator->previous ok 18 - ... we have some previous items ok 19 - ... this should return undef now ok 20 - ... our control should match our iterator->previous ok 21 - ... we should have no more ok 22 - The object isa Array::Iterator::BiDirectional ok 23 - The object isa Array::Iterator ok 24 - ... these should be equal ok 25 - ... these should be equal ok 26 - ... these should be equal ok 27 - ... these should be equal ok 28 - ... this should return undef ok 29 - ... this should die if i try again ok t\40_Array_Iterator_Circular_test.........1..21 ok 1 - use Array::Iterator::Circular; ok 2 - Array::Iterator::Circular->can('new') ok 3 - The object isa Array::Iterator::Circular ok 4 - The object isa Array::Iterator ok 5 - Array::Iterator::Circular->can('getLoopCount') ok 6 - Array::Iterator::Circular->can('isStart') ok 7 - Array::Iterator::Circular->can('isEnd') ok 8 - Array::Iterator::Circular->can('getNext') ok 9 - ... we are at the start of the array ok 10 - ... we are at the end of the array ok 11 - ... we should still get true from hasNext ok 12 - ... we are at the end of the array ok 13 - ... we should still get true from hasNext ok 14 - ... we are at the end of the array ok 15 - ... we should still get true from hasNext ok 16 - ... we are at the end of the array ok 17 - ... we should still get true from hasNext ok 18 - ... we are at the end of the array ok 19 - ... we should still get true from hasNext ok 20 - ... we have looped 5 times ok 21 - ... we have looped 5 times ok t\50_Array_Iterator_Reusable_test.........1..10 ok 1 - use Array::Iterator::Reusable; ok 2 - Array::Iterator::Reusable->can('new') ok 3 - The object isa Array::Iterator::Reusable ok 4 - The object isa Array::Iterator ok 5 - Array::Iterator::Reusable->can('getNext') ok 6 - Array::Iterator::Reusable->can('hasNext') ok 7 - ... our iterator is exhausted ok 8 - Array::Iterator::Reusable->can('reset') ok 9 - ... our iterator has been reset ok 10 - ... we are back to the begining ok t\pod.....................................1..4 ok 1 - blib\lib\Array\Iterator.pm ok 2 - blib\lib\Array\Iterator\BiDirectional.pm ok 3 - blib\lib\Array\Iterator\Circular.pm ok 4 - blib\lib\Array\Iterator\Reusable.pm ok t\pod_coverage............................1..4 ok 1 - Pod coverage on Array::Iterator ok 2 - Pod coverage on Array::Iterator::BiDirectional ok 3 - Pod coverage on Array::Iterator::Circular ok 4 - Pod coverage on Array::Iterator::Reusable ok All tests successful. Files=7, Tests=161, 1 wallclock secs ( 0.00 cusr + 0.00 csys = 0.00 CPU)