The Trunk: Tests-fbs.187.mcz

Frank Shearar uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-fbs.187.mcz

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

Name: Tests-fbs.187
Author: fbs
Time: 28 January 2013, 7:25:54.202 pm
UUID: 17ca84cc-c8eb-4313-812f-a59569f36f6b
Ancestors: Tests-fbs.186

Mantis #7726: tests for Installer >> #packageAndVersionFrom:

=============== Diff against Tests-fbs.186 ===============

Item was changed:
+ SystemOrganization addCategory: #'Tests-Installer-Core'!
  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-Dependencies'!
  SystemOrganization addCategory: #'Tests-Monticello-Mocks'!
  SystemOrganization addCategory: #'Tests-Environments'!
  SystemOrganization addCategory: #'Tests-Monticello-Utils'!
  SystemOrganization addCategory: #'Tests-System-Object Storage'!

Item was added:
+ TestCase subclass: #InstallerTest
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Tests-Installer-Core'!

Item was added:
+ ----- Method: InstallerTest>>testPackageAndVersionNameShouldSanitiseInput (in category 'as yet unclassified') -----
+ testPackageAndVersionNameShouldSanitiseInput
+ | installer |
+ installer := Installer new.
+ self assert: {'Foo'. ''} equals: (installer packageAndVersionFrom: 'Foo').
+ self assert: {'Foo'. '1'} equals: (installer packageAndVersionFrom: 'Foo(1)').
+ self assert: {'Foo'. 'head'} equals: (installer packageAndVersionFrom: ' Foo ( head ) ').!