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