Remove Supply

Author: Ducasse

src/Kernel-Tests/BlockClosureTest.class.st

@@ -445,99 +445,6 @@ BlockClosureTest >> testSetUp [
 	self assert: (aBlock method isNil or: [ aBlock method isKindOf: CompiledCode ])
 ]
 
-{ #category : 'tests' }
-BlockClosureTest >> testSupplyAnswerOfFillInTheBlank [
-
-	self
-		assert:
-			([ ProvideAnswerNotification signal: 'Your favorite color?' ]
-				 valueSupplyingAnswer: #( 'Your favorite color?'
-				    'blue' ))
-		equals: 'blue'
-]
-
-{ #category : 'tests' }
-BlockClosureTest >> testSupplyAnswerOfFillInTheBlankUsingDefaultAnswer [
-
-	self
-		assert: ([
-			 (ProvideAnswerNotification signal: 'Your favorite color?')
-			 == #default ifTrue: [ 'red' ] ] valueSupplyingAnswer:
-				 #( 'Your favorite color?' #default ))
-		equals: 'red'
-]
-
-{ #category : 'tests' }
-BlockClosureTest >> testSupplyAnswerThroughNestedBlocks [
-
-	self should: [true = ([[self confirm: 'You like Smalltalk?']
-		valueSupplyingAnswer: #('Blub' false)] valueSupplyingAnswer: #('Smalltalk' true))]
-]
-
-{ #category : 'tests' }
-BlockClosureTest >> testSupplyAnswerUsingOnlySubstringOfQuestion [
-
-	self should: [false = ([self confirm: 'You like Smalltalk?']
-		valueSupplyingAnswer: #('like' false))]
-]
-
-{ #category : 'tests' }
-BlockClosureTest >> testSupplyAnswerUsingRegexMatchOfQuestion [
-
-	(String includesSelector: #matchesRegex:) ifFalse: [^ self].
-
-	self should: [true = ([self confirm: 'You like Smalltalk?']
-		valueSupplyingAnswer: #('.*Smalltalk\?' true))]
-]
-
-{ #category : 'tests' }
-BlockClosureTest >> testSupplyAnswerUsingTraditionalMatchOfQuestion [
-
-	self should: [true = ([self confirm: 'You like Smalltalk?']
-		valueSupplyingAnswer: #('*Smalltalk#' true))]
-]
-
-{ #category : 'tests' }
-BlockClosureTest >> testSupplySameAnswerToAllQuestions [
-
-	self should: [true = ([self confirm: 'You like Smalltalk?'] valueSupplyingAnswer: true)].
-
-	self should: [#(true true) = ([{self confirm: 'One'. self confirm: 'Two'}] valueSupplyingAnswer: true)]
-]
-
-{ #category : 'tests' }
-BlockClosureTest >> testSupplySeveralAnswersToSeveralQuestions [
-
-	self should: [#(false true) = ([{self confirm: 'One'. self confirm: 'Two'}]
-		valueSupplyingAnswers: #( ('One' false) ('Two' true) ))].
-
-	self should: [#(true false) = ([{self confirm: 'One'. self confirm: 'Two'}]
-		valueSupplyingAnswers: #( ('One' true) ('Two' false) ))]
-]
-
-{ #category : 'tests' }
-BlockClosureTest >> testSupplySpecificAnswerToQuestion [
-
-	self should: [false = ([self confirm: 'You like Smalltalk?']
-		valueSupplyingAnswer: #('You like Smalltalk?' false))]
-]
-
-{ #category : 'tests' }
-BlockClosureTest >> testSuppressInform [
-
-	self should: [[nil inform: 'Should not see this message or this test failed!'] valueSuppressingAllMessages isNil]
-]
-
-{ #category : 'tests' }
-BlockClosureTest >> testSuppressInformUsingStringMatchOptions [
-
-	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]
-]
-
 { #category : 'tests - evaluating' }
 BlockClosureTest >> testValueWithArguments [