[Pkg] The Trunk: Tests-ul.123.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Mar 28 18:28:29 UTC 2011


Levente Uzonyi uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-ul.123.mcz

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

Name: Tests-ul.123
Author: ul
Time: 28 March 2011, 8:28:08.857 pm
UUID: f8632027-df56-7a4e-8b63-6d067b3f371e
Ancestors: Tests-ul.122

- added a test to MCVersionNameTest to check if MCVersionName >> #versionName always returns a ByteString
- recategorized some test methods in MCVersionNameTest

=============== Diff against Tests-ul.122 ===============

Item was changed:
+ ----- Method: MCVersionNameTest>>testAttributeAccess (in category 'tests') -----
- ----- Method: MCVersionNameTest>>testAttributeAccess (in category 'as yet unclassified') -----
  testAttributeAccess
  	self allValidFixtures do: [ : each | self verifyPackageAuthorVersion: each ]!

Item was changed:
+ ----- Method: MCVersionNameTest>>testDiffyNames (in category 'tests') -----
- ----- Method: MCVersionNameTest>>testDiffyNames (in category 'as yet unclassified') -----
  testDiffyNames
  	self diffyFixtures do: [ : each | self verifyAncestryAttributes: each ]!

Item was changed:
+ ----- Method: MCVersionNameTest>>testEquality (in category 'tests') -----
- ----- 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 changed:
+ ----- Method: MCVersionNameTest>>testInvalid (in category 'tests') -----
- ----- Method: MCVersionNameTest>>testInvalid (in category 'as yet unclassified') -----
  testInvalid
  	self assert: (self invalidFixtures noneSatisfy: [ : each | each isValid ])!

Item was added:
+ ----- Method: MCVersionNameTest>>testSpecies (in category 'tests') -----
+ testSpecies
+ 
+ 	self
+ 		assert: ByteString equals: 'Package-author.123.mcz' asMCVersionName versionName class;
+ 		assert: ByteString equals: 'Package-author.123' asMCVersionName versionName class!

Item was added:
+ ----- Method: MCVersionNameTest>>testVersionNameReturnsAByteString (in category 'tests') -----
+ testVersionNameReturnsAByteString
+ 
+ 	#(
+ 		'Package-author.123.mcz'
+ 		'Package-author.123'
+ 		'Package-author.123(122).mcd'
+ 		'Package-author.123(author2.122).mcd') do: [ :each |
+ 			self assert: ByteString equals: each asMCVersionName versionName class ]!



More information about the Packages mailing list