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!
squeak-dev@lists.squeakfoundation.org