% $Id: HailstonePeaksTest.oz,v 1.2 2007/10/29 20:16:49 leavens Exp leavens $ \insert 'HailstonePeaks.oz' \insert 'TestingNoStop.oz' \insert 'ForceList.oz' {StartTesting 'GraphMaxPeaks'} {Test {ForceList {GraphMaxPeaks 100}} '==' [1#1 2#2 3#8 7#26 15#80 27#4616]} {Test {ForceList {GraphMaxPeaks 1000}} '==' [1#1 2#2 3#8 7#26 15#80 27#4616 255#6560 447#19682 639#20762 703#125252]} {Test {ForceList {GraphMaxPeaks 10000}} '==' [1#1 2#2 3#8 7#26 15#80 27#4616 255#6560 447#19682 639#20762 703#125252 1819#638468 4255#3405068 4591#4076810 9663#13557212]}