The Trunk: Tests-fbs.216.mcz

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).!