# HG changeset patch # User Claus Gittinger # Date 1499951446 -7200 # Node ID 422655e6555833b2fc3a6096fab8af947a9ab8be # Parent 821a58279bcd54b617adcfd04f5c5a07bf4ea60d #REFACTORING by cg class: TestSuite changed: #run:beforeEachDo:afterEachDo:resetResources:debug: (send #ensure: instead of #sunitEnsure:) diff -r 821a58279bcd -r 422655e65558 TestSuite.st --- a/TestSuite.st Thu Jul 13 15:10:19 2017 +0200 +++ b/TestSuite.st Thu Jul 13 15:10:46 2017 +0200 @@ -185,7 +185,7 @@ resetResources: false "I'll reset it, see the ensure below" debug:doDebug ] - ] sunitEnsure:[ + ] ensure:[ resetResources ifTrue:[ TestResource resetResources: self resources ]. @@ -196,6 +196,7 @@ "Modified: / 03-08-2011 / 14:11:47 / Jan Vrany " "Created: / 21-08-2011 / 17:56:00 / cg" + "Modified: / 13-07-2017 / 14:03:29 / cg" ! run:aResult beforeEachTestCaseDo:block1 afterEachTestCaseDo:block2 @@ -251,10 +252,10 @@ !TestSuite class methodsFor:'documentation'! version_CVS - ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSuite.st,v 1.35 2015-02-05 16:19:45 cg Exp $' + ^ '$Header$' ! version_SVN - ^ '$Id: TestSuite.st,v 1.35 2015-02-05 16:19:45 cg Exp $' + ^ '$Id$' ! !