author | Patrik Svestka <patrik.svestka@gmail.com> |
Tue, 09 Apr 2019 11:18:28 +0200 | |
branch | jv |
changeset 2214 | ba58ef8a6214 |
parent 1567 | e17701a073f9 |
permissions | -rwxr-xr-x |
1447 | 1 |
"{ Package: 'stx:goodies/regression' }" |
688 | 2 |
|
3 |
"{ NameSpace: RegressionTests }" |
|
4 |
||
5 |
TestCase subclass:#SunitXMLOutputTest |
|
6 |
instanceVariableNames:'' |
|
7 |
classVariableNames:'' |
|
8 |
poolDictionaries:'' |
|
9 |
category:'tests-Regression' |
|
10 |
! |
|
11 |
||
698 | 12 |
!SunitXMLOutputTest class methodsFor:'documentation'! |
13 |
||
14 |
documentation |
|
15 |
" |
|
16 |
consists of failing (by purpose) tests, |
|
17 |
to see if the backtrace and exception reporting works |
|
18 |
if sUnit results are rendered in xml and then presented by jenkins |
|
19 |
" |
|
20 |
! ! |
|
688 | 21 |
|
22 |
!SunitXMLOutputTest methodsFor:'testing'! |
|
23 |
||
24 |
test01_shouldBeOK_01 |
|
25 |
self assert:true. |
|
26 |
||
27 |
" |
|
28 |
self new test01_shouldBeOK_01 |
|
29 |
" |
|
30 |
! |
|
31 |
||
691 | 32 |
test02_shouldBeOK_02 |
688 | 33 |
self should:[ self error ] raise:Error |
34 |
||
35 |
" |
|
691 | 36 |
self new test02_shouldBeOK_02 |
688 | 37 |
" |
38 |
! |
|
39 |
||
691 | 40 |
test03_shouldError_01 |
688 | 41 |
self error. |
42 |
||
43 |
" |
|
691 | 44 |
self new test03_shouldError_01 |
688 | 45 |
" |
46 |
! |
|
47 |
||
691 | 48 |
test04_shouldError_02 |
688 | 49 |
self error:'this is an error message'. |
50 |
||
51 |
" |
|
691 | 52 |
self new test04_shouldError_02 |
688 | 53 |
" |
54 |
! |
|
55 |
||
691 | 56 |
test05_shouldError_03 |
688 | 57 |
|d| |
58 |
||
59 |
d := 0. |
|
60 |
Transcript showCR:'expect a division by zero error soon...'. |
|
61 |
Transcript showCR:(5 / d). |
|
62 |
||
63 |
" |
|
691 | 64 |
self new test05_shouldError_03 |
688 | 65 |
" |
66 |
! |
|
67 |
||
691 | 68 |
test06_shouldFail |
688 | 69 |
self assert:false. |
70 |
||
71 |
" |
|
691 | 72 |
self new test06_shouldFail |
688 | 73 |
" |
74 |
! ! |
|
75 |
||
76 |
!SunitXMLOutputTest class methodsFor:'documentation'! |
|
77 |
||
78 |
version |
|
79 |
^ '$Header$' |
|
80 |
! |
|
81 |
||
82 |
version_CVS |
|
83 |
^ '$Header$' |
|
84 |
! ! |
|
1567
e17701a073f9
Added abstract VMSpawningTestCase
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1447
diff
changeset
|
85 |