% $Id: MaxAmountsTestBody.oz,v 1.1 2010/03/31 21:59:33 leavens Exp leavens $ {StartTesting 'MaxAmounts'} {Test {MaxAmounts store(address: "The Bad One" amounts: [1])} '==' store(address: "The Bad One" amounts: [1])} {Test {MaxAmounts store(address: "Waterford Lakes" amounts: [5 18 999 13 5])} '==' store(address: "Waterford Lakes" amounts: [999])} {Test {MaxAmounts store(address: "Oviedo" amounts: [7 3 7 5 19 8 19 1])} '==' store(address: "Oviedo" amounts: [19])} {Test {MaxAmounts group(name: "Central Florida" members: [store(address: "The Bad One" amounts: [1]) store(address: "Waterford Lakes" amounts: [5 18 999 13 5]) store(address: "Oviedo" amounts: [7 3 7 5 19 8 19 1])])} '==' group(name: "Central Florida" members: [store(address: "The Bad One" amounts: [1]) store(address: "Waterford Lakes" amounts: [999]) store(address: "Oviedo" amounts: [19])])} {StartTesting done}