The Trunk: Tests-nice.44.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: Tests-nice.44.mcz

commits-2
Nicolas Cellier uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-nice.44.mcz

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

Name: Tests-nice.44
Author: nice
Time: 16 January 2010, 8:53:56.027 pm
UUID: 496851c3-9896-49ae-b9f4-6a005284e26c
Ancestors: Tests-ul.43

Fast up a test with selectorsAndMethodsDo:

=============== Diff against Tests-ul.43 ===============

Item was changed:
  ----- Method: DecompilerTests>>decompileClassesSelect: (in category 'utilities') -----
  decompileClassesSelect: aBlock
 
  (Smalltalk classNames select: aBlock) do:
  [:cn | | cls |
  cls := Smalltalk at: cn.
  Smalltalk garbageCollect.
  Transcript cr; show: cn.
+ cls selectorsAndMethodsDo:
+ [:selector :meth |
- cls selectorsDo:
- [:selector | | methodNode oldMethod newMethod oldCodeString newCodeString |
  (self isFailure: cls sel: selector) ifFalse:
  [" to help making progress
  (self
  isStoredProblems: cls theNonMetaClass
  sel: selector
  meta: cls isMeta)
  ifFalse: [ "
  Transcript nextPut: $.; flush.
+ self checkDecompileMethod: meth]]]!
- self checkDecompileMethod: (cls compiledMethodAt: selector)]]]!