Marcel Taeumel uploaded a new version of Tests to project Squeak 6.0: http://source.squeak.org/squeak60/Tests-mt.495.mcz
==================== Summary ====================
Name: Tests-mt.495 Author: mt Time: 1 December 2023, 11:12:35.678953 am UUID: 5c7c1ce8-aae7-4131-a6a4-05f2e338c3e0 Ancestors: Tests-mt.494
Revise previous fix with the solution used in Trunk.
=============== Diff against Tests-mt.494 ===============
Item was removed: - ----- Method: SoundTest>>fileName (in category 'support') ----- - fileName - - ^ 'tempPluck.wav'!
Item was removed: - ----- Method: SoundTest>>setUp (in category 'running') ----- - setUp - - super setUp. - self deny: [FileDirectory default fileExists: self fileName].!
Item was removed: - ----- Method: SoundTest>>tearDown (in category 'running') ----- - tearDown - - FileDirectory default - deleteFileNamed: self fileName - ifAbsent: [Transcript showln: 'File not found!! Did the test run correctly?']. - super tearDown.!
Item was changed: ----- Method: SoundTest>>testStoreSamples (in category 'tests') ----- testStoreSamples
| sound fileName arrayBytes fileBytes | sound := PluckedSound default. + fileName := 'tempPluck.wav'. + - fileName := self fileName. - "Write to file" fileBytes := [ sound storeWAVOnFileNamed: fileName. FileStream oldFileNamed: fileName do: [:stream | stream binary contents]] ensure: [ + FileDirectory default deleteFileNamed: fileName]. - FileDirectory deleteFilePath: fileName]. "Write to array" arrayBytes := ByteArray streamContents: [:stream | sound storeWAVSamplesOn: stream]. "Compare" self assert: fileBytes equals: arrayBytes.!