--- a/reports/extensions.st Tue Apr 09 14:08:23 2013 +0200
+++ b/reports/extensions.st Fri Apr 26 18:01:50 2013 +0200
@@ -32,9 +32,15 @@
Note that the timeout is set only when running under
report runner, interactive tools does not use it"
- ^60"sec"
+ | method |
+ method := self class lookupMethodFor: testSelector.
+ method annotationsAt:#timeout: do:[:annotation|
+ ^annotation arguments first
+ ].
+ ^60"sec - default timeout"
"Created: / 12-01-2012 / 17:48:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 26-04-2013 / 16:58:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!TestCase class methodsFor:'testing'!
@@ -57,4 +63,4 @@
extensionsVersion_CVS
^ '$Header$'
-! !
\ No newline at end of file
+! !