[Pkg] The Trunk: ToolsTests-fbs.65.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed May 22 07:49:02 UTC 2013
Frank Shearar uploaded a new version of ToolsTests to project The Trunk:
http://source.squeak.org/trunk/ToolsTests-fbs.65.mcz
==================== Summary ====================
Name: ToolsTests-fbs.65
Author: fbs
Time: 22 May 2013, 7:49:38.501 am
UUID: a375bd63-27af-4091-bde7-ebf16789162d
Ancestors: ToolsTests-fbs.64
Tests to show MethodReference >> #actualClass working correctly.
=============== Diff against ToolsTests-fbs.64 ===============
Item was changed:
ClassTestCase subclass: #MethodReferenceTest
+ instanceVariableNames: 'env'
- instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: 'ToolsTests-Browser'!
Item was added:
+ ----- Method: MethodReferenceTest>>createClass: (in category 'private') -----
+ createClass: aSymbol
+ | builder |
+ builder := ClassBuilder new.
+ ^ builder
+ name: aSymbol
+ inEnvironment: env
+ subclassOf: Object
+ type: #normal
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Test'.!
Item was added:
+ ----- Method: MethodReferenceTest>>setUp (in category 'running') -----
+ setUp
+ | g p |
+ env := Environment named: 'test'.
+ g := self createClass: #Griffle.
+ p := self createClass: #Plonk.
+ g compile: 'foo ^ 1'.
+ g organization classify: #foo under: #accessing.
+ g class compile: 'classFoo ^ 1'.
+ g compile: 'bar ^ 1'.
+ p compile: 'foo ^ 2'.
+ self createClass: #Unused.!
Item was added:
+ ----- Method: MethodReferenceTest>>testActualClassIsScopedToEnvironment (in category 'tests') -----
+ testActualClassIsScopedToEnvironment
+ | mref |
+ mref := MethodReference class: (env at: #Griffle) selector: #foo environment: env.
+ self assert: (env at: #Griffle) equals: mref actualClass.!
Item was added:
+ ----- Method: MethodReferenceTest>>testCanReferToMethodInSpecificEnvironment (in category 'tests') -----
+ testCanReferToMethodInSpecificEnvironment
+ | mref |
+ mref := MethodReference class: self class selector: #testReferencedEnvironmentDefaultsToSmalltalkGlobals environment: env.
+ self assert: env equals: mref environment.!
Item was added:
+ ----- Method: MethodReferenceTest>>testCategory (in category 'tests') -----
+ testCategory
+ | mref |
+ mref := MethodReference class: (env at: #Griffle) selector: #foo environment: env.
+ self assert: #accessing equals: mref category.!
Item was removed:
- ----- Method: MethodReferenceTest>>testClassSelectorDefaultsToSmalltalkGlobals (in category 'tests') -----
- testClassSelectorDefaultsToSmalltalkGlobals
- | mref |
- mref := MethodReference class: self class selector: #testClassSelectorDefaultsToSmalltalkGlobals.
- self assert: Smalltalk globals equals: mref environment.!
Item was added:
+ ----- Method: MethodReferenceTest>>testReferencedEnvironmentDefaultsToSmalltalkGlobals (in category 'tests') -----
+ testReferencedEnvironmentDefaultsToSmalltalkGlobals
+ | mref |
+ mref := MethodReference class: self class selector: #testReferencedEnvironmentDefaultsToSmalltalkGlobals.
+ self assert: Smalltalk globals equals: mref environment.!
More information about the Packages
mailing list