Sven Van Caekenberghe wrote:

self assert: (file species isKindOf: FileStream)

But that is a weird test. What is the point ?

You have to test behaviour, like write a file and see if it was written. Testing types is very seldom done, because this is an implementation detail.

Thanks Sheri and Sven. I learnt a new aspect of design philosophy today. Thats one thing I like about contributing to open source - the opportunity for learning, especially from the questions that other people ask. cheers -ben

...

On 04 Dec 2014, at 01:32, sheridan@sheridan-mahoney.com wrote:

Hi there,

I have a failing test and was wondering if anyone would have a sense as to why:

| testString filename file | testString := 'ascii String'. filename := 'test-file-' , 99 atRandom printString , '.txt'. filename asFileReference ensureDelete. file := filename asFileReference writeStreamDo: [ :stream | stream nextPutAll: testString; crlf ]. self assert: file species = FileStream.

Many thanks,

Sheri

Step into #writeStreamDo: ...