<<>> -- BTreeSimpleTest.cm -- Copyright Ó 1992 by Xerox Corporation. All rights reserved. -- Commands for hand-testing BTreeSimple. This command file is not intended -- to be executed sequentially in its entirety. -- Willie-s, April 23, 1992 11:35 am PDT run BTreeSimpleImpl BTreeSimpleTestImpl interp %AMModelContextImpl.worldGFNameList _ NIL &sgf[BTreeSimpleTestImpl] [] _ Create[] validateEveryUpdate _ TRUE; validateEveryUpdate _ FALSE; Time[1000] %BTreeSimple.GetState[myTree] %BTreeSimple.GetStatistics[myTree] FindMissingEntries[] EnumerateBackward[FALSE] EnumerateBackward[TRUE] Destroy[]