% $Id: MapTest.oz,v 1.1 2009/02/03 02:13:09 leavens Exp leavens $ \insert 'TestingNoStop.oz' \insert 'Map.oz' {StartTesting 'Map'} {Test {Map nil fun {$ X} X + 2 end} '==' nil} {Test {Map [1 2 3] fun {$ X} X + 2 end} '==' [3 4 5]} {Test {Map [0 1 2 3] fun {$ X} X * 2 end} '==' [0 2 4 6]} {Test {Map [0 1 2 3 4 3 2 1] fun {$ X} {Not (X == 2 orelse X == 3)} end} '==' [true true false false true false false true]} {Test {Map [0 1 2 3 4 3 2 1] fun {$ X} X * 2 + 3 end} '==' [3 5 7 9 11 9 7 5]} {Test {Map [32777 95 99 100 3 1 3] fun {$ X} a end} '==' [a a a a a a a]}