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