[squeak-dev] The Trunk: Tests-tpr.496.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Jan 3 00:40:12 UTC 2023
tim Rowledge uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-tpr.496.mcz
==================== Summary ====================
Name: Tests-tpr.496
Author: tpr
Time: 2 January 2023, 4:40:09.512233 pm
UUID: 96704432-617d-473f-80fd-356b81e93542
Ancestors: Tests-ct.495
Make the SoundTest>>#testStoreSamples correctly delete the file post-test
=============== Diff against Tests-ct.495 ===============
Item was changed:
----- Method: SoundTest>>testStoreSamples (in category 'tests') -----
testStoreSamples
| sound fileName arrayBytes fileBytes |
sound := PluckedSound default.
fileName := 'tempPluck.wav'.
"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.!
More information about the Squeak-dev
mailing list
|