Mercurial Mercurial > hg > stx-libtool / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tools__TestRunnerEmbedded.st
changeset 10454 8baf1e0c120e
parent 10432 6dc553f49d19
child 10563 f77d63752e6a 
--- a/Tools__TestRunnerEmbedded.st	Thu Aug 04 20:36:35 2011 +0200
+++ b/Tools__TestRunnerEmbedded.st	Thu Aug 04 20:42:16 2011 +0200
@@ -813,10 +813,11 @@
 
 hasTestCaseSelected
 
-    ^selectedTestCases isNilOrEmptyCollection not
+    ^selectedTestCases notEmptyOrNil
 
     "Created: / 11-03-2010 / 09:06:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 15-03-2010 / 20:54:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-08-2011 / 20:42:10 / cg"
 ! !
 
 !TestRunnerEmbedded methodsFor:'utilities'!
@@ -851,7 +852,7 @@
     | methods protocols suite selectedClass |
 
     selectedClass := self theSingleTestCase.
-    (methods := selectedMethodsHolder value) isNilOrEmptyCollection ifFalse:
+    (methods := selectedMethodsHolder value) isEmptyOrNil ifFalse:
         [suite := TestSuite named: (self suiteNameFromMethods: methods).
         self selectedTestMethods do:
             [:mthd| | class selector |
@@ -859,7 +860,7 @@
             suite addTest: (class asTestCase selector: mthd selector)].
         ^suite].
     
-    (protocols := selectedProtocolsHolder value) isNilOrEmptyCollection ifFalse:
+    (protocols := selectedProtocolsHolder value) isEmptyOrNil ifFalse:
         [suite := TestSuite named: (self suiteNameFromProtocols: protocols).
         (self selectedTestMethodsFromProtocols: protocols) do:
             [:mthd| | class selector |
@@ -871,6 +872,7 @@
 
     "Created: / 15-03-2010 / 13:13:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 22-07-2011 / 15:48:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-08-2011 / 19:06:42 / cg"
 !
 
 suiteForRunAll
@@ -987,11 +989,11 @@
 !TestRunnerEmbedded class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.12 2011-08-02 16:20:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.13 2011-08-04 18:42:16 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.12 2011-08-02 16:20:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.13 2011-08-04 18:42:16 cg Exp $'
 !
 
 version_SVN
hg/stx-libtool