Mercurial Mercurial > hg > stx-libtool / comparison
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 18700 9c0da553a10d
parent 16997 747bd6517167
child 19362 6be62dc84771
equal deleted inserted replaced
18699:5077492e68b4 18700:9c0da553a10d 
       
     1 "{ Encoding: utf8 }"
 
       
     2 
     1 "{ Package: 'stx:libtool' }"
 
     3 "{ Package: 'stx:libtool' }"
 
     2 
     4 
     3 "{ NameSpace: Tools }"
 
     5 "{ NameSpace: Tools }"
 
     4 
     6 
     5 TestRunnerMini subclass:#TestRunnerEmbedded
 
     7 TestRunnerMini subclass:#TestRunnerEmbedded
 
   178 
   180 
   179 update:aspect with:param from: sender
 
   181 update:aspect with:param from: sender
 
   180     "Invoked when an object that I depend upon sends a change notification."
 
   182     "Invoked when an object that I depend upon sends a change notification."
 
   181 
   183 
   182     sender == selectedMethodsHolder ifTrue:[
 
   184     sender == selectedMethodsHolder ifTrue:[
 
   183         self enqueueMessage:#updateTestCases for:self arguments:#().
 
   185         self enqueueMessage:#updateTestCases.
 
   184         self enqueueMessage:#updateSuiteAndResult for:self arguments:#().
 
   186         self enqueueMessage:#updateSuiteAndResult.
 
   185     ].
 
   187     ].
 
   186 
   188 
   187     sender == selectedClassesHolder ifTrue:[
 
   189     sender == selectedClassesHolder ifTrue:[
 
   188         self 
   190         self 
   189             invalidateTestCases;      "/ updateTestSuite;
 
   191             invalidateTestCases;      "/ updateTestSuite;
 
   190             invalidateSuiteAndResult; "/ updateTestSuiteAndResult;
 
   192             invalidateSuiteAndResult; "/ updateTestSuiteAndResult;
 
   191             updateVisibility.
 
   193             updateVisibility.
 
   192 
   194 
   193         self hasTestCaseSelected ifTrue:[
 
   195         self hasTestCaseSelected ifTrue:[
 
   194             self enqueueMessage:#updateTestCases for:self arguments:#().
 
   196             self enqueueMessage:#updateTestCases.
 
   195             self enqueueMessage:#updateSuiteAndResult for:self arguments:#().
 
   197             self enqueueMessage:#updateSuiteAndResult.
 
   196             "/ self enqueueDelayedAction:[ self updateTestCases; updateSuiteAndResult ].
 
   198             "/ self enqueueDelayedAction:[ self updateTestCases; updateSuiteAndResult ].
 
   197         ].
 
   199         ].
 
   198          ^ self.
 
   200          ^ self.
 
   199     ].
 
   201     ].
 
   200     self hasTestCaseSelected ifTrue:[
 
   202     self hasTestCaseSelected ifTrue:[
 
   201         (sender == selectedProtocolsHolder 
   203         (sender == selectedProtocolsHolder 
   202         or:[ sender == selectedMethodsHolder 
   204         or:[ sender == selectedMethodsHolder 
   203         or:[ sender == methodGeneratorHolder ]]) ifTrue:[
 
   205         or:[ sender == methodGeneratorHolder ]]) ifTrue:[
 
   204             self invalidateSuiteAndResult. 
   206             self invalidateSuiteAndResult. 
   205             self enqueueMessage:#updateSuiteAndResult for:self arguments:#().
 
   207             self enqueueMessage:#updateSuiteAndResult.
 
   206             ^self
 
   208             ^self
 
   207         ].
 
   209         ].
 
   208 
   210 
   209         sender == Smalltalk ifTrue:[
 
   211         sender == Smalltalk ifTrue:[
 
   210             aspect == #lastTestRunResult ifTrue:[
 
   212             aspect == #lastTestRunResult ifTrue:[
 
   211                 allTestCases notNil ifTrue:[
 
   213                 allTestCases notNil ifTrue:[
 
   212                     (allTestCases includesIdentical: param first) ifTrue:[
 
   214                     (allTestCases includesIdentical: param first) ifTrue:[
 
   213                         self invalidateSuiteAndResult. "/ updateTestSuiteAndResult.
 
   215                         self invalidateSuiteAndResult. "/ updateTestSuiteAndResult.
 
   214                         self enqueueMessage:#updateSuiteAndResult for:self arguments:#().
 
   216                         self enqueueMessage:#updateSuiteAndResult.
 
   215                         ^self        
   217                         ^self        
   216                     ]
 
   218                     ]
 
   217                 ].
 
   219                 ].
 
   218             ]        
   220             ]        
   219         ].
 
   221         ].
 
   221 
   223 
   222     super update:aspect with:param from: sender
 
   224     super update:aspect with:param from: sender
 
   223 
   225 
   224     "Modified: / 20-11-2011 / 12:40:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 
   226     "Modified: / 20-11-2011 / 12:40:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 
   225     "Modified: / 04-06-2012 / 19:03:34 / cg"
 
   227     "Modified: / 04-06-2012 / 19:03:34 / cg"
 
       
   228     "Modified: / 16-03-2019 / 14:18:30 / Claus Gittinger"
 
   226 !
 
   229 !
 
   227 
   230 
   228 updateTestCases
 
   231 updateTestCases
 
   229     |classes|
 
   232     |classes|
 
   230 
   233
hg/stx-libtool