-- 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[]