[squeak-dev] The Trunk: Tests-ul.399.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Jun 14 22:43:23 UTC 2018


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

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

Name: Tests-ul.399
Author: ul
Time: 14 June 2018, 11:52:11.181454 pm
UUID: 97402558-dca6-4e93-bcfb-7d30ff83945b
Ancestors: Tests-ul.398

- do not nag the user about setting the author initials #3

=============== Diff against Tests-ul.398 ===============

Item was added:
+ ----- Method: RecentMessagesTest>>performTest (in category 'private') -----
+ performTest
+ 
+ 	Utilities
+ 		useAuthorInitials: self className
+ 		during: [ super performTest ]!

Item was changed:
+ ----- Method: SystemNavigationTest>>createClass: (in category 'helpers') -----
- ----- Method: SystemNavigationTest>>createClass: (in category 'as yet unclassified') -----
  createClass: aSymbol
  	| builder |
  	builder := ClassBuilder new.
  	^ builder
  		name: aSymbol
  		inEnvironment: env
  		subclassOf: Object
  		type: #normal
  		instanceVariableNames: ''
  		classVariableNames: ''
  		poolDictionaries: ''
  		category: 'Test'.!

Item was changed:
+ ----- Method: SystemNavigationTest>>createTrait: (in category 'helpers') -----
- ----- Method: SystemNavigationTest>>createTrait: (in category 'as yet unclassified') -----
  createTrait: aSymbol
  	^ Trait
  		named: aSymbol
  		uses: #()
  		category: 'Traits'
  		env: env.!

Item was changed:
+ ----- Method: SystemNavigationTest>>setUp (in category 'running') -----
- ----- Method: SystemNavigationTest>>setUp (in category 'as yet unclassified') -----
  setUp
  	| g p t |
  	env := Environment named: 'test'.
  	g := self createClass: #Griffle.
  	p := self createClass: #Plonk.
+ 	g compileSilently: 'foo ^ 1'.
+ 	g class compileSilently: 'classFoo ^ 1'.
+ 	g compileSilently: 'bar ^ 1'.
+ 	p compileSilently: 'foo ^ 2'.
- 	g compile: 'foo ^ 1'.
- 	g class compile: 'classFoo ^ 1'.
- 	g compile: 'bar ^ 1'.
- 	p compile: 'foo ^ 2'.
  	t := self createTrait: #TGriffle.
+ 	t compileSilently: 'baz ^ Griffle new foo + Plonk new bar'.
- 	t compile: 'baz ^ Griffle new foo + Plonk new bar'.
  	self createClass: #Unused.
  	sysNav := SystemNavigation for: env.!

Item was changed:
+ ----- Method: SystemNavigationTest>>testAllClassesDoShouldIterateOverClassesInAnEnvironment (in category 'tests') -----
- ----- Method: SystemNavigationTest>>testAllClassesDoShouldIterateOverClassesInAnEnvironment (in category 'as yet unclassified') -----
  testAllClassesDoShouldIterateOverClassesInAnEnvironment
  	| classes |
  	classes := OrderedCollection new.
  	sysNav allClassesDo: [:cls |
  		classes add: cls].
  	self assert: env allClasses equals: classes asArray.!

Item was changed:
+ ----- Method: SystemNavigationTest>>testAllClassesShouldReturnEnvironmentsClasses (in category 'tests') -----
- ----- Method: SystemNavigationTest>>testAllClassesShouldReturnEnvironmentsClasses (in category 'as yet unclassified') -----
  testAllClassesShouldReturnEnvironmentsClasses
  	self assert: env allClasses equals: sysNav allClasses.!

Item was changed:
+ ----- Method: SystemNavigationTest>>testAllImplementedMessagesWithout (in category 'tests') -----
- ----- Method: SystemNavigationTest>>testAllImplementedMessagesWithout (in category 'as yet unclassified') -----
  testAllImplementedMessagesWithout
  
  	self assert: #(bar baz classFoo) asIdentitySet
  		equals: (sysNav allImplementedMessagesWithout: {{env at: #Griffle}. {#foo}}).!

Item was changed:
+ ----- Method: SystemNavigationTest>>testAllImplementorsOf (in category 'tests') -----
- ----- Method: SystemNavigationTest>>testAllImplementorsOf (in category 'as yet unclassified') -----
  testAllImplementorsOf
  	self assert: (OrderedCollection
  			with: (MethodReference class: (env at: #Griffle) selector: #foo)
  			with: (MethodReference class: (env at: #Plonk) selector: #foo))
  		equals: (sysNav allImplementorsOf: #foo).!

Item was changed:
+ ----- Method: SystemNavigationTest>>testAllImplementorsOfClassSide (in category 'tests') -----
- ----- Method: SystemNavigationTest>>testAllImplementorsOfClassSide (in category 'as yet unclassified') -----
  testAllImplementorsOfClassSide
  	self assert: (OrderedCollection
  			with: (MethodReference class: (env at: #Griffle) class selector: #classFoo))
  		equals: (sysNav allImplementorsOf: #classFoo).!

Item was changed:
+ ----- Method: SystemNavigationTest>>testAllSentMessagesWithout (in category 'tests') -----
- ----- Method: SystemNavigationTest>>testAllSentMessagesWithout (in category 'as yet unclassified') -----
  testAllSentMessagesWithout
  
  	self 
  		assert: (#(foo bar) asIdentitySet
  			addAll: Smalltalk presumedSentMessages;
  			addAll: Smalltalk specialSelectorNames;
  			yourself)
  		equals: (sysNav allSentMessagesWithout: {{env at: #Griffle}. {#+}}).!

Item was changed:
+ ----- Method: SystemNavigationTest>>testAllUnusedClassesWithout (in category 'tests') -----
- ----- Method: SystemNavigationTest>>testAllUnusedClassesWithout (in category 'as yet unclassified') -----
  testAllUnusedClassesWithout
  	self assert: (IdentitySet with: #Unused) equals: ((SystemNavigation for: env) allUnusedClassesWithout: {{}. {}}).
  "The classes passed to #allUnusedClassesWithout: are not filtered from the list. They're classes whose methods are not examined for global references."
  	self deny: ((SystemNavigation for: env) allUnusedClassesWithout: {{#Unused}. {}}) isEmpty description: 'Where did Unused go?'.!

Item was changed:
+ ----- Method: SystemNavigationTest>>testDefaultAllClassesAndTraitsShouldReturnTopEnvironmentClassesAndTraits (in category 'tests') -----
- ----- Method: SystemNavigationTest>>testDefaultAllClassesAndTraitsShouldReturnTopEnvironmentClassesAndTraits (in category 'as yet unclassified') -----
  testDefaultAllClassesAndTraitsShouldReturnTopEnvironmentClassesAndTraits
  	self assert: Smalltalk allClassesAndTraits equals: SystemNavigation default allClassesAndTraits.!

Item was changed:
+ ----- Method: SystemNavigationTest>>testDefaultAllClassesShouldReturnTopEnvironmentClasses (in category 'tests') -----
- ----- Method: SystemNavigationTest>>testDefaultAllClassesShouldReturnTopEnvironmentClasses (in category 'as yet unclassified') -----
  testDefaultAllClassesShouldReturnTopEnvironmentClasses
  	self assert: Smalltalk allClasses equals: SystemNavigation default allClasses.!



More information about the Squeak-dev mailing list