\insert 'TestingNoStop.oz' \insert 'Partition.oz' \insert 'FromBy.oz' {StartTesting 'Partition'} local Odds Evens in {Partition {FromBy 0 1} IsOdd Odds Evens} {Test {List.take Odds 5} '==' [1 3 5 7 9]} {Test {List.take Evens 5} '==' [0 2 4 6 8]} end local Greater NotGreater in {Partition {FromBy 0 3} fun {$ X} X > 30 end Greater NotGreater} {Test {List.take Greater 5} '==' [33 36 39 42 45]} {Test {List.take NotGreater 5} '==' [0 3 6 9 12]} end {StartTesting done}