Marcel Taeumel uploaded a new version of TraitsTests to project The Trunk:
http://source.squeak.org/trunk/TraitsTests-mt.20.mcz

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

Name: TraitsTests-mt.20
Author: mt
Time: 2 September 2019, 4:24:07.828994 pm
UUID: 1210eec4-a9ff-8541-96f6-5821c64cecfa
Ancestors: TraitsTests-mt.19

Update some traits tests. Put test data in its own category 'TraitsTestsTemporary' to not be committed by accident.

=============== Diff against TraitsTests-mt.19 ===============

Item was changed:
  ----- Method: TraitSystemTest>>testAllClassesAndTraits (in category 'testing') -----
  testAllClassesAndTraits
  	"self debug: #testAllClassesAndTraits"
  	
+ 	| trait previousClassesAndTraits previousClasses |
+ 	previousClassesAndTraits := Smalltalk allClassesAndTraits.
+ 	previousClasses := Smalltalk allClasses.
- 	| trait |
  	trait := self t1.
+ 
+ 	self deny: (previousClassesAndTraits includes: trait).
+ 	self deny: (previousClasses includes: trait).
+ 
  	self assert: (Smalltalk allClassesAndTraits includes: trait).
  	self deny: (Smalltalk allClasses includes: trait).
  	!

Item was changed:
  ----- Method: TraitSystemTest>>testAllImplementedMessagesWithout (in category 'testing') -----
  testAllImplementedMessagesWithout
  	"self debug: #testAllImplementedMessagesWithout"
  
+ 	SystemNavigation default allImplementedMessages in: [:msgs |
+ 		self deny: (msgs includes: #das2qwdqwd).
+ 		self deny: (msgs includes: #qwdqwdqwdc)].
+ 
  	self t6 compile: 'das2qwdqwd'.
+ 
+ 	SystemNavigation default allImplementedMessages in: [:msgs |
+ 		self assert: (msgs includes: #das2qwdqwd).
+ 		self deny: (msgs includes: #qwdqwdqwdc)].!
- 	self assert: (SystemNavigation default allImplementedMessages includes: #das2qwdqwd).
- 	self deny: (SystemNavigation default allImplementedMessages includes: #qwdqwdqwdc).!

Item was changed:
  ----- Method: TraitSystemTest>>testAllSentMessages (in category 'testing') -----
  testAllSentMessages
  	"self debug: #testAllSentMessages"
  
+ 	SystemNavigation default allSentMessages in: [:msgs |
+ 		self deny: (msgs includes: 'dasoia' asSymbol).
+ 		self deny: (msgs includes: 'nioaosi' asSymbol)].
+ 	
  	self t1 compile: 'foo 1 dasoia'.
+ 
+ 	SystemNavigation default allSentMessages in: [:msgs |
+ 		self assert: (msgs includes: 'dasoia' asSymbol).
+ 		self deny: (msgs includes: 'nioaosi' asSymbol)].!
- 	self assert: (SystemNavigation default allSentMessages includes: 'dasoia' asSymbol).
- 	self deny: (SystemNavigation default allSentMessages includes: 'nioaosi' asSymbol).!

Item was changed:
  ----- Method: TraitsResource>>categoryName (in category 'as yet unclassified') -----
  categoryName
+ 	
+ 	^ 'TraitsTestsTemporary'!
- 	^self class category!