SUnit?
Markus Gaelli
gaelli at emergent.de
Fri Oct 28 13:19:54 UTC 2005
Hi,
nice.
Works for me (not the coverage though) -
after I extended Object with the following:
labelForSelector: aSymbol
|read words currentWord capitalizedWord|
words _ WriteStream on: String new.
read _ ReadStream on: aSymbol.
[read atEnd] whileFalse:
[currentWord _ WriteStream on: String new.
currentWord nextPut: read next.
[|x| x _ read peek. x isNil or: [x isUppercase]] whileFalse:
[currentWord nextPut: read next].
capitalizedWord _ currentWord contents capitalized.
(#(Of In At A Or To By) includes: capitalizedWord)
ifTrue: [capitalizedWord _ capitalizedWord
asLowercase].
words nextPutAll: capitalizedWord.
words nextPutAll: ' '].
words skip: -1.
^ words contents
Some class extension in seaside I suppose.
Or did I miss something?
Cheers,
Markus
Or was it moved recently to some
On Oct 28, 2005, at 3:04 PM, Lukas Renggli wrote:
>> It should run in Squeak 3.7 and later, with the Refactoring Browser
>> and the latest ToolBuilder loaded. There are certainly bugs. I built
>> that tool out of frustration of the existing tools that do not scale
>> to a large number of tests ...
>>
>
> Ohh, and a screen-shot is available at:
>
> http://mc.lukas-renggli.ch/essential/screenshot.png
>
> --
> Lukas Renggli
> http://www.lukas-renggli.ch
>
>
More information about the Squeak-dev
mailing list
|