% $Id: ForLoopMapTest.oz,v 1.1 2007/10/22 06:40:12 leavens Exp leavens $ \insert 'TestingNoStop.oz' \insert 'ForLoopMap.oz' {StartTesting 'ForLoopMap'} {Test {ForLoopMap nil fun {$ X} X+10 end} '==' nil} {Test {ForLoopMap [1 2 3 4 5] fun {$ X} X+10 end} '==' [11 12 13 14 15]} {Test {ForLoopMap [1 2 3 4 5] fun {$ X} X*10 end} '==' [10 20 30 40 50]}