SpecialTest.cm

Last Edited by: Spreitzer, October 10, 1984 11:37:38 am PDT

Last Edited by: Barth, March 7, 1983 12:13 pm

@RoseSim.cm

@SpecialTest.RoseLoad

← &sim ← RoseCreate.CreateSim[TRUE]

← &both ← RoseCreate.CreateTest[rootName: "SpecialTestTest", testerName: "tester", testeeName: "testee", typeName: "SpecialTest", stateToo: FALSE, decider: RoseCreate.DecideFromFile["SpecialTest.testExpand"], sim: &sim]

← RoseRun.Test[sim: &sim, cth: &both.cth, parms: NEW [RoseRun.TestParmsRep ← [FALSE, FALSE]]]

← &topCell ← RoseCreate.WrapTop[rootName: "SpecialTestPoke", typeName: "SpecialTest", decider: RoseCreate.DecideFromFile["SpecialTest.expand"], sim: &sim]

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

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