ShiftTest.cm

Last Edited by: Spreitzer, October 9, 1984 10:34:16 pm PDT

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

@RoseSim.cm

@Shifting.roseLoad

← &sim ← RoseCreate.CreateSim[TRUE]

← &both ← RoseCreate.CreateTest[rootName: "ShiftingTest[5]", testerName: "tester", testeeName: "testee", typeName: Shifting.NBitSR[[5]].name, stateToo: FALSE, decider: RoseCreate.DecideFromFile["ShiftingTest.5.expand"], sim: &sim]

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

← &disp ← RoseDisplayOps.NewDisplay[sim: &sim, info: [iconic: FALSE, name: "ShiftingTest[5].Display"], cth: &both.cth]

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