AggerTest.cm

CommandToolProcedures

PrettyPrint

LoadRosemary

Addd [DATools]<DATools6.0>Core>

Run RoseDebug

MakeDo Agger

Run Agger

← &design ← CoreOps.CreateDesign["AggerTest"]

← &ict ← Agger.DefineAgger[&design]

← CoreOps.PrintDesign[&design, &stdout[]]

← &ibc ← RoseBindPrivate.GetBehaviorClass[&ict, FALSE, FALSE, TRUE]

MakeExcuses ("Rosemary Behavior Class Privates" "Agger RoseBCPvt")

← &ibc ← RoseBindPrivate.GetBehaviorClass[&ict, TRUE, TRUE, TRUE]

← &cth ← RoseControl.InstantiateForTest[cellType: &ict, expand: TRUE]

MakeExcuses ("Rosemary Behavior Class Details" "AggerTester RoseBCDet")

MakeDo AggerTesting

Run AggerTesting

← RoseControl.Test[&cth, AggerTesting.TestAgger]