testAllLocalCallsOn " self debug: #testAllLocalCallsOn " | set | set := Array allLocalCallsOn: #printOn:. self assert: (set asArray = #('WeakActionSequence printOn:' 'Object fullPrintString' 'Array printOn:' 'SequenceableCollection asStringWithCr' 'Behavior printOn:' 'Class fileOutPool:onFileStream:' 'Object printStringLimitedTo:' 'Collection printNameOn:' 'ActionSequence printOn:' 'FixedIdentitySet printOn:')). "This is a bit strange that allLocalCallsOn: returns a list of string!" This one is bad for two reasons: 1) it relies on an arbitrary order in Set. For example, just change default size of sets and the order will change. Eventually you could test set = #() asSet but see 2) 2) it relies on a particular snapshot of pharo and prevent pharo from evolving. Moreover, if a user adds its own sender of printOn: in an extension or a subclass, this will make the test fail... Such test should create a class hierarchy dedicated to the test with a know set of senders and test Either correct it or remove it. Nicolas