RegressionTests__CECollectionExtensionTest.st
branchjv
changeset 1567 e17701a073f9
parent 1447 2351db93aa5b
child 1974 f2eaf05205d6
--- a/RegressionTests__CECollectionExtensionTest.st	Wed Dec 28 22:46:11 2016 +0000
+++ b/RegressionTests__CECollectionExtensionTest.st	Thu Jan 05 23:36:28 2017 +0000
@@ -81,19 +81,6 @@
 	self assert: ((#((1 2) (2 3) (1 3 4)) flatCollect: [:each| Set with: each])
 					=  #(#(1 2) #(2 3) #(1 3 4))).	
 	
-!
-
-testFlatCollectSet
-	"self debug: #testFlatCollectSet"
-	
-	self assert: ((#((1 2) (1 2) (1 3 4)) asSet  flatCollect: [:each | each]) = #(1 1 2 3 4) asSet).
-	self assert: ((#() asSet flatCollect: [:each]) = #() asSet).
-
-	self assert:  ((#((1 2) () (1 3 4)) asSet  flatCollect: [:each | each]) = #(1 1 2 3 4) asSet).
-	self assert:  ((#((1 2) #((99)) (1 3 4)) asSet  flatCollect: [:each | each]) 
-					= #(1 1 2 3 4 (99)) asSet).
-	self assert:  ((#((1 2) #(()) (1 3 4)) asSet  flatCollect: [:each | each]) 
-					= #(1 1 2 3 4 ()) asSet).
 ! !
 
 !CECollectionExtensionTest methodsFor:'flatten'!