The Trunk: Tests-bf.147.mcz

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!