<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="Generator" content="Microsoft Exchange Server">
<!-- converted from text --><style><!-- .EmailQuote { margin-left: 1pt; padding-left: 4pt; border-left: #800000 2px solid; } --></style>
</head>
<body>
<meta content="text/html; charset=UTF-8">
<style type="text/css" style="">
<!--
p
{margin-top:0;
margin-bottom:0}
-->
</style>
<div dir="ltr">
<div id="x_divtagdefaultwrapper" dir="ltr" style="font-size:12pt; color:#000000; font-family:Calibri,Helvetica,sans-serif">
<p>Nice idea, even though you forget to have the message #translated :-)</p>
<p><br>
</p>
<p>What is the reason to use ClassBuilder instead of #<span style="font-size:12pt">subclass:</span><span style="font-size:12pt">instanceVariableNames:</span><span style="font-size:12pt">classVariableNames:</span><span style="font-size:12pt">poolDictionaries:</span><span style="font-size:12pt">category:?</span></p>
<p><span style="font-size:12pt"><br>
</span></p>
<p><span style="font-size:12pt">Best,</span></p>
<p><span style="font-size:12pt">Christoph</span></p>
<div id="x_Signature">
<div id="x_divtagdefaultwrapper" dir="ltr" style="font-size:12pt; color:rgb(0,0,0); font-family:Calibri,Helvetica,sans-serif,EmojiFont,"Apple Color Emoji","Segoe UI Emoji",NotoColorEmoji,"Segoe UI Symbol","Android Emoji",EmojiSymbols">
<div name="x_divtagdefaultwrapper" style="font-family:Calibri,Arial,Helvetica,sans-serif; font-size:; margin:0">
<div><font size="2" color="#808080"></font></div>
</div>
</div>
</div>
</div>
<hr tabindex="-1" style="display:inline-block; width:98%">
<div id="x_divRplyFwdMsg" dir="ltr"><font face="Calibri, sans-serif" color="#000000" style="font-size:11pt"><b>Von:</b> Squeak-dev <squeak-dev-bounces@lists.squeakfoundation.org> im Auftrag von commits@source.squeak.org <commits@source.squeak.org><br>
<b>Gesendet:</b> Donnerstag, 5. März 2020 21:53:02<br>
<b>An:</b> squeak-dev@lists.squeakfoundation.org<br>
<b>Betreff:</b> [squeak-dev] The Inbox: SUnitTools-jr.5.mcz</font>
<div> </div>
</div>
</div>
<font size="2"><span style="font-size:10pt;">
<div class="PlainText">A new version of SUnitTools was added to project The Inbox:<br>
<a href="http://source.squeak.org/inbox/SUnitTools-jr.5.mcz">http://source.squeak.org/inbox/SUnitTools-jr.5.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: SUnitTools-jr.5<br>
Author: jr<br>
Time: 5 March 2020, 9:53:04.92876 pm<br>
UUID: 612a0a0e-43fa-de40-8370-f5e90d767232<br>
Ancestors: SUnitTools-tcj.4<br>
<br>
Allow to create a new test class immediately if none is found.<br>
<br>
=============== Diff against SUnitTools-tcj.4 ===============<br>
<br>
Item was added:<br>
+ ----- Method: CodeHolder>>testAskToCreateNewTest: (in category '*SUnitTools-running') -----<br>
+ testAskToCreateNewTest: className<br>
+ (self confirm: 'Test class not found. Create one?') ifFalse: [^ false].<br>
+ (ClassBuilder new)<br>
+ name: className asSymbol<br>
+ inEnvironment: self selectedClass environment<br>
+ subclassOf: TestCase<br>
+ type: #normal<br>
+ instanceVariableNames: ''<br>
+ classVariableNames: ''<br>
+ poolDictionaries: ''<br>
+ category:<br>
+ ((self selectedClass category includes: $-)<br>
+ ifTrue: [((self selectedClass category copyUpToLast: $-), '-Tests')]<br>
+ ifFalse: [(self selectedClass category, 'Tests')]) asSymbol.<br>
+ ^ true!<br>
<br>
Item was changed:<br>
----- Method: CodeHolder>>testBrowseClassNamed:possibleMessageNamed: (in category '*SUnitTools-running') -----<br>
testBrowseClassNamed: aClassName possibleMessageNamed: aMessageName<br>
<br>
| cls selector |<br>
+ (self class environment hasClassNamed: aClassName) ifFalse:<br>
+ [(self testAskToCreateNewTest: aClassName) ifFalse: [^ self]].<br>
- (self class environment hasClassNamed: aClassName) ifFalse: ["no dice" ^ self].<br>
cls := self class environment classNamed: aClassName.<br>
<br>
(aMessageName notNil and: [cls includesLocalSelector: (selector := aMessageName asSymbol)])<br>
ifTrue: [ToolSet browse: cls selector: selector]<br>
ifFalse: [ToolSet browseClass: cls].!<br>
<br>
<br>
</div>
</span></font>
</body>
</html>