The Trunk: Tests-fbs.273.mcz

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

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

Name: Tests-fbs.273
Author: fbs
Time: 9 December 2013, 10:42:43.48 pm
UUID: 7cec6943-8966-2442-b74a-e4b357afbb0f
Ancestors: Tests-fbs.272

Tests belong in test packages. In this case, we have a test whose positive outcome is reflected in the system still running. Perhaps we ought to consider an Examples package, in which to collect these kinds of non-SUnit tests.

=============== Diff against Tests-fbs.272 ===============

Item was added:
+ ----- Method: Decompiler class>>recompileAllTest (in category '*Tests') -----
+ recompileAllTest
+ "[Decompiler recompileAllTest]"
+ "decompile every method and compile it back; if the decompiler is correct then the system should keep running.  :)"
+
+ SystemNavigation default allBehaviorsDo: [ :behavior |
+ UIManager default informUser: (behavior printString) during: [
+ behavior selectors do: [ :sel |
+ | decompiled ast compiled |
+ decompiled := Decompiler new decompile: sel in: behavior.
+ ast := Compiler new compile: decompiled in: behavior notifying: nil ifFail: [ self error: 'failed' ].
+ compiled := ast generate: (behavior compiledMethodAt: sel) trailer.
+ behavior addSelector: sel withMethod: compiled. ] ] ]!