% $Id: FilterTest.oz,v 1.1 2008/10/14 21:47:11 leavens Exp leavens $ \insert 'TestingNoStop.oz' \insert 'Filter.oz' {StartTesting 'Filter'} {Test {Filter nil fun {$ X} X < 2 end} '==' nil} {Test {Filter [1 2 3] fun {$ X} X < 2 end} '==' [1]} {Test {Filter [0 1 2 3] fun {$ X} X < 2 end} '==' [0 1]} {Test {Filter [0 1 2 3 4 3 2 1] fun {$ X} {Not X == 2 orelse X == 3} end} '==' [0 1 4 1]} {Test {Filter [0 1 2 3 4 3 2 1] fun {$ X} X == 2 orelse X == 3 end} '==' [2 3 3 2]}