\insert 'MapInClass.oz' \insert 'TestingNoStop.oz' {StartTesting 'Map'} {Test {Map nil Add2} '=' nil} {Test {Map [1 2 3] Add1} '=' [2 3 4]} {Test {Map [2 3] Add1} '=' [3 4]}