equal
deleted
inserted
replaced
81 ! ! |
81 ! ! |
82 |
82 |
83 !TestCaseWithArguments methodsFor:'private'! |
83 !TestCaseWithArguments methodsFor:'private'! |
84 |
84 |
85 performTest |
85 performTest |
86 startTime := Timestamp now. |
86 self perform:(testSelector asSymbol) withArguments:(testArguments) |
87 [ |
|
88 self perform:(testSelector asSymbol) withArguments:(testArguments) |
|
89 ] ensure:[ |
|
90 endTime := Timestamp now |
|
91 ]. |
|
92 |
|
93 "Modified: / 30-07-2011 / 10:09:20 / cg" |
|
94 ! |
87 ! |
95 |
88 |
96 setTestSelector:aSymbol setTestArguments: args |
89 setTestSelector:aSymbol setTestArguments: args |
97 testSelector := aSymbol. |
90 testSelector := aSymbol. |
98 testArguments := args |
91 testArguments := args |
99 ! ! |
92 ! ! |
100 |
93 |
101 !TestCaseWithArguments class methodsFor:'documentation'! |
94 !TestCaseWithArguments class methodsFor:'documentation'! |
102 |
95 |
103 version |
96 version |
104 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCaseWithArguments.st,v 1.7 2011-07-30 08:35:57 cg Exp $' |
97 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCaseWithArguments.st,v 1.8 2011-08-09 21:56:19 cg Exp $' |
105 ! |
98 ! |
106 |
99 |
107 version_CVS |
100 version_CVS |
108 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCaseWithArguments.st,v 1.7 2011-07-30 08:35:57 cg Exp $' |
101 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCaseWithArguments.st,v 1.8 2011-08-09 21:56:19 cg Exp $' |
109 ! |
102 ! |
110 |
103 |
111 version_SVN |
104 version_SVN |
112 ^ '§Id: TestCaseWithArguments.st 182 2009-12-05 18:12:17Z vranyj1 §' |
105 ^ '§Id: TestCaseWithArguments.st 182 2009-12-05 18:12:17Z vranyj1 §' |
113 ! ! |
106 ! ! |