1Smalltalk.TestLogPolicy subclass: TestBacktraceLog [ 2 | logStatus hadSuccesses | 3 4 initialize: aStream [ 5 <category: 'Initializing'> 6 7 super initialize: aStream. 8 hadSuccesses := false 9 ] 10 11 flush [ 12 <category: 'logging'> 13 14 hadSuccesses := false 15 ] 16 17 logError: anException [ 18 <category: 'logging'> 19 20 logStatus := anException 21 ] 22 23 logFailure: aFailure [ 24 <category: 'logging'> 25 26 logStatus := thisContext. 27 ] 28 29 logSucces [ 30 <category: 'logging'> 31 32 hadSuccesses := true 33 ] 34 35 logStatus [ 36 <category: 'logging'> 37 38 ^ logStatus 39 ] 40] 41 42