author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Fri, 26 Apr 2013 18:01:50 +0200 | |
changeset 146 | 0cf5a47e69fc |
parent 55 | d6e89853991f |
child 161 | 272aec4b1764 |
permissions | -rw-r--r-- |
55 | 1 |
"{ Package: 'stx:goodies/builder/reports' }"! |
2 |
||
3 |
!TestCase methodsFor:'accessing'! |
|
4 |
||
5 |
nameForHDTestReport |
|
6 |
||
7 |
^(self class package asString replaceAll: $: with: $.; replaceAll: $/ with: $.) , '.' , self name |
|
8 |
||
9 |
" |
|
10 |
Object nameForHDTestReport |
|
11 |
SVN::Repository nameForHDTestReport |
|
12 |
" |
|
13 |
||
14 |
"Created: / 01-04-2011 / 16:09:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
15 |
"Modified: / 06-04-2011 / 13:36:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
16 |
! ! |
|
17 |
||
18 |
!TestCase methodsFor:'accessing'! |
|
19 |
||
20 |
selectorForHDTestReport |
|
21 |
||
22 |
^testSelector |
|
23 |
||
24 |
! ! |
|
25 |
||
26 |
!TestCase methodsFor:'accessing'! |
|
27 |
||
28 |
timeout |
|
29 |
"Returns a default timeout (sec) for the test. |
|
30 |
If nil is returned, no timeout enforced. |
|
31 |
||
32 |
Note that the timeout is set only when running under |
|
33 |
report runner, interactive tools does not use it" |
|
34 |
||
146
0cf5a47e69fc
Allow timeout to be controlled by an annotation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
55
diff
changeset
|
35 |
| method | |
0cf5a47e69fc
Allow timeout to be controlled by an annotation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
55
diff
changeset
|
36 |
method := self class lookupMethodFor: testSelector. |
0cf5a47e69fc
Allow timeout to be controlled by an annotation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
55
diff
changeset
|
37 |
method annotationsAt:#timeout: do:[:annotation| |
0cf5a47e69fc
Allow timeout to be controlled by an annotation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
55
diff
changeset
|
38 |
^annotation arguments first |
0cf5a47e69fc
Allow timeout to be controlled by an annotation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
55
diff
changeset
|
39 |
]. |
0cf5a47e69fc
Allow timeout to be controlled by an annotation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
55
diff
changeset
|
40 |
^60"sec - default timeout" |
55 | 41 |
|
42 |
"Created: / 12-01-2012 / 17:48:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
146
0cf5a47e69fc
Allow timeout to be controlled by an annotation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
55
diff
changeset
|
43 |
"Modified: / 26-04-2013 / 16:58:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
55 | 44 |
! ! |
45 |
||
46 |
!TestCase class methodsFor:'testing'! |
|
47 |
||
48 |
isJUnitTestCaseProxy |
|
49 |
||
50 |
^false |
|
51 |
||
52 |
! ! |
|
53 |
||
54 |
!TestCase class methodsFor:'testing'! |
|
55 |
||
56 |
isTestletTestCaseProxy |
|
57 |
||
58 |
^false |
|
59 |
||
60 |
! ! |
|
61 |
||
62 |
!stx_goodies_builder_reports class methodsFor:'documentation'! |
|
63 |
||
64 |
extensionsVersion_CVS |
|
65 |
^ '$Header$' |
|
146
0cf5a47e69fc
Allow timeout to be controlled by an annotation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
55
diff
changeset
|
66 |
! ! |