The Inbox: Tests-fbs.159.mcz

Frank Shearar uploaded a new version of Tests to project The Inbox:
http://source.squeak.org/inbox/Tests-fbs.159.mcz

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

Name: Tests-fbs.159
Author: fbs
Time: 17 August 2012, 10:24:45.024 am
UUID: 426c78f9-94a0-49ef-ae6f-a4e51724f738
Ancestors: Tests-eem.158

Utility method for accessing the branch name of a version.

=============== Diff against Tests-eem.158 ===============

Item was changed:
  ----- 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;
+ assert: 'branch' equals: withBranch branchName;
+ assert: '' equals: noBranch branchName;
+ assert: 'other' equals: otherBranch branchName;
  deny: noBranch = withBranch;
  deny: withBranch = noBranch;
+ deny: withBranch = otherBranch.!
- deny: withBranch = otherBranch.
-
- !