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.!