[squeak-dev] The Inbox: Tests-cmm.117.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Mar 8 21:28:19 UTC 2011
A new version of Tests was added to project The Inbox:
http://source.squeak.org/inbox/Tests-cmm.117.mcz
==================== Summary ====================
Name: Tests-cmm.117
Author: cmm
Time: 4 March 2011, 4:47:58.236 pm
UUID: fb24c430-6eae-48da-ba41-ac137356149d
Ancestors: Tests-cmm.116
- Updated tests for new MCVersionName.
=============== Diff against Tests-nice.115 ===============
Item was changed:
----- Method: MCMczInstallerTest>>fileName (in category 'as yet unclassified') -----
fileName
+ ^ 'InstallerTest.mcz' asMCVersionName!
- ^ 'InstallerTest.mcz'!
Item was added:
+ MCTestCase subclass: #MCVersionNameTest
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Tests-Monticello'!
Item was added:
+ ----- Method: MCVersionNameTest>>allValidFixtures (in category 'as yet unclassified') -----
+ allValidFixtures
+ ^ self standardFixtures , self diffyFixtures!
Item was added:
+ ----- Method: MCVersionNameTest>>diffyFixtures (in category 'as yet unclassified') -----
+ diffyFixtures
+ ^ #('Package-author.123(origAuthor.122)' 'Package-author.123(origAuthor.122).mcd' ) collect:
+ [ : each | each asMCVersionName ]!
Item was added:
+ ----- Method: MCVersionNameTest>>invalidFixtures (in category 'as yet unclassified') -----
+ invalidFixtures
+ ^ {String empty. 'abc'. '123' } collect: [ : each | each asMCVersionName ]!
Item was added:
+ ----- Method: MCVersionNameTest>>standardFixtures (in category 'as yet unclassified') -----
+ standardFixtures
+ ^ #('Package-author.123' 'Package-author.123.mcz' ) collect:
+ [ : each | each asMCVersionName ]!
Item was added:
+ ----- Method: MCVersionNameTest>>testAttributeAccess (in category 'as yet unclassified') -----
+ testAttributeAccess
+ self allValidFixtures do: [ : each | self verifyPackageAuthorVersion: each ]!
Item was added:
+ ----- Method: MCVersionNameTest>>testDiffyNames (in category 'as yet unclassified') -----
+ testDiffyNames
+ self diffyFixtures do: [ : each | self verifyAncestryAttributes: each ]!
Item was added:
+ ----- Method: MCVersionNameTest>>testEquality (in category 'as yet unclassified') -----
+ testEquality
+ | standard mc |
+ standard := 'Package-author.123.mcz'.
+ mc := standard asMCVersionName.
+ self
+ assert: standard = mc ;
+ assert: mc = standard.
+ self assert: self allValidFixtures asSet size = 1!
Item was added:
+ ----- Method: MCVersionNameTest>>testInvalid (in category 'as yet unclassified') -----
+ testInvalid
+ self assert: (self invalidFixtures noneSatisfy: [ : each | each isValid ])!
Item was added:
+ ----- Method: MCVersionNameTest>>verifyAncestryAttributes: (in category 'as yet unclassified') -----
+ verifyAncestryAttributes: aMCFileName
+ self
+ assert: aMCFileName ancestorVersionNumber = 122 ;
+ assert: aMCFileName ancestorAuthor = 'origAuthor'!
Item was added:
+ ----- Method: MCVersionNameTest>>verifyPackageAuthorVersion: (in category 'as yet unclassified') -----
+ verifyPackageAuthorVersion: aMCFileName
+ self
+ assert: aMCFileName packageName = 'Package' ;
+ assert: aMCFileName versionNumber = 123 ;
+ assert: aMCFileName author = 'author' ;
+ assert: aMCFileName isValid!
More information about the Squeak-dev
mailing list
|