% $Id: ProductTest.oz,v 1.1 2007/10/22 05:07:48 leavens Exp leavens $ \insert 'TestingNoStop.oz' \insert 'Product.oz' declare % Helper to avoid repeated test code proc {TestProd P} {Test {P nil} '==' 1} {Test {P [1 2 3]} '==' 6} {Test {P [4 1 2 3]} '==' 24} {Test {P [10 10 0 333 999]} '==' 0} end {StartTesting 'Product'} {TestProd Product} {StartTesting 'ProductI'} {TestProd ProductI}