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