author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Wed, 09 Jul 2014 23:00:04 +0100 | |
branch | working_v5_0 |
changeset 613 | 5a546630cfcf |
parent 611 | 1eecc860f4a5 |
child 614 | 3003097506c9 |
permissions | -rw-r--r-- |
110 | 1 |
"{ Package: 'stx:goodies/sunit' }" |
2 |
||
3 |
TestCase subclass:#ResumableTestFailureTestCase |
|
222 | 4 |
instanceVariableNames:'duplicateFailureLog' |
110 | 5 |
classVariableNames:'' |
6 |
poolDictionaries:'' |
|
7 |
category:'SUnit-Tests' |
|
8 |
! |
|
9 |
||
10 |
||
11 |
!ResumableTestFailureTestCase methodsFor:'Not categorized'! |
|
12 |
||
222 | 13 |
resumableTestFailureTest |
14 |
self |
|
15 |
assert: false description: 'You should see more than me' resumable: true; |
|
16 |
assert: false description: 'You should see more than me' resumable: true; |
|
17 |
assert: false description: 'You should see me last' resumable: false; |
|
18 |
assert: false description: 'You should not see me' resumable: true |
|
19 |
! ! |
|
20 |
||
21 |
!ResumableTestFailureTestCase methodsFor:'logging'! |
|
110 | 22 |
|
222 | 23 |
logFailure: aString |
24 |
duplicateFailureLog add: aString. |
|
25 |
super logFailure: aString. |
|
26 |
! ! |
|
110 | 27 |
|
222 | 28 |
!ResumableTestFailureTestCase methodsFor:'running'! |
29 |
||
30 |
setUp |
|
31 |
duplicateFailureLog := OrderedCollection with: 'In set up'. |
|
110 | 32 |
! |
33 |
||
222 | 34 |
tearDown |
35 |
self deny: 'You should not see me' = duplicateFailureLog last |
|
36 |
description: 'We saw the ''You should not see me'' failure'. |
|
37 |
self deny: 'You should see more than me' = duplicateFailureLog last |
|
38 |
description: 'We did not see more than a ''You should see more than me'' failure'. |
|
110 | 39 |
! |
40 |
||
41 |
testResumable |
|
42 |
| result suite | |
|
43 |
suite := TestSuite new. |
|
44 |
suite addTest: (self class selector: #errorTest). |
|
45 |
suite addTest: (self class selector: #regularTestFailureTest). |
|
46 |
suite addTest: (self class selector: #resumableTestFailureTest). |
|
47 |
suite addTest: (self class selector: #okTest). |
|
48 |
result := suite run. |
|
49 |
self assert: result failures size = 2; |
|
50 |
assert: result errors size = 1 |
|
222 | 51 |
! ! |
52 |
||
53 |
!ResumableTestFailureTestCase methodsFor:'test data'! |
|
54 |
||
55 |
errorTest |
|
56 |
1 zork |
|
57 |
! |
|
58 |
||
59 |
failureTest |
|
60 |
self |
|
61 |
assert: false description: 'You should see me' resumable: true; |
|
62 |
assert: false description: 'You should see me too' resumable: true; |
|
63 |
assert: false description: 'You should see me last' resumable: false; |
|
64 |
assert: false description: 'You should not see me' resumable: true |
|
65 |
! |
|
66 |
||
67 |
okTest |
|
68 |
self assert: true |
|
69 |
! |
|
70 |
||
71 |
regularTestFailureTest |
|
72 |
self assert: false description: 'You should see me' |
|
110 | 73 |
! ! |
74 |
||
75 |
!ResumableTestFailureTestCase class methodsFor:'documentation'! |
|
76 |
||
222 | 77 |
version_SVN |
78 |
^ '§Id: ResumableTestFailureTestCase.st 214 2011-03-14 12:22:21Z vranyj1 §' |
|
110 | 79 |
! ! |
611
1eecc860f4a5
Project definition fixed and HG configured as for CVS mirror repository.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
222
diff
changeset
|
80 |