The Trunk: TraitsTests-mt.20.mcz

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!