EUTest.cm

Last Edited by: Monier, April 19, 1985 5:45:12 pm PST

Rosemary

run DragonImpl

run HexDisplayer

EU.roseLoad

← &sim ← RoseCreate.CreateSim[TRUE]

← &test ← RoseCreate.CreateTest[rootName: "EUTest", typeName: "EU", testName: "ExerciseEveryBlock", decider: NIL, sim: &sim]

← &disp ← RoseDisplayOps.NewDisplay[sim:&sim, info: [iconic: FALSE, name: "EU.Display"], cth: &test.cth]

← &bv ← RoseDisplayBrowsing.BrowseDisplay[display:&disp, info: [iconic: FALSE, name: "EU.browser"]]