[squeak-dev] The Trunk: KernelTests-nice.107.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Nov 8 23:20:43 UTC 2009


Nicolas Cellier uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-nice.107.mcz

==================== Summary ====================

Name: KernelTests-nice.107
Author: nice
Time: 9 November 2009, 12:20:16 pm
UUID: 1f3d8a7f-1966-40d2-b81d-52a51b0357c2
Ancestors: KernelTests-nice.106

clean-up isSelfEvaluating

=============== Diff against KernelTests-nice.106 ===============

Item was removed:
- TestCase subclass: #SelfEvaluatingObjectTest
- 	instanceVariableNames: ''
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'KernelTests-Objects'!

Item was removed:
- ----- Method: SelfEvaluatingObjectTest>>testArray (in category 'tests') -----
- testArray
- 	"self run: #testArray"
- 
- 	self assertCode: '#(1 2 3)' print: '#(1 2 3)'.
- 	self assertCode: '{1 . 2 . 3}' print: '#(1 2 3)'.
- 	self assertCode: '{1 + 0 . 2 . 3}' print: '#(1 2 3)'.
- 	self assertCode: '{1 + 0 . 1 @ 2 . 3}' print: '{1 . 1 at 2 . 3}'.
- 	self assertCode: '{2 at 3}' print: '{2 at 3}'.
- 	self assertCode: '{Object new}' print:  'an Array(an Object)'.
- 	self assertCode: '{Rectangle new . Object new}' print:  'an Array(nil corner: nil an Object)'.
- 	self assertCode: '{10 at 10 corner: 20 at 20 . 100 at 100 corner: 200 at 200}' print: '{10 at 10 corner: 20 at 20 . 100 at 100 corner: 200 at 200}'!

Item was removed:
- ----- Method: SelfEvaluatingObjectTest>>assertCode:print: (in category 'utilities') -----
- assertCode: code print: aString
- 	self assert: (self compile: code) printString = aString!

Item was removed:
- ----- Method: SelfEvaluatingObjectTest>>testObjects (in category 'tests') -----
- testObjects
- 	"self debug: #testObjects"
- 
- 	self assert: 10 isSelfEvaluating.
- 	self assert: $a isSelfEvaluating.
- 	self assert: 3.14157 isSelfEvaluating.
- 	self assert: #(1 2 3) isSelfEvaluating.
- 	self assert: #abc isSelfEvaluating.
- 	self assert: 'abc' isSelfEvaluating.
- 
- 	self assert: Object isSelfEvaluating.
- 	self assert: Object new isSelfEvaluating not.
- 
- 	self assert: (Array with: 10) isSelfEvaluating.
- 	self assert: (Array with: Object new) isSelfEvaluating not.
- 
- 	self assert: true isSelfEvaluating.
- 	self assert: false isSelfEvaluating.
- 
- 	self assert: nil isSelfEvaluating.
- 
- 	self assert: (1 to: 10) isSelfEvaluating.
- 	self assert: (1->2) isSelfEvaluating.
- 	self assert: Color red isSelfEvaluating.
- 	self assert: RunArray new isSelfEvaluating.!

Item was removed:
- ----- Method: SelfEvaluatingObjectTest>>compile: (in category 'utilities') -----
- compile: aString
- 	^ Compiler evaluate: aString!




More information about the Squeak-dev mailing list