hg/stx-goodies-regression: RegressionTests__CollectionTests.st@4f04a8bf19c5 (annotated)

115 b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1	"{ Package: 'exept:regression' }"
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2
157 2a671e687618 moved to namespace Claus Gittinger <cg@exept.de> parents: 156 diff changeset	3	"{ NameSpace: RegressionTests }"
2a671e687618 moved to namespace Claus Gittinger <cg@exept.de> parents: 156 diff changeset	4
115 b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5	TestCase subclass:#CollectionTests
293 eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6	instanceVariableNames:'empty nonEmpty'
115 b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	7	classVariableNames:''
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	poolDictionaries:''
181 a56517005229 category change Claus Gittinger <cg@exept.de> parents: 162 diff changeset	9	category:'tests-Regression'
115 b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10	!
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	11
212 e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	12	Object subclass:#SortTestData
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	13	instanceVariableNames:'value order'
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	14	classVariableNames:''
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	15	poolDictionaries:''
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	16	privateIn:CollectionTests
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	17	!
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	18
115 b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	19	!CollectionTests class methodsFor:'documentation'!
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20
585 440a4221854e added: Claus Gittinger <cg@exept.de> parents: 538 diff changeset	21	coveredClasses
440a4221854e added: Claus Gittinger <cg@exept.de> parents: 538 diff changeset	22	^ Collection withAllSubclasses
440a4221854e added: Claus Gittinger <cg@exept.de> parents: 538 diff changeset	23	!
440a4221854e added: Claus Gittinger <cg@exept.de> parents: 538 diff changeset	24
115 b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25	documentation
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	26	"
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	27	documentation to be added.
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	28
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	29	[author:]
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	30	Claus Gittinger (cg@alan)
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	31
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	32	[see also:]
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	33
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	34	[instance variables:]
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	35
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	36	[class variables:]
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	37	"
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	38	!
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	39
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	40	history
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	41	"Created: / 8.11.2001 / 08:17:09 / cg"
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	42	! !
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	43
301 13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	44	!CollectionTests methodsFor:'helpers'!
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	45
655 43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	46	checkSorted:aSortedCollection with:sortBlock against:anOriginalCollection
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	47	\|first\|
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	48
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	49	self assert:aSortedCollection size = anOriginalCollection size.
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	50
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	51	"is it sorted?"
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	52	first := true.
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	53	aSortedCollection inject:nil into:[:last :each\|
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	54	first ifTrue:[first := false]
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	55	ifFalse:[self assert:(sortBlock value:last value:each)]. each].
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	56
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	57	"same elements as in original?"
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	58	self assert:(aSortedCollection asBag = anOriginalCollection asBag).
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	59	!
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	60
301 13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	61	collectedDoArgsOf:aCollection
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	62	\|collectedDoArgs\|
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	63
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	64	collectedDoArgs := OrderedCollection new.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	65	aCollection do:[:each \| collectedDoArgs add:each].
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	66	^ collectedDoArgs
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	67	! !
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	68
293 eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	69	!CollectionTests methodsFor:'initialize-release'!
eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	70
eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	71	setUp
295 6cea62ad1642 * empty log message * Claus Gittinger <cg@exept.de> parents: 293 diff changeset	72	empty := Set new.
6cea62ad1642 * empty log message * Claus Gittinger <cg@exept.de> parents: 293 diff changeset	73	nonEmpty := OrderedCollection with: #x.
293 eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	74	! !
eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	75
264 674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	76	!CollectionTests methodsFor:'tests-dictionary'!
115 b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	77
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	78	testDictionary01
301 13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	79	\|d v1 v2 v3 ret\|
115 b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	80
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	81	d := Dictionary new.
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	82	d at:1 put:(v1 := 'one').
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	83	d at:2 put:(v2 := 'two').
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	84	d at:3 put:(v3 := 'three').
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	85
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	86	self assert: ( d size == 3 ).
301 13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	87
585 440a4221854e added: Claus Gittinger <cg@exept.de> parents: 538 diff changeset	88	self assert:(ret := self collectedDoArgsOf:d) asArray = #('one' 'two' 'three').
301 13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	89	self assert:(ret := d collect:[:each \| each]) = #('one' 'two' 'three') asBag.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	90	self assert:(ret := d select:[:each \| true]) = (Dictionary withAssociations:(Array with:(1->'one') with:(2->'two') with:(3->'three'))).
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	91
115 b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	92	self assert: ( (d at:1) == v1 ).
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	93	self assert: ( (d at:2) == v2 ).
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	94	self assert: ( (d at:3) == v3 ).
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	95
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	96	d at:3 put:(v3 := 'drei').
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	97
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	98	self assert: ( d size == 3 ).
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	99
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	100	self assert: ( (d at:1) == v1 ).
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	101	self assert: ( (d at:2) == v2 ).
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	102	self assert: ( (d at:3) == v3 ).
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	103
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	104	self assert: ( (d keyAtValue:v1) = 1 ).
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	105
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	106	"
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	107	self basicNew testDictionary01
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	108	"
585 440a4221854e added: Claus Gittinger <cg@exept.de> parents: 538 diff changeset	109
440a4221854e added: Claus Gittinger <cg@exept.de> parents: 538 diff changeset	110	"Modified: / 04-07-2011 / 19:28:39 / cg"
264 674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	111	! !
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	112
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	113	!CollectionTests methodsFor:'tests-general'!
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	114
615 3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	115	doTestDictionaryLikeAddRemoveOperationsIn:aClass
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	116	\|coll\|
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	117
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	118	coll := aClass new.
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	119
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	120	self assert: ( coll size == 0 ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	121	self assert: ( coll isEmpty ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	122	self assert: ( coll notEmpty not ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	123	self assert: ( coll isEmptyOrNil ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	124	self assert: ( coll notEmptyOrNil not ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	125
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	126	coll at:1 put:'one'.
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	127
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	128	self assert: ( coll size == 1 ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	129	self assert: ( coll isEmpty not).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	130	self assert: ( coll notEmpty ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	131	self assert: ( coll isEmptyOrNil not ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	132	self assert: ( coll notEmptyOrNil ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	133
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	134	coll at:2 put:'two'.
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	135
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	136	self assert: ( coll size == 2 ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	137	self assert: ( coll isEmpty not).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	138	self assert: ( coll notEmpty ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	139	self assert: ( coll isEmptyOrNil not ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	140	self assert: ( coll notEmptyOrNil ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	141
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	142	coll removeKey:2.
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	143	self assert: ( coll size == 1 ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	144	self assert: ( coll isEmpty not).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	145	self assert: ( coll notEmpty ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	146	self assert: ( coll isEmptyOrNil not ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	147	self assert: ( coll notEmptyOrNil ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	148
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	149	coll removeKey:1.
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	150	self assert: ( coll size == 0 ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	151	self assert: ( coll isEmpty ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	152	self assert: ( coll notEmpty not ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	153	self assert: ( coll isEmptyOrNil ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	154	self assert: ( coll notEmptyOrNil not ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	155
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	156	"
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	157	self basicNew doTestDictionaryLikeAddRemoveOperations
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	158	"
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	159
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	160	"Created: / 08-08-2011 / 16:01:14 / cg"
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	161	!
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	162
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	163	doTestGeneralAddRemoveOperationsIn:aClass
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	164	\|coll\|
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	165
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	166	coll := aClass new.
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	167
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	168	self assert: ( coll size == 0 ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	169	self assert: ( coll isEmpty ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	170	self assert: ( coll notEmpty not ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	171	self assert: ( coll isEmptyOrNil ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	172	self assert: ( coll notEmptyOrNil not ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	173
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	174	coll add:1.
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	175
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	176	self assert: ( coll size == 1 ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	177	self assert: ( coll isEmpty not).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	178	self assert: ( coll notEmpty ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	179	self assert: ( coll isEmptyOrNil not ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	180	self assert: ( coll notEmptyOrNil ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	181
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	182	coll add:2.
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	183
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	184	self assert: ( coll size == 2 ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	185	self assert: ( coll isEmpty not).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	186	self assert: ( coll notEmpty ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	187	self assert: ( coll isEmptyOrNil not ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	188	self assert: ( coll notEmptyOrNil ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	189
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	190	coll remove:2.
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	191	self assert: ( coll size == 1 ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	192	self assert: ( coll isEmpty not).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	193	self assert: ( coll notEmpty ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	194	self assert: ( coll isEmptyOrNil not ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	195	self assert: ( coll notEmptyOrNil ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	196
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	197	coll remove:1.
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	198	self assert: ( coll size == 0 ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	199	self assert: ( coll isEmpty ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	200	self assert: ( coll notEmpty not ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	201	self assert: ( coll isEmptyOrNil ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	202	self assert: ( coll notEmptyOrNil not ).
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	203
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	204	"
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	205	self basicNew testGeneralOperations
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	206	"
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	207
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	208	"Created: / 08-08-2011 / 16:00:06 / cg"
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	209	!
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	210
264 674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	211	doTestGeneralCollectionOperationsIn:aClass
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	212	\|coll\|
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	213
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	214	coll := aClass new.
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	215
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	216	self assert: ( coll size == 0 ).
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	217	self assert: ( coll isEmpty ).
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	218	self assert: ( coll notEmpty not ).
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	219	self assert: ( coll isEmptyOrNil ).
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	220	self assert: ( coll notEmptyOrNil not ).
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	221
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	222	self should: [ coll first ] raise:Error.
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	223	self should: [ coll last ] raise:Error.
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	224	self should: [ (coll at:1) ] raise:Error.
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	225
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	226	self assert: ( (coll includes:0) not ).
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	227
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	228	"
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	229	self basicNew testGeneralOperations
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	230	"
156 2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	231	!
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	232
615 3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	233	testDictionaryLikeAddRemoveOperations
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	234	\|classes\|
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	235
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	236	classes := OrderedCollection new.
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	237	classes
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	238	add:Dictionary;
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	239	add:IdentityDictionary;
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	240	add:OrderedDictionary;
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	241	add:BTree.
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	242
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	243	classes do:[:eachClass \|
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	244	self doTestDictionaryLikeAddRemoveOperationsIn:eachClass
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	245	].
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	246
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	247	"
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	248	self basicNew testDictionaryLikeAddRemoveOperations
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	249	"
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	250
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	251	"Created: / 08-08-2011 / 15:59:52 / cg"
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	252	!
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	253
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	254	testGeneralAddRemoveOperations
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	255	\|classes\|
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	256
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	257	classes := OrderedCollection new.
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	258	classes
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	259	"/ add:RunArray;
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	260	add:Bag;
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	261	add:Set;
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	262	add:IdentitySet;
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	263	"/add:Dictionary;
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	264	"/add:IdentityDictionary;
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	265	add:OrderedCollection;
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	266	add:SortedCollection;
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	267	"/add:Queue;
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	268	"/add:Stack;
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	269	add:SortedCollection;
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	270	"/add:OrderedDictionary;
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	271	add:OrderedSet.
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	272	"/add:BTree.
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	273
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	274	classes do:[:eachClass \|
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	275	self doTestGeneralAddRemoveOperationsIn:eachClass
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	276	].
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	277
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	278	"
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	279	self basicNew testGeneralAddRemoveOperations
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	280	"
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	281
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	282	"Created: / 08-08-2011 / 15:59:02 / cg"
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	283	!
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	284
264 674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	285	testGeneralOperations
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	286	\|classes\|
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	287
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	288	classes := OrderedCollection new.
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	289	classes
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	290	add:RunArray;
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	291	add:Bag;
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	292	add:Set;
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	293	add:IdentitySet;
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	294	add:Dictionary;
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	295	add:IdentityDictionary;
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	296	add:OrderedCollection;
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	297	add:SortedCollection;
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	298	add:Queue;
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	299	add:Stack;
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	300	add:SortedCollection;
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	301	add:OrderedDictionary;
615 3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	302	add:OrderedSet;
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	303	add:BTree.
264 674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	304
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	305	classes do:[:eachClass \|
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	306	self doTestGeneralCollectionOperationsIn:eachClass
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	307	].
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	308
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	309	"
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	310	self basicNew testGeneralOperations
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	311	"
615 3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	312
3a61700c6e88 added:5 methods Claus Gittinger <cg@exept.de> parents: 585 diff changeset	313	"Modified: / 08-08-2011 / 15:53:16 / cg"
264 674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	314	! !
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	315
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	316	!CollectionTests methodsFor:'tests-interval'!
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	317
162 8f53db556b40 * empty log message * Claus Gittinger <cg@exept.de> parents: 157 diff changeset	318	testInterval01
644 c8240e7bfb37 class definition Claus Gittinger <cg@exept.de> parents: 640 diff changeset	319	\|i1 i2\|
162 8f53db556b40 * empty log message * Claus Gittinger <cg@exept.de> parents: 157 diff changeset	320
644 c8240e7bfb37 class definition Claus Gittinger <cg@exept.de> parents: 640 diff changeset	321	i1 := 1 to:10.
162 8f53db556b40 * empty log message * Claus Gittinger <cg@exept.de> parents: 157 diff changeset	322
644 c8240e7bfb37 class definition Claus Gittinger <cg@exept.de> parents: 640 diff changeset	323	self assert: ( i1 size == 10 ).
162 8f53db556b40 * empty log message * Claus Gittinger <cg@exept.de> parents: 157 diff changeset	324
644 c8240e7bfb37 class definition Claus Gittinger <cg@exept.de> parents: 640 diff changeset	325	self assert: ( i1 includes:1 ).
c8240e7bfb37 class definition Claus Gittinger <cg@exept.de> parents: 640 diff changeset	326	self assert: ( i1 includes:10 ).
162 8f53db556b40 * empty log message * Claus Gittinger <cg@exept.de> parents: 157 diff changeset	327
644 c8240e7bfb37 class definition Claus Gittinger <cg@exept.de> parents: 640 diff changeset	328	self assert: ( i1 min == 1 ).
c8240e7bfb37 class definition Claus Gittinger <cg@exept.de> parents: 640 diff changeset	329	self assert: ( i1 max == 10 ).
162 8f53db556b40 * empty log message * Claus Gittinger <cg@exept.de> parents: 157 diff changeset	330
8f53db556b40 * empty log message * Claus Gittinger <cg@exept.de> parents: 157 diff changeset	331	"cannot add/remove"
644 c8240e7bfb37 class definition Claus Gittinger <cg@exept.de> parents: 640 diff changeset	332	self should:[i1 add:99] raise:Error.
c8240e7bfb37 class definition Claus Gittinger <cg@exept.de> parents: 640 diff changeset	333	self should:[i1 remove:10] raise:Error.
c8240e7bfb37 class definition Claus Gittinger <cg@exept.de> parents: 640 diff changeset	334
c8240e7bfb37 class definition Claus Gittinger <cg@exept.de> parents: 640 diff changeset	335	i2 := 2 to:20 by:2.
c8240e7bfb37 class definition Claus Gittinger <cg@exept.de> parents: 640 diff changeset	336	self assert: ( i2 size == 10 ).
c8240e7bfb37 class definition Claus Gittinger <cg@exept.de> parents: 640 diff changeset	337
c8240e7bfb37 class definition Claus Gittinger <cg@exept.de> parents: 640 diff changeset	338	self assert: ( i2 includes:0 ) not.
c8240e7bfb37 class definition Claus Gittinger <cg@exept.de> parents: 640 diff changeset	339	self assert: ( i2 includes:1 ) not.
c8240e7bfb37 class definition Claus Gittinger <cg@exept.de> parents: 640 diff changeset	340	self assert: ( i2 includes:2 ).
c8240e7bfb37 class definition Claus Gittinger <cg@exept.de> parents: 640 diff changeset	341	self assert: ( i2 includes:3 ) not.
c8240e7bfb37 class definition Claus Gittinger <cg@exept.de> parents: 640 diff changeset	342	self assert: ( i2 includes:10 ).
c8240e7bfb37 class definition Claus Gittinger <cg@exept.de> parents: 640 diff changeset	343	self assert: ( i2 includes:19 ) not.
c8240e7bfb37 class definition Claus Gittinger <cg@exept.de> parents: 640 diff changeset	344	self assert: ( i2 includes:20 ).
c8240e7bfb37 class definition Claus Gittinger <cg@exept.de> parents: 640 diff changeset	345	self assert: ( i2 includes:21 ) not.
c8240e7bfb37 class definition Claus Gittinger <cg@exept.de> parents: 640 diff changeset	346	self assert: ( i2 includes:22 ) not.
c8240e7bfb37 class definition Claus Gittinger <cg@exept.de> parents: 640 diff changeset	347
c8240e7bfb37 class definition Claus Gittinger <cg@exept.de> parents: 640 diff changeset	348	self assert: ( i2 min == 2 ).
c8240e7bfb37 class definition Claus Gittinger <cg@exept.de> parents: 640 diff changeset	349	self assert: ( i2 max == 20 ).
c8240e7bfb37 class definition Claus Gittinger <cg@exept.de> parents: 640 diff changeset	350
c8240e7bfb37 class definition Claus Gittinger <cg@exept.de> parents: 640 diff changeset	351	self assert: ( i2 keys asArray = (1 to:10) asArray ).
162 8f53db556b40 * empty log message * Claus Gittinger <cg@exept.de> parents: 157 diff changeset	352
8f53db556b40 * empty log message * Claus Gittinger <cg@exept.de> parents: 157 diff changeset	353	"
8f53db556b40 * empty log message * Claus Gittinger <cg@exept.de> parents: 157 diff changeset	354	self basicNew testInterval01
8f53db556b40 * empty log message * Claus Gittinger <cg@exept.de> parents: 157 diff changeset	355	"
644 c8240e7bfb37 class definition Claus Gittinger <cg@exept.de> parents: 640 diff changeset	356
c8240e7bfb37 class definition Claus Gittinger <cg@exept.de> parents: 640 diff changeset	357	"Modified: / 10-10-2011 / 13:10:43 / cg"
264 674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	358	! !
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	359
301 13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	360	!CollectionTests methodsFor:'tests-orderedCollection'!
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	361
656 470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	362	testMergeSortStability01
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	363	"Verify that the sort is stable"
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	364
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	365	\| testData lastTestData errs col\|
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	366
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	367	testData := OrderedCollection new.
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	368	testData addAll: ((100 to: 1 by: -1) collect: [ :n \| SortTestData new value: n ]).
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	369	testData addAll: ((100 to: 1 by: -1) collect: [ :n \| SortTestData new value: n ]).
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	370	testData addAll: ((100 to: 1 by: -1) collect: [ :n \| SortTestData new value: n ]).
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	371	testData keysAndValuesDo:[:idx :each\| each order: idx ].
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	372
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	373	col := testData copy.
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	374	col mergeSort:[:v1 :v2 \| v1 value < v2 value ].
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	375	self checkSorted:col with:[:v1 :v2 \| v1 value <= v2 value ] against:testData.
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	376
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	377	lastTestData := nil.
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	378
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	379	errs := col inject: 0 into:
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	380	[ :totIn :aSortTestData \| \|totOut\|
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	381	totOut := totIn.
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	382	lastTestData notNil ifTrue:
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	383	[ lastTestData value = aSortTestData value ifTrue:
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	384	[ lastTestData order > aSortTestData order ifTrue: [ totOut := totOut + 1 ] ] ].
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	385	lastTestData := aSortTestData.
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	386	totOut ].
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	387	self should: [ errs = 0 ]
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	388
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	389	"
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	390	self basicNew testMergeSortStability01
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	391	"
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	392	!
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	393
301 13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	394	testOrderedCollection01_Sort1
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	395	\|col col2\|
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	396
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	397	col := #( 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 ) copy.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	398	col sort.
585 440a4221854e added: Claus Gittinger <cg@exept.de> parents: 538 diff changeset	399	self assert:( col sameContentsAs: (1 to:20)).
301 13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	400
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	401	col := #( 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 ) copy reverse.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	402	col sort.
585 440a4221854e added: Claus Gittinger <cg@exept.de> parents: 538 diff changeset	403	self assert:( col sameContentsAs: (1 to:20) ).
301 13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	404
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	405	col := #( 10 2 13 4 15 6 17 8 19 11 1 12 3 14 5 16 7 18 9 20 ) copy.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	406	col sort.
585 440a4221854e added: Claus Gittinger <cg@exept.de> parents: 538 diff changeset	407	self assert:( col sameContentsAs: (1 to:20) ).
301 13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	408
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	409	col := ( 1 to: 10000 ) asOrderedCollection.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	410	col sort.
585 440a4221854e added: Claus Gittinger <cg@exept.de> parents: 538 diff changeset	411	self assert:( col sameContentsAs: (1 to:10000) ).
301 13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	412
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	413	col := ( 1 to: 10000 ) asOrderedCollection.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	414	col2 := ( 1 to: 10000 ) asOrderedCollection.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	415	col sortWith:col2.
585 440a4221854e added: Claus Gittinger <cg@exept.de> parents: 538 diff changeset	416	self assert:( col sameContentsAs: (1 to:10000) ).
440a4221854e added: Claus Gittinger <cg@exept.de> parents: 538 diff changeset	417	self assert:( col2 sameContentsAs: (1 to:10000) ).
301 13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	418
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	419	col := ( 10000 to: 1 by:-1) asOrderedCollection.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	420	col2 := ( 10000 to: 1 by:-1) asOrderedCollection.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	421	col sortWith:col2.
585 440a4221854e added: Claus Gittinger <cg@exept.de> parents: 538 diff changeset	422	self assert:( col sameContentsAs: (1 to:10000) ).
440a4221854e added: Claus Gittinger <cg@exept.de> parents: 538 diff changeset	423	self assert:( col2 sameContentsAs: (1 to:10000) ).
301 13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	424
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	425	"
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	426	self new testOrderedCollection01_Sort1
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	427	"
585 440a4221854e added: Claus Gittinger <cg@exept.de> parents: 538 diff changeset	428
440a4221854e added: Claus Gittinger <cg@exept.de> parents: 538 diff changeset	429	"Modified: / 04-07-2011 / 19:29:54 / cg"
301 13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	430	!
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	431
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	432	testOrderedCollection02_SortBigCollection
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	433	\| size col sortBlock\|
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	434
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	435	size := 12500.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	436	col := OrderedCollection new.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	437	1 to:size do:[:el\|
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	438	col add:nil.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	439	].
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	440	sortBlock := [:entry1 :entry2 \|
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	441	((entry1 isNil) or:[entry2 isNil]) ifTrue:[
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	442	true
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	443	] ifFalse:[
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	444	false
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	445	]
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	446	].
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	447	self shouldnt:[col sort:sortBlock] raise:RecursionInterruptSignal.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	448
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	449	"
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	450	self new testOrderedCollection02_SortBigCollection
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	451	"
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	452	!
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	453
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	454	testOrderedCollection03_SortBigCollection2
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	455	\| size col\|
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	456
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	457	size := 12500.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	458	col := OrderedCollection new.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	459	1 to:size do:[:el\|
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	460	col add:'abc'.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	461	].
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	462	self shouldnt:[col sort] raise:RecursionInterruptSignal.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	463
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	464	"
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	465	self new testOrderedCollection03_SortBigCollection2
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	466	"
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	467	!
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	468
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	469	testOrderedCollection04_SortNilsInCollection
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	470	\| size col sortBlock\|
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	471
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	472	size := 125.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	473	col := OrderedCollection new.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	474	1 to:size do:[:el\|
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	475	col add:nil.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	476	].
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	477	sortBlock := [:entry1 :entry2 \|
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	478	((entry1 isNil) or:[entry2 isNil]) ifTrue:[
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	479	true
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	480	] ifFalse:[
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	481	false
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	482	]
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	483	].
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	484	"/ col sort:sortBlock.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	485	self shouldnt:[col sort:sortBlock] raise:RecursionInterruptSignal.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	486
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	487	"
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	488	self new testOrderedCollection04_SortNilsInCollection
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	489	"
655 43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	490	!
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	491
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	492	testOrderedCollection05_SortRandomCollection
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	493	\|data sorted rg coData checkBlock\|
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	494
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	495	checkBlock := [:a :b\| a <= b].
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	496	rg := Random new.
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	497
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	498	#(1 4 11 2000 20011 200000) do:[:eachSize\|
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	499	data := Array new:eachSize.
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	500	1 to:data size do:[:i \|
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	501	data at:i put:(rg nextIntegerBetween:1 and:100).
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	502	].
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	503	sorted := data copy sort.
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	504	self checkSorted:sorted with:checkBlock against:data.
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	505	sorted := sorted sort.
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	506	self checkSorted:sorted with:checkBlock against:data.
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	507	sorted := sorted reverse sort.
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	508	self checkSorted:sorted with:checkBlock against:data.
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	509
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	510	coData := data copy.
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	511	sorted := data copy sortWith:coData.
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	512	self checkSorted:sorted with:checkBlock against:data.
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	513	self checkSorted:coData with:checkBlock against:data.
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	514
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	515	sorted := data copy sort:[:policy :a :b\| a < b].
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	516	self checkSorted:sorted with:checkBlock against:data.
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	517
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	518	sorted := data copy sort:[:a :b\| a < b].
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	519	self checkSorted:sorted with:checkBlock against:data.
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	520
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	521	coData := data copy.
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	522	sorted := data copy sort:[:a :b\| a < b] with:coData.
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	523	self checkSorted:sorted with:checkBlock against:data.
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	524	self checkSorted:coData with:checkBlock against:data.
43841f85365a more sort tests Stefan Vogel <sv@exept.de> parents: 644 diff changeset	525	].
656 470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	526	!
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	527
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	528	testOrderedCollection06_MergeSortRandomCollection
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	529	\|data sorted rg checkBlock\|
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	530
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	531	checkBlock := [:a :b\| a <= b].
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	532	rg := Random new.
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	533
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	534	#(1 4 11 2000 20011 200000) do:[:eachSize\|
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	535	data := Array new:eachSize.
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	536	1 to:data size do:[:i \|
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	537	data at:i put:(rg nextIntegerBetween:1 and:100).
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	538	].
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	539	sorted := data copy mergeSort.
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	540	self checkSorted:sorted with:checkBlock against:data.
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	541	sorted := sorted mergeSort.
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	542	self checkSorted:sorted with:checkBlock against:data.
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	543	sorted := sorted reverse mergeSort.
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	544	self checkSorted:sorted with:checkBlock against:data.
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	545
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	546	sorted := data copy mergeSort:[:a :b\| a < b].
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	547	self checkSorted:sorted with:checkBlock against:data.
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	548	].
657 4f04a8bf19c5 added: #testOrderedCollection07_HeapSortRandomCollection Stefan Vogel <sv@exept.de> parents: 656 diff changeset	549	!
4f04a8bf19c5 added: #testOrderedCollection07_HeapSortRandomCollection Stefan Vogel <sv@exept.de> parents: 656 diff changeset	550
4f04a8bf19c5 added: #testOrderedCollection07_HeapSortRandomCollection Stefan Vogel <sv@exept.de> parents: 656 diff changeset	551	testOrderedCollection07_HeapSortRandomCollection
4f04a8bf19c5 added: #testOrderedCollection07_HeapSortRandomCollection Stefan Vogel <sv@exept.de> parents: 656 diff changeset	552	\|data sorted rg checkBlock\|
4f04a8bf19c5 added: #testOrderedCollection07_HeapSortRandomCollection Stefan Vogel <sv@exept.de> parents: 656 diff changeset	553
4f04a8bf19c5 added: #testOrderedCollection07_HeapSortRandomCollection Stefan Vogel <sv@exept.de> parents: 656 diff changeset	554	checkBlock := [:a :b\| a <= b].
4f04a8bf19c5 added: #testOrderedCollection07_HeapSortRandomCollection Stefan Vogel <sv@exept.de> parents: 656 diff changeset	555	rg := Random new.
4f04a8bf19c5 added: #testOrderedCollection07_HeapSortRandomCollection Stefan Vogel <sv@exept.de> parents: 656 diff changeset	556
4f04a8bf19c5 added: #testOrderedCollection07_HeapSortRandomCollection Stefan Vogel <sv@exept.de> parents: 656 diff changeset	557	#(1 4 11 2000 20011 200000) do:[:eachSize\|
4f04a8bf19c5 added: #testOrderedCollection07_HeapSortRandomCollection Stefan Vogel <sv@exept.de> parents: 656 diff changeset	558	data := Array new:eachSize.
4f04a8bf19c5 added: #testOrderedCollection07_HeapSortRandomCollection Stefan Vogel <sv@exept.de> parents: 656 diff changeset	559	1 to:data size do:[:i \|
4f04a8bf19c5 added: #testOrderedCollection07_HeapSortRandomCollection Stefan Vogel <sv@exept.de> parents: 656 diff changeset	560	data at:i put:(rg nextIntegerBetween:1 and:100).
4f04a8bf19c5 added: #testOrderedCollection07_HeapSortRandomCollection Stefan Vogel <sv@exept.de> parents: 656 diff changeset	561	].
4f04a8bf19c5 added: #testOrderedCollection07_HeapSortRandomCollection Stefan Vogel <sv@exept.de> parents: 656 diff changeset	562	sorted := data copy heapSort.
4f04a8bf19c5 added: #testOrderedCollection07_HeapSortRandomCollection Stefan Vogel <sv@exept.de> parents: 656 diff changeset	563	self checkSorted:sorted with:checkBlock against:data.
4f04a8bf19c5 added: #testOrderedCollection07_HeapSortRandomCollection Stefan Vogel <sv@exept.de> parents: 656 diff changeset	564	sorted := sorted heapSort.
4f04a8bf19c5 added: #testOrderedCollection07_HeapSortRandomCollection Stefan Vogel <sv@exept.de> parents: 656 diff changeset	565	self checkSorted:sorted with:checkBlock against:data.
4f04a8bf19c5 added: #testOrderedCollection07_HeapSortRandomCollection Stefan Vogel <sv@exept.de> parents: 656 diff changeset	566	sorted := sorted reverse heapSort.
4f04a8bf19c5 added: #testOrderedCollection07_HeapSortRandomCollection Stefan Vogel <sv@exept.de> parents: 656 diff changeset	567	self checkSorted:sorted with:checkBlock against:data.
4f04a8bf19c5 added: #testOrderedCollection07_HeapSortRandomCollection Stefan Vogel <sv@exept.de> parents: 656 diff changeset	568
4f04a8bf19c5 added: #testOrderedCollection07_HeapSortRandomCollection Stefan Vogel <sv@exept.de> parents: 656 diff changeset	569	sorted := data copy heapSort:[:a :b\| a < b].
4f04a8bf19c5 added: #testOrderedCollection07_HeapSortRandomCollection Stefan Vogel <sv@exept.de> parents: 656 diff changeset	570	self checkSorted:sorted with:checkBlock against:data.
4f04a8bf19c5 added: #testOrderedCollection07_HeapSortRandomCollection Stefan Vogel <sv@exept.de> parents: 656 diff changeset	571	].
301 13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	572	! !
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	573
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	574	!CollectionTests methodsFor:'tests-orderedDictionary'!
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	575
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	576	testOrderedDictionary01
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	577	\|d ret\|
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	578
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	579	d := OrderedDictionary new.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	580
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	581	self assert: ( d size == 0 ).
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	582	self assert: ( d isEmpty ).
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	583	self assert: ( d notEmpty not ).
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	584
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	585	d at:'one' put:1.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	586	d at:'two' put:2.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	587	d at:'three' put:3.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	588
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	589	self assert: ( d size == 3 ).
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	590	self assert: ( d isEmpty not).
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	591	self assert: ( d notEmpty ).
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	592
585 440a4221854e added: Claus Gittinger <cg@exept.de> parents: 538 diff changeset	593	self assert:((ret := self collectedDoArgsOf:d) sameContentsAs: #(1 2 3)).
301 13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	594
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	595	self assert: ( (d atIndex:1) == 1 ).
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	596	self assert: ( (d atIndex:2) == 2 ).
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	597	self assert: ( (d atIndex:3) == 3 ).
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	598
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	599	self assert: ( (d first) = ('one'->1) ).
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	600	self assert: ( (d last) = ('three'->3) ).
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	601
585 440a4221854e added: Claus Gittinger <cg@exept.de> parents: 538 diff changeset	602	self assert:((ret := d collect:[:each \| each]) sameContentsAs: #(1 2 3)).
440a4221854e added: Claus Gittinger <cg@exept.de> parents: 538 diff changeset	603	self assert:((ret := d select:[:each \| true]) sameContentsAs: (OrderedDictionary withAssociations:(Array with:('one'->1) with:('two'->2) with:('three'->3)))).
301 13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	604
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	605	self assert: ( d includes:1 ).
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	606	self assert: ( d includes:2 ).
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	607	self assert: ( d includes:3 ).
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	608
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	609	self assert: ( d includesKey:'one' ).
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	610	self assert: ( d includesKey:'two' ).
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	611	self assert: ( d includesKey:'three' ).
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	612
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	613	self assert: ((ret := d removeFirst) = 1).
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	614	self assert: ( d size == 2 ).
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	615	self assert: ((ret := d removeLast) = 3).
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	616	self assert: ( d size == 1 ).
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	617	self assert: ((ret := d removeLast) = 2).
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	618	self assert: ( d size == 0 ).
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	619	self assert: ( d isEmpty ).
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	620	self assert: ( d notEmpty not ).
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	621
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	622	"
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	623	self basicNew testOrderedDictionary01
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	624	"
585 440a4221854e added: Claus Gittinger <cg@exept.de> parents: 538 diff changeset	625
440a4221854e added: Claus Gittinger <cg@exept.de> parents: 538 diff changeset	626	"Modified: / 04-07-2011 / 19:32:34 / cg"
301 13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	627	! !
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	628
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	629	!CollectionTests methodsFor:'tests-orderedSet'!
162 8f53db556b40 * empty log message * Claus Gittinger <cg@exept.de> parents: 157 diff changeset	630
156 2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	631	testOrderedSet01
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	632	\|s v1 v2 v3\|
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	633
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	634	s := OrderedSet new.
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	635	s add:(v1 := 'one').
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	636	s add:(v2 := 'two').
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	637	s add:(v3 := 'three').
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	638
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	639	self assert: ( s size == 3 ).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	640	self assert: ( (s at:1) == v1 ).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	641	self assert: ( (s at:2) == v2 ).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	642	self assert: ( (s at:3) == v3 ).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	643
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	644	self assert: ( s includes:v1 ).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	645	self assert: ( s includes:v2 ).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	646	self assert: ( s includes:v3 ).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	647
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	648	self assert: ( s includes:v1 copy).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	649	self assert: ( s includes:v2 copy).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	650	self assert: ( s includes:v3 copy).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	651
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	652	"already in - adding again should not change things"
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	653	s add:v1.
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	654	self assert: ( s size == 3 ).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	655
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	656	self assert: ( (s at:1) == v1 ).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	657	self assert: ( (s at:2) == v2 ).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	658	self assert: ( (s at:3) == v3 ).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	659
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	660	"set i.e. not identitySet - adding copy should not change things"
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	661	s add:v1 copy.
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	662	self assert: ( s size == 3 ).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	663
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	664	self assert: ( (s at:1) == v1 ).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	665	self assert: ( (s at:2) == v2 ).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	666	self assert: ( (s at:3) == v3 ).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	667
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	668	s remove:v1.
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	669
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	670	self assert: ( s size == 2 ).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	671	self assert: ( (s at:1) == v2 ).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	672	self assert: ( (s at:2) == v3 ).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	673
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	674	self assert: ( s includes:v1 ) not.
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	675	self assert: ( s includes:v2 ).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	676	self assert: ( s includes:v3 ).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	677
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	678	self assert: ( s includes:v1 copy) not.
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	679	self assert: ( s includes:v2 copy).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	680	self assert: ( s includes:v3 copy).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	681
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	682	s add:v1.
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	683
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	684	self assert: ( s size == 3 ).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	685	self assert: ( (s at:1) == v2 ).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	686	self assert: ( (s at:2) == v3 ).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	687	self assert: ( (s at:3) == v1 ).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	688
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	689	self assert: ( s includes:v1 ).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	690	self assert: ( s includes:v2 ).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	691	self assert: ( s includes:v3 ).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	692
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	693	self assert: ( s includes:v1 copy).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	694	self assert: ( s includes:v2 copy).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	695	self assert: ( s includes:v3 copy).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	696
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	697	s removeLast.
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	698
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	699	self assert: ( s size == 2 ).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	700	self assert: ( (s at:1) == v2 ).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	701	self assert: ( (s at:2) == v3 ).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	702
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	703	self assert: ( s includes:v1 ) not.
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	704	self assert: ( s includes:v2 ).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	705	self assert: ( s includes:v3 ).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	706
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	707	self assert: ( s includes:v1 copy) not.
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	708	self assert: ( s includes:v2 copy).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	709	self assert: ( s includes:v3 copy).
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	710
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	711	"
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	712	self basicNew testOrderedSet01
2e935206273c orderedSet tests Claus Gittinger <cg@exept.de> parents: 116 diff changeset	713	"
301 13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	714	!
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	715
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	716	testOrderedSet02
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	717	\|col\|
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	718
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	719	col := OrderedSet new.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	720
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	721	col add:'a'.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	722	col add:'b'.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	723	col add:'c'.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	724	self assert:( col size == 3 ).
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	725	self assert:( Array streamContents:[:s \|
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	726	col do:[:each \| s nextPut:each]
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	727	]
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	728	) = #('a' 'b' 'c' ).
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	729
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	730	"
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	731	self new testOrderedSet02
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	732	"
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	733	!
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	734
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	735	testOrderedSet03
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	736	\|col\|
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	737
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	738	col := OrderedSet new.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	739
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	740	col add:'a'.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	741	col add:'b'.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	742	col add:'c'.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	743	col add:'a'.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	744	col add:'b'.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	745	self assert:( col size == 3 ).
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	746	self assert:( Array streamContents:[:s \|
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	747	col do:[:each \| s nextPut:each]
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	748	]
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	749	) = #('a' 'b' 'c' ).
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	750
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	751	"
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	752	self new testOrderedSet03
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	753	"
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	754	!
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	755
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	756	testOrderedSet04
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	757	\|col\|
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	758
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	759	col := OrderedSet new.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	760
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	761	col add:'a'.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	762	col addFirst:'b'.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	763	col addFirst:'c'.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	764	self assert:( col size == 3 ).
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	765	self assert:( Array streamContents:[:s \|
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	766	col do:[:each \| s nextPut:each]
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	767	]
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	768	) = #('c' 'b' 'a' ).
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	769
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	770	"
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	771	self new testOrderedSet04
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	772	"
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	773	!
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	774
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	775	testOrderedSet05
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	776	\|col\|
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	777
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	778	col := OrderedSet new.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	779
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	780	col add:'a'.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	781	col addFirst:'b'.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	782	col addFirst:'c'.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	783	col add:'a'.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	784	col add:'b'.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	785	col add:'c'.
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	786	self assert:( col size == 3 ).
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	787	self assert:( Array streamContents:[:s \|
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	788	col do:[:each \| s nextPut:each]
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	789	]
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	790	) = #('c' 'b' 'a' ).
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	791
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	792	"
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	793	self new testOrderedSet05
13bbcb92d6c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 297 diff changeset	794	"
264 674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	795	! !
674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	796
297 bfb9ea5cbb19 * empty log message * Claus Gittinger <cg@exept.de> parents: 295 diff changeset	797	!CollectionTests methodsFor:'tests-replace'!
bfb9ea5cbb19 * empty log message * Claus Gittinger <cg@exept.de> parents: 295 diff changeset	798
bfb9ea5cbb19 * empty log message * Claus Gittinger <cg@exept.de> parents: 295 diff changeset	799	testEmptyReplace
bfb9ea5cbb19 * empty log message * Claus Gittinger <cg@exept.de> parents: 295 diff changeset	800	\| array1 array2 \|
bfb9ea5cbb19 * empty log message * Claus Gittinger <cg@exept.de> parents: 295 diff changeset	801
bfb9ea5cbb19 * empty log message * Claus Gittinger <cg@exept.de> parents: 295 diff changeset	802	array1 := Array with: 1 with: 2 with: 3 with: 4.
bfb9ea5cbb19 * empty log message * Claus Gittinger <cg@exept.de> parents: 295 diff changeset	803	array2 := Array with: 5 with: 6 with: 7.
bfb9ea5cbb19 * empty log message * Claus Gittinger <cg@exept.de> parents: 295 diff changeset	804
bfb9ea5cbb19 * empty log message * Claus Gittinger <cg@exept.de> parents: 295 diff changeset	805	array1 replaceFrom:1 to:0 with:array2 startingAt:1.
bfb9ea5cbb19 * empty log message * Claus Gittinger <cg@exept.de> parents: 295 diff changeset	806
bfb9ea5cbb19 * empty log message * Claus Gittinger <cg@exept.de> parents: 295 diff changeset	807	self should: [ array1 = #(1 2 3 4) ].
bfb9ea5cbb19 * empty log message * Claus Gittinger <cg@exept.de> parents: 295 diff changeset	808
bfb9ea5cbb19 * empty log message * Claus Gittinger <cg@exept.de> parents: 295 diff changeset	809	"
bfb9ea5cbb19 * empty log message * Claus Gittinger <cg@exept.de> parents: 295 diff changeset	810	self new testEmptyReplace
bfb9ea5cbb19 * empty log message * Claus Gittinger <cg@exept.de> parents: 295 diff changeset	811	"
538 5b0084e6b4a1 check copyTransliterating: Claus Gittinger <cg@exept.de> parents: 301 diff changeset	812	!
5b0084e6b4a1 check copyTransliterating: Claus Gittinger <cg@exept.de> parents: 301 diff changeset	813
5b0084e6b4a1 check copyTransliterating: Claus Gittinger <cg@exept.de> parents: 301 diff changeset	814	testTransliterating
5b0084e6b4a1 check copyTransliterating: Claus Gittinger <cg@exept.de> parents: 301 diff changeset	815	self assert:( 'abcdefghijkl1234567890' copyTransliterating:'b-g' to:'B-G' ) = 'aBCDEFGhijkl1234567890'.
5b0084e6b4a1 check copyTransliterating: Claus Gittinger <cg@exept.de> parents: 301 diff changeset	816	self assert:( 'abcdefghij-kl1234567890' copyTransliterating:'b\-g' to:'B+G' ) = 'aBcdefGhij+kl1234567890'.
5b0084e6b4a1 check copyTransliterating: Claus Gittinger <cg@exept.de> parents: 301 diff changeset	817	self assert:( 'abcdefghijkl1234567890' copyTransliterating:'69' to:'96' ) = 'abcdefghijkl1234597860' .
5b0084e6b4a1 check copyTransliterating: Claus Gittinger <cg@exept.de> parents: 301 diff changeset	818	self assert:( 'abcdefghijkl1234567890' copyTransliterating:'a' to:'b' ) = 'bbcdefghijkl1234567890' .
5b0084e6b4a1 check copyTransliterating: Claus Gittinger <cg@exept.de> parents: 301 diff changeset	819	self assert:( 'abcdefghijkl1234567890' copyTransliterating:'aeiou' to:'AEIOU' ) = 'AbcdEfghIjkl1234567890'.
5b0084e6b4a1 check copyTransliterating: Claus Gittinger <cg@exept.de> parents: 301 diff changeset	820	self assert:( 'abcdefghijkl1234567890' copyTransliterating:'0-9' to:'QERTYUIOPX' ) = 'abcdefghijklERTYUIOPXQ' .
5b0084e6b4a1 check copyTransliterating: Claus Gittinger <cg@exept.de> parents: 301 diff changeset	821
5b0084e6b4a1 check copyTransliterating: Claus Gittinger <cg@exept.de> parents: 301 diff changeset	822	self assert:( 'abcdefghijkl1234567890' copyTransliterating:'0-9' to:'A' complement:false squashDuplicates:false )
5b0084e6b4a1 check copyTransliterating: Claus Gittinger <cg@exept.de> parents: 301 diff changeset	823	= 'abcdefghijklAAAAAAAAAA'.
5b0084e6b4a1 check copyTransliterating: Claus Gittinger <cg@exept.de> parents: 301 diff changeset	824
5b0084e6b4a1 check copyTransliterating: Claus Gittinger <cg@exept.de> parents: 301 diff changeset	825	self assert:( 'abcdefghijkl1234567890' copyTransliterating:'0-9' to:'A' complement:false squashDuplicates:true )
5b0084e6b4a1 check copyTransliterating: Claus Gittinger <cg@exept.de> parents: 301 diff changeset	826	= 'abcdefghijklA'.
5b0084e6b4a1 check copyTransliterating: Claus Gittinger <cg@exept.de> parents: 301 diff changeset	827
5b0084e6b4a1 check copyTransliterating: Claus Gittinger <cg@exept.de> parents: 301 diff changeset	828	self assert:( 'abcdefghijkl1234567890' copyTransliterating:'0-9' to:'*' complement:false squashDuplicates:false )
5b0084e6b4a1 check copyTransliterating: Claus Gittinger <cg@exept.de> parents: 301 diff changeset	829	= 'abcdefghijkl**********'.
5b0084e6b4a1 check copyTransliterating: Claus Gittinger <cg@exept.de> parents: 301 diff changeset	830
5b0084e6b4a1 check copyTransliterating: Claus Gittinger <cg@exept.de> parents: 301 diff changeset	831	self assert:( 'abcdefghijkl1234567890' copyTransliterating:'0-9' to:'*' complement:true squashDuplicates:false )
5b0084e6b4a1 check copyTransliterating: Claus Gittinger <cg@exept.de> parents: 301 diff changeset	832	= '************1234567890'.
5b0084e6b4a1 check copyTransliterating: Claus Gittinger <cg@exept.de> parents: 301 diff changeset	833
5b0084e6b4a1 check copyTransliterating: Claus Gittinger <cg@exept.de> parents: 301 diff changeset	834	self assert:( 'abcdefghijkl1234567890' copyTransliterating:'a-zA-Z' to:' ' complement:true squashDuplicates:false )
5b0084e6b4a1 check copyTransliterating: Claus Gittinger <cg@exept.de> parents: 301 diff changeset	835	= 'abcdefghijkl '.
5b0084e6b4a1 check copyTransliterating: Claus Gittinger <cg@exept.de> parents: 301 diff changeset	836
5b0084e6b4a1 check copyTransliterating: Claus Gittinger <cg@exept.de> parents: 301 diff changeset	837	self assert:( 'abcdefghijkl1234567890' copyTransliterating:'a-zA-Z' to:' ' complement:false squashDuplicates:false )
5b0084e6b4a1 check copyTransliterating: Claus Gittinger <cg@exept.de> parents: 301 diff changeset	838	= ' 1234567890'.
5b0084e6b4a1 check copyTransliterating: Claus Gittinger <cg@exept.de> parents: 301 diff changeset	839
5b0084e6b4a1 check copyTransliterating: Claus Gittinger <cg@exept.de> parents: 301 diff changeset	840	self assert:( 'abcdefghijkl1234567890abcdefghijkl' copyTransliterating:'a-zA-Z' to:'' complement:false squashDuplicates:false )
5b0084e6b4a1 check copyTransliterating: Claus Gittinger <cg@exept.de> parents: 301 diff changeset	841	= '1234567890'.
5b0084e6b4a1 check copyTransliterating: Claus Gittinger <cg@exept.de> parents: 301 diff changeset	842
5b0084e6b4a1 check copyTransliterating: Claus Gittinger <cg@exept.de> parents: 301 diff changeset	843	self assert:( 'abcdefghijkl1234567890abcdefghijkl' copyTransliterating:'a-zA-Z' to:'' complement:true squashDuplicates:false )
5b0084e6b4a1 check copyTransliterating: Claus Gittinger <cg@exept.de> parents: 301 diff changeset	844	= 'abcdefghijklabcdefghijkl'.
297 bfb9ea5cbb19 * empty log message * Claus Gittinger <cg@exept.de> parents: 295 diff changeset	845	! !
bfb9ea5cbb19 * empty log message * Claus Gittinger <cg@exept.de> parents: 295 diff changeset	846
639 a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	847	!CollectionTests methodsFor:'tests-searching'!
a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	848
a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	849	test_min_max
a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	850	\|a\|
a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	851
a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	852	#(
a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	853	asArray
a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	854	asFloatArray
a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	855	asDoubleArray
a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	856	asSignedIntegerArray
a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	857	) do:[:converter \|
640 331d32a33bcf changed: #test_min_max Claus Gittinger <cg@exept.de> parents: 639 diff changeset	858	\|empty\|
331d32a33bcf changed: #test_min_max Claus Gittinger <cg@exept.de> parents: 639 diff changeset	859
331d32a33bcf changed: #test_min_max Claus Gittinger <cg@exept.de> parents: 639 diff changeset	860	empty := #() perform:converter.
331d32a33bcf changed: #test_min_max Claus Gittinger <cg@exept.de> parents: 639 diff changeset	861	self should:[ empty min ] raise:Error.
331d32a33bcf changed: #test_min_max Claus Gittinger <cg@exept.de> parents: 639 diff changeset	862	self should:[ empty max ] raise:Error.
331d32a33bcf changed: #test_min_max Claus Gittinger <cg@exept.de> parents: 639 diff changeset	863	self should:[ empty minMax ] raise:Error.
331d32a33bcf changed: #test_min_max Claus Gittinger <cg@exept.de> parents: 639 diff changeset	864
639 a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	865	#(
640 331d32a33bcf changed: #test_min_max Claus Gittinger <cg@exept.de> parents: 639 diff changeset	866	(0 0)
331d32a33bcf changed: #test_min_max Claus Gittinger <cg@exept.de> parents: 639 diff changeset	867	(1 1)
331d32a33bcf changed: #test_min_max Claus Gittinger <cg@exept.de> parents: 639 diff changeset	868	(-1 -1)
331d32a33bcf changed: #test_min_max Claus Gittinger <cg@exept.de> parents: 639 diff changeset	869	(0 1)
331d32a33bcf changed: #test_min_max Claus Gittinger <cg@exept.de> parents: 639 diff changeset	870	(1 2)
331d32a33bcf changed: #test_min_max Claus Gittinger <cg@exept.de> parents: 639 diff changeset	871	(-1 -0)
331d32a33bcf changed: #test_min_max Claus Gittinger <cg@exept.de> parents: 639 diff changeset	872	(-1 1)
639 a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	873	(1 10000)
a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	874	(1 10001)
a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	875	(2 10000)
a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	876	(2 10001)
a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	877	(-1000 1000)
a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	878	(-1000 999)
a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	879	) pairsDo:[:min :max \|
a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	880	a := (min to:max) perform:converter.
a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	881	self assert:(a min) = min.
a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	882	self assert:(a max) = max.
a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	883	self assert:(a minMax) = { min. max }.
a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	884
a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	885	a := a reverse.
a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	886	self assert:(a min) = min.
a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	887	self assert:(a max) = max.
a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	888	self assert:(a minMax) = { min. max }.
a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	889
a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	890	a := a randomShuffle.
a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	891	self assert:(a min) = min.
a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	892	self assert:(a max) = max.
a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	893	self assert:(a minMax) = { min. max }.
a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	894	].
a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	895	].
a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	896
a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	897	"Created: / 07-10-2011 / 13:11:36 / cg"
a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	898	! !
a02e4406e10d min max Claus Gittinger <cg@exept.de> parents: 615 diff changeset	899
264 674b1ebcf0cf testing isEmpty Claus Gittinger <cg@exept.de> parents: 212 diff changeset	900	!CollectionTests methodsFor:'tests-sorting'!
212 e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	901
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	902	testSort01
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	903	\| col errs last \|
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	904
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	905	col := SortedCollection new addAll: (100 to: 1 by: -1); yourself.
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	906	last := nil.
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	907	errs := col inject: 0 into:
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	908	[ :totIn :n \| \|totOut\|
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	909
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	910	totOut := totIn.
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	911	last notNil ifTrue: [ last > n ifTrue: [ totOut := totOut + 1 ] ].
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	912	last := n.
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	913	totOut ].
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	914	self should: [ errs = 0 ]
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	915
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	916	"
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	917	self basicNew testSort01
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	918	"
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	919	!
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	920
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	921	testSortStability01
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	922	"Verify that the sort is stable"
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	923
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	924	\| testData col lastTestData errs \|
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	925
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	926	testData := OrderedCollection new.
656 470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	927	testData addAll: ((111 to: 1 by: -1) collect: [ :n \| SortTestData new value: n ]).
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	928	testData addAll: ((111 to: 1 by: -1) collect: [ :n \| SortTestData new value: n ]).
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	929	testData addAll: ((111 to: 1 by: -1) collect: [ :n \| SortTestData new value: n ]).
212 e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	930	1 to: testData size do: [ :i \| (testData at: i) order: i ].
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	931
656 470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	932	col := SortedCollection new sortBlock:[ :v1 :v2 \| v1 value < v2 value ].
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	933	col addAll: testData.
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	934
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	935	self checkSorted:col with:[:v1 :v2 \| v1 value <= v2 value ] against:testData.
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	936
212 e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	937	lastTestData := nil.
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	938
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	939	errs := col inject: 0 into:
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	940	[ :totIn :aSortTestData \| \|totOut\|
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	941	totOut := totIn.
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	942	lastTestData notNil ifTrue:
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	943	[ lastTestData value = aSortTestData value ifTrue:
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	944	[ lastTestData order > aSortTestData order ifTrue: [ totOut := totOut + 1 ] ] ].
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	945	lastTestData := aSortTestData.
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	946	totOut ].
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	947	self should: [ errs = 0 ]
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	948
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	949	"
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	950	self basicNew testSortStability01
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	951	"
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	952	!
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	953
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	954	testSortStability02
656 470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	955	"Verify that the sort is stable"
212 e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	956
656 470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	957	\| testData col lastTestData errs \|
212 e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	958
656 470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	959	testData := OrderedCollection new.
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	960	(25 to: 1 by: -1) do: [ :i \| 1 to: 100 do: [ :j \| testData add: (SortTestData new value: i ) ] ].
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	961	1 to: testData size do: [ :i \| (testData at: i) order: i ].
212 e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	962
656 470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	963	col := SortedCollection new sortBlock: [ :v1 :v2 \| v1 value < v2 value ].
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	964	col addAll: testData.
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	965
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	966	self checkSorted:col with:[:v1 :v2 \| v1 value <= v2 value ] against:testData.
212 e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	967
656 470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	968	lastTestData := nil.
212 e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	969
656 470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	970	errs := col inject: 0 into:
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	971	[ :totIn :aSortTestData \| \|totOut\|
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	972	totOut := totIn.
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	973	lastTestData notNil ifTrue:
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	974	[ lastTestData value = aSortTestData value ifTrue:
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	975	[ lastTestData order > aSortTestData order ifTrue: [ totOut := totOut + 1 ] ] ].
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	976	lastTestData := aSortTestData.
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	977	totOut ].
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	978	self should: [ errs = 0 ]
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	979
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	980	"
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	981	self basicNew testSortStability02
470e994fc84b Fix stability tests (they didn't work after being fixed). Stefan Vogel <sv@exept.de> parents: 655 diff changeset	982	"
212 e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	983	! !
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	984
293 eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	985	!CollectionTests methodsFor:'tests-squeak'!
eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	986
eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	987	testIfEmptyifNotEmpty
eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	988	self assert: (empty ifEmpty: [true] ifNotEmpty: [false]).
eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	989	self assert: (nonEmpty ifEmpty: [false] ifNotEmpty: [true]).
eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	990	self assert: (nonEmpty ifEmpty: [false] ifNotEmpty: [:s \| s first = #x])
eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	991	!
eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	992
eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	993	testIfEmptyifNotEmptyDo
eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	994	self assert: (empty ifEmpty: [true] ifNotEmptyDo: [:s \| false]).
eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	995	self assert: (nonEmpty ifEmpty: [false] ifNotEmptyDo: [:s \| s first = #x])
eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	996	!
eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	997
eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	998	testIfNotEmpty
eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	999	empty ifNotEmpty: [self assert: false].
eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1000	self assert: (nonEmpty ifNotEmpty: [self]) == self.
eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1001	self assert: (nonEmpty ifNotEmpty: [:s \| s first]) = #x
eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1002	!
eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1003
eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1004	testIfNotEmptyDo
eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1005	empty ifNotEmptyDo: [:s \| self assert: false].
eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1006	self assert: (nonEmpty ifNotEmptyDo: [:s \| s first]) = #x
eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1007	!
eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1008
eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1009	testIfNotEmptyDoifNotEmpty
eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1010	self assert: (empty ifNotEmptyDo: [:s \| false] ifEmpty: [true]).
eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1011	self assert: (nonEmpty ifNotEmptyDo: [:s \| s first = #x] ifEmpty: [false])
eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1012	!
eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1013
eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1014	testIfNotEmptyifEmpty
eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1015	self assert: (empty ifEmpty: [true] ifNotEmpty: [false]).
eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1016	self assert: (nonEmpty ifEmpty: [false] ifNotEmpty: [true]).
eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1017	self assert: (nonEmpty ifEmpty: [false] ifNotEmpty: [:s \| s first = #x])
eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1018	! !
eb142b88180a * empty log message * Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1019
212 e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1020	!CollectionTests::SortTestData methodsFor:'accessing'!
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1021
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1022	value
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1023	"Answer the value of the receiver's ''value'' instance variable."
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1024
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1025	^value
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1026	!
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1027
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1028	value: anObject
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1029	"Set the value of the receiver's ''value'' instance variable to the argument, anObject."
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1030
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1031	value := anObject
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1032	! !
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1033
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1034	!CollectionTests::SortTestData methodsFor:'order'!
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1035
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1036	order
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1037	"Answer the value of the receiver's ''order'' instance variable."
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1038
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1039	^order
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1040	!
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1041
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1042	order: anObject
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1043	"Set the value of the receiver's ''order'' instance variable to the argument, anObject."
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1044
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1045	order := anObject
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1046	! !
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1047
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1048	!CollectionTests::SortTestData methodsFor:'printing & storing'!
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1049
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1050	printOn: aStream
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1051	super printOn: aStream.
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1052	aStream
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1053	nextPutAll: '(value: ';
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1054	nextPutAll: value printString;
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1055	nextPutAll: ' order: ';
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1056	nextPutAll: order printString;
e9fd35632b04 added test if sort is stable Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1057	nextPut: $)
115 b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1058	! !
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1059
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1060	!CollectionTests class methodsFor:'documentation'!
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1061
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1062	version
b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1063	^ '$Header$'
640 331d32a33bcf changed: #test_min_max Claus Gittinger <cg@exept.de> parents: 639 diff changeset	1064	!
331d32a33bcf changed: #test_min_max Claus Gittinger <cg@exept.de> parents: 639 diff changeset	1065
331d32a33bcf changed: #test_min_max Claus Gittinger <cg@exept.de> parents: 639 diff changeset	1066	version_CVS
331d32a33bcf changed: #test_min_max Claus Gittinger <cg@exept.de> parents: 639 diff changeset	1067	^ '$Header$'
115 b0ab0ca5b3d5 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1068	! !

author	Stefan Vogel <sv@exept.de>
	Sat, 14 Apr 2012 20:01:29 +0200
changeset 657	4f04a8bf19c5
parent 656	470e994fc84b
child 663	437a6c228d34
permissions	-rw-r--r--