[Pkg] The Trunk: Tests-fbs.273.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Dec 9 22:43:02 UTC 2013

Frank Shearar uploaded a new version of Tests to project The Trunk:

==================== 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. ] ] ]!

More information about the Packages mailing list