% $Id: ArrayFindEqualBodyTest.oz,v 1.1 2012/03/21 14:57:34 leavens Exp leavens $ \insert 'ArrayMaker.oz' declare A06 = {ArrayMaker 0 0 fun {$ I} 6 end} A1 = {ArrayMaker 1 10 fun {$ I} 1 end} A10 = {ArrayMaker 1 10 fun {$ I} I*10 end} A3s = {ArrayMaker 1 10 fun {$ I} 10-I*3 end} {StartTesting 'ArrayFindEqualBodyTest.oz $Revision: 1.1 $'} {Test {ArrayFindEqual A1 1} '==' [1 2 3 4 5 6 7 8 9 10]} {Test {ArrayFindEqual A1 3} '==' nil} {Test {ArrayFindEqual A06 6} '==' [0]} {Test {ArrayFindEqual A06 7} '==' nil} {Test {ArrayFindEqual A10 30} '==' [3]} {Test {ArrayFindEqual A3s 4} '==' [2]} {Test {ArrayFindEqual A10 0} '==' nil} {Test {ArrayFindEqual A3s ~5} '==' [5]} {DoneTesting}