The Trunk: KernelTests-nice.103.mcz

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

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

Name: KernelTests-nice.103
Author: nice
Time: 19 October 2009, 9:21:34 am
UUID: e54ca050-d8d0-0a44-b3f2-05e51c074005
Ancestors: KernelTests-nice.102

remove uncessary sends of #values
because (aDictionary values do:) is same as (aDictionary do:)
except when aDictionary is modified in the do loop.

=============== Diff against KernelTests-nice.102 ===============

Item was changed:
  ----- Method: InstVarRefLocatorTest>>testInstructions (in category 'tests') -----
  testInstructions
 
+ | scanner end printer |
- | scanner end printer methods |
-
- methods := Object methodDict values.
 
+ Object methodDict do: [:method |
- methods do: [:method |
  scanner := InstructionStream on: method.
  printer := InstVarRefLocator new.
  end := scanner method endPC.
 
  [scanner pc <= end] whileTrue: [
  self shouldnt: [printer interpretNextInstructionUsing: scanner] raise: Error.
  ].
  ].!

Item was changed:
  ----- Method: InstructionPrinterTest>>testInstructions (in category 'tests') -----
  testInstructions
  "just print all of methods of Object and see if no error accours"
 
+ | printer |
+ printer  := InstructionPrinter.
+ Object methodDict do: [:method |
- | methods printer  |
-
- methods := Object methodDict values.
- printer  := InstructionPrinter.
-
- methods do: [:method |
  self shouldnt: [
  String streamContents: [:stream |
  (printer on: method) printInstructionsOn: stream]] raise: Error.
  ].
  !

Item was changed:
  ----- Method: InstructionClientTest>>testInstructions (in category 'tests') -----
  testInstructions
  "just interpret all of methods of Object"
 
+ | client scanner |
- | methods client scanner|
-
- methods := Object methodDict values.
  client := InstructionClient new.
+ Object methodDict do: [:method |
-
- methods do: [:method |
  scanner := (InstructionStream on: method).
  [scanner pc <= method endPC] whileTrue: [
  self shouldnt: [scanner interpretNextInstructionFor: client] raise: Error.
  ].
  ].
  !