Bert Freudenberg uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-bf.147.mcz
==================== Summary ====================
Name: Tests-bf.147 Author: bf Time: 24 February 2012, 4:30:27.227 pm UUID: aeaac33d-9796-44cd-909c-9b631f7dab4c Ancestors: Tests-nice.146
MCVersionNameTest: - more thorough testing of diffy version names - add testing of branch names
=============== Diff against Tests-nice.146 ===============
Item was changed: ----- Method: MCVersionNameTest>>allValidFixtures (in category 'as yet unclassified') ----- allValidFixtures + ^ self standardFixtures , (self diffyFixtures pairsCollect: [:diffy :base | diffy])! - ^ self standardFixtures , self diffyFixtures!
Item was added: + ----- Method: MCVersionNameTest>>diffyBranchFixtures (in category 'as yet unclassified') ----- + diffyBranchFixtures + ^ #( 'Package.branch-author.123(origAuthor.122)' 'Package.branch-origAuthor.122' + 'Package.branch-author.123(origAuthor.122).mcd' 'Package.branch-origAuthor.122.mcd' + 'Package.branch-author.123(122)' 'Package.branch-author.122' + 'Package.branch-author.123(@origPackage-origAuthor.122)' 'origPackage-origAuthor.122' + 'Package-author.123(@origPackage.branch-origAuthor.122)' 'origPackage.branch-origAuthor.122' + ) collect: + [ : each | each asMCVersionName ]!
Item was changed: ----- Method: MCVersionNameTest>>diffyFixtures (in category 'as yet unclassified') ----- diffyFixtures + ^ #( 'Package-author.123(origAuthor.122)' 'Package-origAuthor.122' + 'Package-author.123(origAuthor.122).mcd' 'Package-origAuthor.122.mcd' + 'Package-author.123(122)' 'Package-author.122' + 'Package-author.123(@origPackage-origAuthor.122)' 'origPackage-origAuthor.122' + ) collect: - ^ #('Package-author.123(origAuthor.122)' 'Package-author.123(origAuthor.122).mcd' ) collect: [ : each | each asMCVersionName ]!
Item was added: + ----- Method: MCVersionNameTest>>testBranches (in category 'tests') ----- + testBranches + | noBranch otherBranch withBranch | + noBranch := 'Package-author.123.mcz' asMCVersionName. + withBranch := 'Package.branch-author.123.mcz' asMCVersionName. + otherBranch := 'Package.other-author.123.mcz' asMCVersionName. + self + assert: 'Package' equals: noBranch packageName; + assert: 'Package' equals: withBranch packageName; + assert: 'Package-author.123' equals: noBranch versionName; + assert: 'Package.branch-author.123' equals: withBranch versionName; + assert: 'Package' equals: noBranch packageAndBranchName; + assert: 'Package.branch' equals: withBranch packageAndBranchName; + deny: noBranch = withBranch; + deny: withBranch = noBranch; + deny: withBranch = otherBranch. + + !
Item was changed: ----- Method: MCVersionNameTest>>testDiffyNames (in category 'tests') ----- testDiffyNames + self diffyFixtures, self diffyBranchFixtures pairsDo: [ :diffy :base | + self verifyDiffy: diffy base: base ]! - self diffyFixtures do: [ : each | self verifyAncestryAttributes: each ]!
Item was removed: - ----- Method: MCVersionNameTest>>verifyAncestryAttributes: (in category 'as yet unclassified') ----- - verifyAncestryAttributes: aMCFileName - self - assert: aMCFileName ancestorVersionNumber = 122 ; - assert: aMCFileName ancestorAuthor = 'origAuthor'!
Item was added: + ----- Method: MCVersionNameTest>>verifyDiffy:base: (in category 'as yet unclassified') ----- + verifyDiffy: diffyMCVersionName base: expectedBaseMCVersionName + self + assert: diffyMCVersionName baseVersionName = expectedBaseMCVersionName!
Item was changed: ----- Method: MCVersionNameTest>>verifyPackageAuthorVersion: (in category 'as yet unclassified') ----- verifyPackageAuthorVersion: aMCFileName self + assert: aMCFileName versionName = 'Package-author.123'; assert: aMCFileName packageName = 'Package' ; assert: aMCFileName versionNumber = 123 ; assert: aMCFileName author = 'author' ; assert: aMCFileName isValid!