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 ) ').!
packages@lists.squeakfoundation.org