[View]  [Edit]  [Lock]  [References]  [Attachments]  [History]  [Home]  [Changes]  [Search]  [Help] 

test[times] epilogue

"Report of execution times"
| times report |
times := self savedTimes.
report := '' writeStream.
times keys sorted do: [:expression|
	report	nextPutAll: (times at: expression) evaluate asString; tab;
		nextPutAll: expression stream nextLine; cr
].
self print: report contents.
report contents outputToFile: 'savedTimes.txt'.