% $Id: DeleteFirstTest.oz,v 1.1 2007/10/22 07:09:51 leavens Exp leavens $ \insert 'TestingNoStop.oz' \insert 'MapInClass.oz' {StartTesting 'Map'} {Test {Map nil fun {$ X} X+1 end} '==' nil} {Test {Map 3|4|nil fun {$ X} X+1 end} '==' 4|5|nil} {Test {Map 5|3|4|nil fun {$ X} X*7 end} '==' 35|21|28|nil} {Test {Map 3|4|nil fun {$ X} X*7 end} '==' 21|28|nil} % Map: }: >