Patrick Rein uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-pre.352.mcz
==================== Summary ====================
Name: KernelTests-pre.352 Author: pre Time: 1 November 2018, 2:39:41.00256 pm UUID: d4afdebb-ef21-5340-a543-d8e897962963 Ancestors: KernelTests-ul.351
Adds tests for the valueSupplyingAnswer: protocol i n preparation of the new ProvideAnswerNotification handling.
=============== Diff against KernelTests-ul.351 ===============
Item was changed: + ----- Method: BlockClosureTest>>testSupplyAnswerOfFillInTheBlank (in category 'tests - supply answer') ----- - ----- Method: BlockClosureTest>>testSupplyAnswerOfFillInTheBlank (in category 'testing') ----- testSupplyAnswerOfFillInTheBlank
+ UIManager subclassesDo: [:managerClass | + self should: ['blue' = ([managerClass new request: 'Your favorite color?'] + valueSupplyingAnswer: #('Your favorite color?' 'blue'))]]! - self should: ['blue' = ([UIManager default request: 'Your favorite color?'] - valueSupplyingAnswer: #('Your favorite color?' 'blue'))]!
Item was changed: + ----- Method: BlockClosureTest>>testSupplyAnswerOfFillInTheBlankUsingDefaultAnswer (in category 'tests - supply answer') ----- - ----- Method: BlockClosureTest>>testSupplyAnswerOfFillInTheBlankUsingDefaultAnswer (in category 'testing') ----- testSupplyAnswerOfFillInTheBlankUsingDefaultAnswer
+ UIManager subclassesDo: [:managerClass | + self should: ['red' = ([managerClass new request: 'Your favorite color?' initialAnswer: 'red'] + valueSupplyingAnswer: #('Your favorite color?' #default))]]! - self should: ['red' = ([UIManager default request: 'Your favorite color?' initialAnswer: 'red'] - valueSupplyingAnswer: #('Your favorite color?' #default))]!
Item was changed: + ----- Method: BlockClosureTest>>testSupplyAnswerUsingOnlySubstringOfQuestion (in category 'tests - supply answer') ----- - ----- Method: BlockClosureTest>>testSupplyAnswerUsingOnlySubstringOfQuestion (in category 'tests') ----- testSupplyAnswerUsingOnlySubstringOfQuestion
+ UIManager subclassesDo: [:managerClass | + self should: [false = ([managerClass new confirm: 'You like Smalltalk?'] + valueSupplyingAnswer: #('like' false))]]! - self should: [false = ([self confirm: 'You like Smalltalk?'] - valueSupplyingAnswer: #('like' false))]!
Item was changed: + ----- Method: BlockClosureTest>>testSupplyAnswerUsingRegexMatchOfQuestion (in category 'tests - supply answer') ----- - ----- Method: BlockClosureTest>>testSupplyAnswerUsingRegexMatchOfQuestion (in category 'tests') ----- testSupplyAnswerUsingRegexMatchOfQuestion
(String includesSelector: #matchesRegex:) ifFalse: [^ self]. + UIManager subclassesDo: [:managerClass | + self should: [true = ([managerClass new confirm: 'You like Smalltalk?'] + valueSupplyingAnswer: #('.*Smalltalk?' true))]]! - self should: [true = ([self confirm: 'You like Smalltalk?'] - valueSupplyingAnswer: #('.*Smalltalk?' true))]!
Item was changed: + ----- Method: BlockClosureTest>>testSupplySpecificAnswerToQuestion (in category 'tests - supply answer') ----- - ----- Method: BlockClosureTest>>testSupplySpecificAnswerToQuestion (in category 'tests') ----- testSupplySpecificAnswerToQuestion
+ UIManager subclassesDo: [:managerClass | + self should: [false = ([managerClass new confirm: 'You like Smalltalk?'] + valueSupplyingAnswer: #('You like Smalltalk?' false))]]! - self should: [false = ([self confirm: 'You like Smalltalk?'] - valueSupplyingAnswer: #('You like Smalltalk?' false))]!
Item was changed: + ----- Method: BlockClosureTest>>testSuppressInform (in category 'tests - supply answer') ----- - ----- Method: BlockClosureTest>>testSuppressInform (in category 'tests') ----- testSuppressInform + + UIManager subclassesDo: [:managerClass | | manager | + manager := managerClass new. + self should: [[manager inform: 'Should not see this message or this test failed!!'] + valueSuppressingAllMessages]]! - - self should: [[nil inform: 'Should not see this message or this test failed!!'] valueSuppressingAllMessages isNil]!
Item was changed: + ----- Method: BlockClosureTest>>testSuppressInformUsingStringMatchOptions (in category 'tests - supply answer') ----- - ----- Method: BlockClosureTest>>testSuppressInformUsingStringMatchOptions (in category 'tests') ----- testSuppressInformUsingStringMatchOptions
+ 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]!