David T. Lewis uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ct.437.mcz
==================== Summary ====================
Name: Tests-ct.437 Author: ct Time: 1 September 2020, 2:10:41.85599 am UUID: 88d1330f-334b-a14a-96ca-8ea4a6ab1b52 Ancestors: Tests-pre.436
Adds regression test for bugfix in Sound-ct.71.
Should this go into the Tests-Sound or the SoundTests package (both not yet existing)? :-)
=============== Diff against Tests-pre.436 ===============
Item was changed: SystemOrganization addCategory: #'Tests-Bugs'! SystemOrganization addCategory: #'Tests-Compiler'! SystemOrganization addCategory: #'Tests-Dependencies'! SystemOrganization addCategory: #'Tests-Digital Signatures'! SystemOrganization addCategory: #'Tests-Environments'! SystemOrganization addCategory: #'Tests-Exceptions'! SystemOrganization addCategory: #'Tests-FilePackage'! SystemOrganization addCategory: #'Tests-Files'! SystemOrganization addCategory: #'Tests-Finalization'! SystemOrganization addCategory: #'Tests-Hex'! SystemOrganization addCategory: #'Tests-Installer-Core'! SystemOrganization addCategory: #'Tests-Localization'! SystemOrganization addCategory: #'Tests-Monticello'! SystemOrganization addCategory: #'Tests-Monticello-Mocks'! SystemOrganization addCategory: #'Tests-Monticello-Utils'! SystemOrganization addCategory: #'Tests-Object Events'! SystemOrganization addCategory: #'Tests-ObjectsAsMethods'! SystemOrganization addCategory: #'Tests-PrimCallController'! SystemOrganization addCategory: #'Tests-Release'! SystemOrganization addCategory: #'Tests-System-Applications'! SystemOrganization addCategory: #'Tests-System-Digital Signatures'! SystemOrganization addCategory: #'Tests-System-Object Storage'! SystemOrganization addCategory: #'Tests-System-Preferences'! SystemOrganization addCategory: #'Tests-System-Support'! SystemOrganization addCategory: #'Tests-Utilities'! SystemOrganization addCategory: #'Tests-VM'! SystemOrganization addCategory: #'Tests-MonticelloMocks'! + SystemOrganization addCategory: #'Tests-Sound'!
Item was added: + TestCase subclass: #SoundTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Tests-Sound'!
Item was added: + ----- 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 deleteFilePath: fileName]. + + "Write to array" + arrayBytes := ByteArray streamContents: [:stream | + sound storeWAVSamplesOn: stream]. + + "Compare" + self assert: fileBytes equals: arrayBytes.!