The Trunk: Tests-ct.437.mcz

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