equal
deleted
inserted
replaced
976 "Modified: / 02-08-2011 / 18:20:00 / cg" |
976 "Modified: / 02-08-2011 / 18:20:00 / cg" |
977 "Modified: / 20-08-2011 / 14:30:36 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
977 "Modified: / 20-08-2011 / 14:30:36 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
978 ! |
978 ! |
979 |
979 |
980 suiteForRun |
980 suiteForRun |
981 | methods protocols suite selectedClass | |
981 | methods testMethods protocols suite selectedClass | |
982 |
982 |
983 selectedClass := self theSingleTestCase. |
983 selectedClass := self theSingleTestCase. |
984 (methods := selectedMethodsHolder value) notEmptyOrNil ifTrue:[ |
984 (methods := selectedMethodsHolder value) notEmptyOrNil ifTrue:[ |
985 suite := TestSuite named: (self suiteNameFromMethods: methods). |
985 testMethods := self selectedTestMethods. |
986 self selectedTestMethods do:[:mthd| |
986 suite := TestSuite named: (self suiteNameFromMethods: testMethods). |
|
987 testMethods do:[:mthd| |
987 | class selector | |
988 | class selector | |
988 class := selectedClass ifNil:[mthd mclass]. |
989 class := selectedClass ifNil:[mthd mclass]. |
989 suite addTest: (class asTestCase selector: mthd selector) |
990 suite addTest: (class asTestCase selector: mthd selector) |
990 ]. |
991 ]. |
991 ^suite |
992 ^suite |
1002 ]. |
1003 ]. |
1003 |
1004 |
1004 ^self suiteForRunAll |
1005 ^self suiteForRunAll |
1005 |
1006 |
1006 "Created: / 15-03-2010 / 13:13:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1007 "Created: / 15-03-2010 / 13:13:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1007 "Modified: / 22-07-2011 / 15:48:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1008 "Modified: / 04-08-2011 / 19:06:42 / cg" |
1008 "Modified: / 04-08-2011 / 19:06:42 / cg" |
|
1009 "Modified: / 02-11-2012 / 11:17:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1009 ! |
1010 ! |
1010 |
1011 |
1011 suiteForRunAll |
1012 suiteForRunAll |
1012 |suite| |
1013 |suite| |
1013 suite := TestSuite named:(self suiteNameFromClasses: allTestCases). |
1014 suite := TestSuite named:(self suiteNameFromClasses: allTestCases). |
1158 ! ! |
1159 ! ! |
1159 |
1160 |
1160 !TestRunnerEmbedded class methodsFor:'documentation'! |
1161 !TestRunnerEmbedded class methodsFor:'documentation'! |
1161 |
1162 |
1162 version |
1163 version |
1163 ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.29 2012/07/18 08:56:46 vrany Exp $' |
1164 ^ '$Id: Tools__TestRunnerEmbedded.st 8068 2012-11-02 11:23:31Z vranyj1 $' |
1164 ! |
1165 ! |
1165 |
1166 |
1166 version_CVS |
1167 version_CVS |
1167 ^ '§Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.29 2012/07/18 08:56:46 vrany Exp §' |
1168 ^ '§Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.29 2012/07/18 08:56:46 vrany Exp §' |
1168 ! |
1169 ! |
1169 |
1170 |
1170 version_SVN |
1171 version_SVN |
1171 ^ '$Id: Tools__TestRunnerEmbedded.st 8018 2012-07-18 17:00:57Z vranyj1 $' |
1172 ^ '$Id: Tools__TestRunnerEmbedded.st 8068 2012-11-02 11:23:31Z vranyj1 $' |
1172 ! ! |
1173 ! ! |