ShiftTest.cm

Last Edited by: Spreitzer, January 25, 1985 3:54:39 pm PST

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

@RoseSim.cm

@Shifting.roseLoad

← &sim ← RoseCreate.CreateSim[TRUE]

← &both ← RoseCreate.CreateTest[rootName: "ShiftingTest[5]", typeName: Shifting.NBitSR[[5]].name, testName: "T", 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"]]