% $Id: ProductTest.oz,v 1.1 2007/10/22 05:07:48 leavens Exp leavens $ \insert 'TestingNoStop.oz' \insert 'ProductInClass.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}