The Trunk: KernelTests-nice.107.mcz

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@2 . 3}'.
- self assertCode: '{2@3}' print: '{2@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@10 corner: 20@20 . 100@100 corner: 200@200}' print: '{10@10 corner: 20@20 . 100@100 corner: 200@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!