[Pharo-dev] failing test in writing files

[sheridan]

 

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