Klaus D. Witzel
klaus.witzel at cobss.com
Mon Aug 14 09:13:07 UTC 2006
On Mon, 14 Aug 2006 10:55:29 +0200, Marcus Denker <denker at iam.unibe.ch>
> And have a look at BehaviorTest>>#testChange
This test is a *very* good one, 100% pure[tm] object-oriented :)
> "self debug: #testChange"
> | behavior model |
> behavior := Behavior new.
> behavior superclass: Model.
> behavior setFormat: Model format.
> model := Model new.
> model primitiveChangeClassTo: behavior new.
> behavior compile: 'thisIsATest ^ 2'.
> self assert: model thisIsATest = 2.
> self should: [Model new thisIsATest] raise: MessageNotUnderstood.
More information about the Squeak-dev