% $Id: SuperSizeTest.oz,v 1.2 2008/02/01 15:46:00 leavens Exp leavens $ \insert 'SuperSize.oz' \insert 'TestingNoStop.oz' {StartTesting 'SuperSize'} {Test {SuperSize single(name: "xz400" diskSizes: [2 4 8])} '==' single(name: "super-xz400" diskSizes: [4 8 16])} {Test {SuperSize grid(name: "small" elements: [single(name: "xz400" diskSizes: [2 4 8])])} '==' grid(name: "super-small" elements: [single(name: "super-xz400" diskSizes: [4 8 16])])} {Test {SuperSize grid(name: "maxFlow" elements: [single(name: "xz400" diskSizes: [2 4 8]) single(name: "9000" diskSizes: [8 16]) grid(name: "small" elements: [single(name: "xz400" diskSizes: [2 4 8])])])} '==' grid(name: "super-maxFlow" elements: [single(name: "super-xz400" diskSizes: [4 8 16]) single(name: "super-9000" diskSizes: [16 32]) grid(name: "super-small" elements: [single(name: "super-xz400" diskSizes: [4 8 16])])])}