[squeak-dev] The Trunk: Tests-fbs.216.mcz

commits at source.squeak.org commits at source.squeak.org
Tue May 21 20:24:44 UTC 2013


Frank Shearar uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-fbs.216.mcz

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

Name: Tests-fbs.216
Author: fbs
Time: 21 May 2013, 9:23:52.364 pm
UUID: 709671f9-09ad-4d84-b8f5-e7cdb4cf76a4
Ancestors: Tests-fbs.215

Environmentally-aware SystemNavigation didn't look at the metaclass heirarchy, so couldn't find class-side implementors, for instance.

=============== Diff against Tests-fbs.215 ===============

Item was changed:
  ----- Method: SystemNavigationTest>>setUp (in category 'as yet unclassified') -----
  setUp
  	| g p t |
  	env := Environment named: 'test'.
  	g := self createClass: #Griffle.
  	p := self createClass: #Plonk.
  	g compile: 'foo ^ 1'.
+ 	g class compile: 'classFoo ^ 1'.
  	g compile: 'bar ^ 1'.
  	p compile: 'foo ^ 2'.
  	t := self createTrait: #TGriffle.
  	t compile: 'baz ^ Griffle new foo + Plonk new bar'.
  	self createClass: #Unused.
  	sysNav := SystemNavigation for: env.!

Item was changed:
  ----- Method: SystemNavigationTest>>testAllImplementedMessagesWithout (in category 'as yet unclassified') -----
  testAllImplementedMessagesWithout
+ 	self assert: #(bar baz classFoo) asSet
- 	self assert: #(bar baz) asSet
  		equals: (sysNav allImplementedMessagesWithout: {{env at: #Griffle}. {#foo}}).!

Item was added:
+ ----- Method: SystemNavigationTest>>testAllImplementorsOfClassSide (in category 'as yet unclassified') -----
+ testAllImplementorsOfClassSide
+ 	self assert: (OrderedCollection
+ 			with: (MethodReference class: (env at: #Griffle) class selector: #classFoo))
+ 		equals: (sysNav allImplementorsOf: #classFoo).!



More information about the Squeak-dev mailing list