Smalltalk report

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>  
wrote:
> And have a look at BehaviorTest>>#testChange

This test is a *very* good one, 100% pure[tm] object-oriented :)

/Klaus

> testChange
> 	"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 mailing list