fix in ProjectDefinition>>testSuite: always return a suite (even empty) jv
authorJan Vrany <jan.vrany@fit.cvut.cz>
Wed, 06 Apr 2011 13:25:19 +0100
branchjv
changeset 17833 1602a49e146e
parent 17832 54c3209a6264
child 17834 04ff72c5039a
fix in ProjectDefinition>>testSuite: always return a suite (even empty)
ProjectDefinition.st
--- a/ProjectDefinition.st	Fri Apr 01 14:19:34 2011 +0100
+++ b/ProjectDefinition.st	Wed Apr 06 13:25:19 2011 +0100
@@ -1032,7 +1032,6 @@
     classes := classes collect:[:each|each asTestCase].
     classes := classes asSortedCollection:[:a :b | a name <= b name ].
 
-    classes isEmpty ifTrue:[ ^ self ].
     classes do:[:each | suite addTests:each buildSuite tests ].
     ^suite
 
@@ -6109,7 +6108,7 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Id: ProjectDefinition.st 10628 2011-04-01 13:19:34Z vranyj1 $'
+    ^ '$Id: ProjectDefinition.st 10630 2011-04-06 12:25:19Z vranyj1 $'
 !
 
 version_CVS
@@ -6117,7 +6116,7 @@
 !
 
 version_SVN
-    ^ '$Id: ProjectDefinition.st 10628 2011-04-01 13:19:34Z vranyj1 $'
+    ^ '$Id: ProjectDefinition.st 10630 2011-04-06 12:25:19Z vranyj1 $'
 ! !
 
 ProjectDefinition initialize!