+ UIManager subclassesDo: [:managerClass | | manager |
+ manager := managerClass new.
+ #("message" "pattern"
+ 'Should not see this message or this test failed!!' 'Should not see this message or this test failed!!'
+ 'Should not see this message or this test failed!!' 'not see this message'
+ 'Should not see this message or this test failed!!' '*message*failed#')
+ pairsDo: [:message :pattern |
+ self assert: ([manager inform: message] valueSuppressingMessages: {pattern})]]!
- self should: [([nil inform: 'Should not see this message or this test failed!!'] valueSuppressingMessages: #('Should not see this message or this test failed!!')) isNil].
-
- self should: [([nil inform: 'Should not see this message or this test failed!!'] valueSuppressingMessages: #('not see this message')) isNil].
-
- self should: [([nil inform: 'Should not see this message or this test failed!!'] valueSuppressingMessages: #('*message*failed#')) isNil]!