[Pkg] The Trunk: Tests-ar.52.mcz

[commits at source.squeak.org]

Andreas Raab uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-ar.52.mcz

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

Name: Tests-ar.52
Author: ar
Time: 1 March 2010, 9:29:11.526 pm
UUID: 77ddf070-5524-c44a-8e27-5bdd164fb043
Ancestors: Tests-ul.51

Add PackageDependencyTest to document and track package dependencies.

=============== Diff against Tests-ul.51 ===============

Item was added:
+ ----- Method: PackageDependencyTest>>testToolBuilderSUnit (in category 'tests') -----
+ testToolBuilderSUnit
+ 	self testPackage: 'ToolBuilder-SUnit' dependsOnlyOn: #(
+ 		Collections
+ 		Kernel
+ 		ToolBuilder
+ 		'ToolBuilder-Kernel'
+ 	).!

Item was added:
+ ----- Method: PackageDependencyTest>>testCompression (in category 'tests') -----
+ testCompression
+ 	self testPackage: 'Compression' dependsOnlyOn: #(
+ 		Collections
+ 		Exceptions
+ 		Files
+ 		Graphics
+ 		Kernel
+ 		Multilingual
+ 		SUnit
+ 		System
+ 		'ToolBuilder-Kernel'
+ 		Tools
+ 	).!

Item was added:
+ ----- Method: PackageDependencyTest>>testSystem (in category 'tests') -----
+ testSystem
+ 	self testPackage: 'System' dependsOnlyOn: #(
+ 		Collections
+ 		Balloon
+ 		Compiler
+ 		Compression
+ 		Exceptions
+ 		Files
+ 		Graphics
+ 		Kernel
+ 		Monticello
+ 		MonticelloConfigurations
+ 		Morphic
+ 		MorphicExtras
+ 		Multilingual
+ 		Network
+ 		PackageInfo
+ 		Sound
+ 		'ToolBuilder-Kernel'
+ 		Tools
+ 		TrueType
+ 	).!

Item was added:
+ ----- Method: PackageDependencyTest>>testMonticello (in category 'tests') -----
+ testMonticello
+ 	self testPackage: 'Monticello' dependsOnlyOn: #(
+ 		Collections
+ 		Compiler
+ 		Compression
+ 		Exceptions
+ 		Files
+ 		Graphics
+ 		Kernel
+ 		Morphic
+ 		Network
+ 		PackageInfo
+ 		System
+ 		Tests
+ 		'ToolBuilder-Kernel'
+ 		'ToolBuilder-Morphic'
+ 		Tools
+ 	).!

Item was added:
+ ----- Method: PackageDependencyTest>>testToolBuilder (in category 'tests') -----
+ testToolBuilder
+ 	self testPackage: 'ToolBuilder-Kernel' dependsOnlyOn: #(
+ 		Collections
+ 		Files
+ 		Graphics
+ 		Kernel
+ 		SUnit
+ 	).!

Item was added:
+ ----- Method: PackageDependencyTest>>testBalloon (in category 'tests') -----
+ testBalloon
+ 	self testPackage: 'Balloon' dependsOnlyOn: #(
+ 		Kernel Collections Graphics Morphic System
+ 	).!

Item was added:
+ ----- Method: PackageDependencyTest>>testMorphicExtras (in category 'tests') -----
+ testMorphicExtras
+ 	self testPackage: 'MorphicExtras' dependsOnlyOn: #(
+ 		Balloon
+ 		Collections
+ 		Compiler
+ 		Exceptions
+ 		Files
+ 		Graphics
+ 		Kernel
+ 		Morphic
+ 		Network
+ 		Sound
+ 		System
+ 		'ToolBuilder-Kernel'
+ 		Tools
+ 	).!

Item was added:
+ ----- Method: PackageDependencyTest>>testCollections (in category 'tests') -----
+ testCollections
+ 	self testPackage: 'Collections' dependsOnlyOn: #(
+ 		Balloon
+ 		Compiler
+ 		Kernel
+ 		Compression
+ 		Exceptions
+ 		Files
+ 		Graphics
+ 		Morphic
+ 		MorphicExtras
+ 		Multilingual
+ 		Network
+ 		System
+ 		'ToolBuilder-Kernel'
+ 	).!

Item was added:
+ ----- Method: PackageDependencyTest>>testServices (in category 'tests') -----
+ testServices
+ 	self testPackage: 'Services-Base' dependsOnlyOn: #(
+ 		Collections
+ 		Compiler
+ 		Exceptions
+ 		Graphics
+ 		Kernel
+ 		Morphic
+ 		PackageInfo
+ 		PreferenceBrowser
+ 		System
+ 		'ToolBuilder-Kernel'
+ 		Tools
+ 	).!

Item was added:
+ ----- Method: PackageDependencyTest>>testToolBuilderMorphic (in category 'tests') -----
+ testToolBuilderMorphic
+ 	self testPackage: 'ToolBuilder-Morphic' dependsOnlyOn: #(
+ 		Collections
+ 		Exceptions
+ 		Graphics
+ 		Kernel
+ 		Morphic
+ 		System
+ 		'ToolBuilder-Kernel'
+ 		Tools
+ 	).!

Item was added:
+ TestCase subclass: #PackageDependencyTest
+ 	instanceVariableNames: ''
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'Tests-Dependencies'!

Item was added:
+ ----- Method: PackageDependencyTest>>testTrueType (in category 'tests') -----
+ testTrueType
+ 	self testPackage: 'TrueType' dependsOnlyOn: #(
+ 		Collections
+ 		Balloon
+ 		Exceptions
+ 		Files
+ 		Graphics
+ 		Kernel
+ 		Morphic
+ 		Multilingual
+ 		System
+ 		'ToolBuilder-Kernel'
+ 		Tools
+ 	).!

Item was changed:
  SystemOrganization addCategory: #'Tests-Exceptions'!
  SystemOrganization addCategory: #'Tests-Files'!
  SystemOrganization addCategory: #'Tests-Compiler'!
  SystemOrganization addCategory: #'Tests-Digital Signatures'!
  SystemOrganization addCategory: #'Tests-Object Events'!
  SystemOrganization addCategory: #'Tests-System-Support'!
  SystemOrganization addCategory: #'Tests-Bugs'!
  SystemOrganization addCategory: #'Tests-ObjectsAsMethods'!
  SystemOrganization addCategory: #'Tests-PrimCallController'!
  SystemOrganization addCategory: #'Tests-Release'!
  SystemOrganization addCategory: #'Tests-Utilities'!
  SystemOrganization addCategory: #'Tests-VM'!
  SystemOrganization addCategory: #'Tests-Hex'!
  SystemOrganization addCategory: #'Tests-Monticello'!
  SystemOrganization addCategory: #'Tests-Localization'!
  SystemOrganization addCategory: #'Tests-FilePackage'!
  SystemOrganization addCategory: #'Tests-Finalization'!
  SystemOrganization addCategory: #'Tests-Monticello-Mocks'!
+ SystemOrganization addCategory: #'Tests-Dependencies'!

Item was added:
+ ----- Method: PackageDependencyTest>>testMultilingual (in category 'tests') -----
+ testMultilingual
+ 	self testPackage: 'Multilingual' dependsOnlyOn: #(
+ 		Collections
+ 		Compiler
+ 		Compression
+ 		Exceptions
+ 		Files
+ 		Graphics
+ 		Kernel
+ 		Morphic
+ 		Network
+ 		System
+ 		'ToolBuilder-Kernel'
+ 		Tools
+ 		TrueType
+ 	).!

Item was added:
+ ----- Method: PackageDependencyTest>>testEtoys (in category 'tests') -----
+ testEtoys
+ 	self testPackage: 'EToys' dependsOnlyOn: #(
+ 		Balloon
+ 		Collections
+ 		Compiler
+ 		Exceptions
+ 		Files
+ 		Graphics
+ 		Kernel
+ 		Morphic
+ 		MorphicExtras
+ 		Network
+ 		Protocols
+ 		System
+ 		'ToolBuilder-Kernel'
+ 		Tools
+ 	).!

Item was added:
+ ----- Method: PackageDependencyTest>>testSound (in category 'tests') -----
+ testSound
+ 	self testPackage: 'Sound' dependsOnlyOn: #(
+ 		Collections
+ 		Balloon
+ 		EToys
+ 		Files
+ 		Graphics
+ 		Kernel
+ 		Morphic
+ 		MorphicExtras
+ 		Network
+ 		System
+ 		'ToolBuilder-Kernel'
+ 		Tools
+ 	).!

Item was added:
+ ----- Method: PackageDependencyTest>>testShoutCore (in category 'tests') -----
+ testShoutCore
+ 	self testPackage: 'ShoutCore' dependsOnlyOn: #(
+ 		Collections
+ 		Graphics
+ 		Kernel
+ 		Monticello
+ 		System
+ 	).!

Item was added:
+ ----- Method: PackageDependencyTest>>testSUnit (in category 'tests') -----
+ testSUnit
+ 	self testPackage: 'SUnit' dependsOnlyOn: #(
+ 		Collections
+ 		Exceptions
+ 		Kernel
+ 		System
+ 	).!

Item was added:
+ ----- Method: PackageDependencyTest>>testToolBuilderMVC (in category 'tests') -----
+ testToolBuilderMVC
+ 	self testPackage: 'ToolBuilder-MVC' dependsOnlyOn: #(
+ 		Collections
+ 		Exceptions
+ 		Graphics
+ 		ST80
+ 		ToolBuilder
+ 		'ToolBuilder-Kernel'
+ 		Tools
+ 	).!

Item was added:
+ ----- Method: PackageDependencyTest>>testNetwork (in category 'tests') -----
+ testNetwork
+ 	self testPackage: 'Network' dependsOnlyOn: #(
+ 		Collections
+ 		Compiler
+ 		Compression
+ 		Exceptions
+ 		Files
+ 		Graphics
+ 		Kernel
+ 		Morphic
+ 		Multilingual
+ 		System
+ 		'ToolBuilder-Kernel'
+ 		Tools
+ 	).!

Item was added:
+ ----- Method: PackageDependencyTest>>testPackage:dependsOnlyOn: (in category 'tests') -----
+ testPackage: pkgName dependsOnlyOn: pkgList
+ 	"Ensure that the package with the given name depends only on the packages in pkgList"
+ 	| classes pi deps |
+ 	classes := IdentitySet new.
+ 	pi := PackageOrganizer default packageNamed: pkgName ifAbsent:[^self]. "unloaded"
+ 	pi classes do:[:pkgClass| classes add: (pkgClass superclass ifNil:[ProtoObject])].
+ 	pi methods do:[:mref| | cm |
+ 		cm := mref compiledMethod.
+ 		1 to: cm numLiterals do:[:i| | lit |
+ 			((lit := cm literalAt: i) isVariableBinding 
+ 				and:[lit value isBehavior]) ifTrue:[classes add: lit value]]].
+ 	deps := Dictionary new.
+ 	classes do:[:aClass| | pkg |
+ 		pkg := PackageOrganizer default packageOfClass: aClass ifNone:[nil].
+ 		pkg ifNil:[
+ 			Transcript cr; show: 'WARNING: No package for ', pkg.
+ 		] ifNotNil:[
+ 			(deps at: pkg name ifAbsentPut:[OrderedCollection new]) add: aClass.
+ 		].
+ 	].
+ 	deps removeKey: pkgName ifAbsent:[].
+ 	pkgList do:[:pkg|
+ 		self assert: (deps includesKey: pkg).
+ 		deps removeKey: pkg.
+ 	].
+ 	self assert: deps isEmpty.!

Item was added:
+ ----- Method: PackageDependencyTest>>testPackageInfo (in category 'tests') -----
+ testPackageInfo
+ 	self testPackage: 'PackageInfo' dependsOnlyOn: #(
+ 		Collections
+ 		Compiler
+ 		Graphics
+ 		Kernel
+ 		Morphic
+ 		System
+ 		'ToolBuilder-Kernel'
+ 	).!

Item was added:
+ ----- Method: PackageDependencyTest>>testMorphic (in category 'tests') -----
+ testMorphic
+ 	self testPackage: 'Morphic' dependsOnlyOn: #(
+ 		Balloon
+ 		Collections
+ 		Compiler
+ 		EToys
+ 		Exceptions
+ 		Files
+ 		Graphics
+ 		Kernel
+ 		Monticello
+ 		MonticelloConfigurations
+ 		'Morphic-TrueType'			"????"
+ 		MorphicExtras
+ 		Multilingual
+ 		Network
+ 		PreferenceBrowser
+ 		Protocols
+ 		ST80
+ 		Sound
+ 		System
+ 		'ToolBuilder-Kernel'
+ 		'ToolBuilder-Morphic'
+ 		Tools
+ 		TrueType
+ 	).!

Item was added:
+ ----- Method: PackageDependencyTest>>testVersionNumber (in category 'tests') -----
+ testVersionNumber
+ 	self testPackage: 'VersionNumber' dependsOnlyOn: #(
+ 		Collections
+ 		Kernel
+ 	).!

Item was added:
+ ----- Method: PackageDependencyTest>>testFiles (in category 'tests') -----
+ testFiles
+ 	self testPackage: 'Files' dependsOnlyOn: #(
+ 		Collections
+ 		Compression
+ 		Exceptions
+ 		Graphics
+ 		Kernel
+ 		Multilingual
+ 		Network
+ 		System
+ 		'ToolBuilder-Kernel'
+ 		Tools
+ 	).!

Item was added:
+ ----- Method: PackageDependencyTest>>testCompiler (in category 'tests') -----
+ testCompiler
+ 	self testPackage: 'Compiler' dependsOnlyOn: #(
+ 		Collections
+ 		Exceptions
+ 		Graphics
+ 		Kernel
+ 		System
+ 		'ToolBuilder-Kernel'
+ 		Tools
+ 	).!

Item was added:
+ ----- Method: PackageDependencyTest>>testKernel (in category 'tests') -----
+ testKernel
+ 	self testPackage: 'Kernel' dependsOnlyOn: #(
+ 		Collections
+ 		Compiler
+ 		Compression
+ 		Exceptions
+ 		Files
+ 		Graphics
+ 		Morphic
+ 		MorphicExtras
+ 		Multilingual
+ 		System
+ 		'ToolBuilder-Kernel'
+ 		Tools
+ 		Traits
+ 	).!

Item was added:
+ ----- Method: PackageDependencyTest>>testTraits (in category 'tests') -----
+ testTraits
+ 	self testPackage: 'Traits' dependsOnlyOn: #(
+ 		Collections
+ 		Compiler
+ 		Exceptions
+ 		Files
+ 		Kernel
+ 		Monticello
+ 		System
+ 	).!

Item was added:
+ ----- Method: PackageDependencyTest>>testSUnitGUI (in category 'tests') -----
+ testSUnitGUI
+ 	self testPackage: 'SUnitGUI' dependsOnlyOn: #(
+ 		Collections
+ 		Graphics
+ 		Kernel
+ 		PackageInfo
+ 		SUnit
+ 		System
+ 		'ToolBuilder-Kernel'
+ 		Tools
+ 	).!

Item was added:
+ ----- Method: PackageDependencyTest>>testPreferenceBrowser (in category 'tests') -----
+ testPreferenceBrowser
+ 	self testPackage: 'PreferenceBrowser' dependsOnlyOn: #(
+ 		Collections
+ 		EToys
+ 		Exceptions
+ 		Graphics
+ 		Kernel
+ 		Morphic
+ 		MorphicExtras
+ 		System
+ 		Tools
+ 	).!

Item was added:
+ ----- Method: PackageDependencyTest>>testXML (in category 'tests') -----
+ testXML
+ 	self testPackage: 'XML' dependsOnlyOn: #(
+ 		Collections
+ 		Exceptions
+ 		Files
+ 		Kernel
+ 		Multilingual
+ 		System
+ 		Tests
+ 	).!

Item was added:
+ ----- Method: PackageDependencyTest>>testInstaller (in category 'tests') -----
+ testInstaller
+ 	self testPackage: 'Installer' dependsOnlyOn: #(
+ 		Collections
+ 		Compression
+ 		Exceptions
+ 		Files
+ 		Kernel
+ 		Monticello
+ 		MonticelloConfigurations
+ 		Multilingual
+ 		Network
+ 		System
+ 		'ToolBuilder-Kernel'
+ 		Tools
+ 	).!

Item was added:
+ ----- Method: PackageDependencyTest>>testGraphics (in category 'tests') -----
+ testGraphics
+ 	self testPackage: 'Graphics' dependsOnlyOn: #(
+ 		Collections
+ 		Compression
+ 		Exceptions
+ 		Files
+ 		Kernel
+ 		Morphic
+ 		MorphicExtras
+ 		Multilingual
+ 		Network
+ 		System
+ 		'ToolBuilder-Kernel'
+ 		Tools
+ 		TrueType
+ 	).!

Item was added:
+ ----- Method: PackageDependencyTest>>testNebraska (in category 'tests') -----
+ testNebraska
+ 	self testPackage: 'Nebraska' dependsOnlyOn: #(
+ 		Balloon
+ 		Collections
+ 		EToys
+ 		Exceptions
+ 		Files
+ 		Graphics
+ 		Kernel
+ 		Morphic
+ 		MorphicExtras
+ 		Multilingual
+ 		Network
+ 		SUnit
+ 		Sound
+ 		System
+ 		'ToolBuilder-Kernel'
+ 	).!

Item was added:
+ ----- Method: PackageDependencyTest>>testTools (in category 'tests') -----
+ testTools
+ 	self testPackage: 'Tools' dependsOnlyOn: #(
+ 		Collections
+ 		Compiler
+ 		Compression
+ 		Exceptions
+ 		Files
+ 		Graphics
+ 		Kernel
+ 		Morphic
+ 		MorphicExtras
+ 		Multilingual
+ 		Network
+ 		PackageInfo
+ 		ST80
+ 		System
+ 		'ToolBuilder-Kernel'
+ 	).!

Item was added:
+ ----- Method: PackageDependencyTest>>testST80 (in category 'tests') -----
+ testST80
+ 	self testPackage: 'ST80' dependsOnlyOn: #(
+ 		Collections
+ 		Compiler
+ 		Exceptions
+ 		Files
+ 		Graphics
+ 		Kernel
+ 		Morphic
+ 		Multilingual
+ 		Network
+ 		SUnit
+ 		System
+ 		'ToolBuilder-Kernel'
+ 		Tools
+ 	).!

Item was added:
+ ----- Method: PackageDependencyTest>>testProtocols (in category 'tests') -----
+ testProtocols
+ 	self testPackage: 'Protocols' dependsOnlyOn: #(
+ 		Collections
+ 		Graphics
+ 		Kernel
+ 		Morphic
+ 		MorphicExtras
+ 		System
+ 		'ToolBuilder-Kernel'
+ 		Tools
+ 	).!

Item was added:
+ ----- Method: PackageDependencyTest>>testExceptions (in category 'tests') -----
+ testExceptions
+ 	self testPackage: 'Exceptions' dependsOnlyOn: #(
+ 		Collections
+ 		Files
+ 		Graphics
+ 		Kernel
+ 		Morphic
+ 		System
+ 	).!