A new version of Tests was added to project The Inbox:
http://source.squeak.org/inbox/Tests-wiz.75.mcz

==================== Summary ====================

Name: Tests-wiz.75
Author: wiz
Time: 3 May 2010, 12:31:52.365 am
UUID: 6cbc0cee-4ab0-4987-a435-82fa40d8eae1
Ancestors: Tests-laza.74


from the class comment:

A SoundSupportTests are quick tests that:
 
1) new string protocol String>>#asSound is present.
2) that #asSound method returns a playable object.

I have tried these tests. They will fail w/o the selector present and pass once it is loaded.

=============== Diff against Tests-laza.74 ===============

Item was added:
+ TestCase subclass: #SoundSupportTests
+ 	instanceVariableNames: ''
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'Tests-Sound'!
+ 
+ !SoundSupportTests commentStamp: 'wiz 5/3/2010 00:29' prior: 0!
+ A SoundSupportTests are quick tests that:
+  
+ 1) new string protocol String>>#asSound is present.
+ 2) that #asSound method returns a playable object.
+ 
+ !

Item was added:
+ ----- Method: SoundSupportTests>>testSoundAnswersAPlayable (in category 'as yet unclassified') -----
+ testSoundAnswersAPlayable
+ "Test that String>>#asSound returns a result that respondsTo: #play for all the names in SoundLIbrary and some names that aren't.
+ A strings sound reverts to Beeper's default if not found in library of sounds."
+ | rejects| 
+ 
+ rejects := 
+  #('scritch' 'peaks' 'clink' 'warble' 'croak' 'scratch' 'horn' 'silence' 'motor' 'splash' 'scrape' 'camera' 'coyote' 'laugh' 'meow' 'click' 'chomp' 'chirp'  'beep' 'somethingRandom' ) reject: [ :each |
+ 	each asSound respondsTo: #play ] .
+ 
+ self assert: rejects isEmpty
+ 
+  .
+ !

Item was changed:
  SystemOrganization addCategory: #'Tests-Exceptions'!
  SystemOrganization addCategory: #'Tests-Files'!
  SystemOrganization addCategory: #'Tests-Compiler'!
  SystemOrganization addCategory: #'Tests-Digital Signatures'!
  SystemOrganization addCategory: #'Tests-Object Events'!
  SystemOrganization addCategory: #'Tests-System-Support'!
  SystemOrganization addCategory: #'Tests-Bugs'!
  SystemOrganization addCategory: #'Tests-ObjectsAsMethods'!
  SystemOrganization addCategory: #'Tests-PrimCallController'!
  SystemOrganization addCategory: #'Tests-Release'!
  SystemOrganization addCategory: #'Tests-Utilities'!
  SystemOrganization addCategory: #'Tests-VM'!
  SystemOrganization addCategory: #'Tests-Hex'!
  SystemOrganization addCategory: #'Tests-Monticello'!
  SystemOrganization addCategory: #'Tests-Localization'!
  SystemOrganization addCategory: #'Tests-FilePackage'!
  SystemOrganization addCategory: #'Tests-Finalization'!
  SystemOrganization addCategory: #'Tests-Monticello-Mocks'!
  SystemOrganization addCategory: #'Tests-Dependencies'!
+ SystemOrganization addCategory: #'Tests-Sound'!

Item was added:
+ ----- Method: SoundSupportTests>>testSoundExists (in category 'as yet unclassified') -----
+ testSoundExists
+ "Test that String>>#sound exists and can run"
+ 
+ self shouldnt: [ 'click' asSound ] raise: Error .
+ !