equal
deleted
inserted
replaced
8 poolDictionaries:'' |
8 poolDictionaries:'' |
9 category:'tests-Regression-Collections' |
9 category:'tests-Regression-Collections' |
10 ! |
10 ! |
11 |
11 |
12 |
12 |
13 !TSTreeTests methodsFor:'as yet unclassified'! |
13 !TSTreeTests methodsFor:'initialize / release'! |
|
14 |
|
15 setUp |
|
16 tree := self tstreeClass new. |
|
17 self words shuffled do:[:ea | |
|
18 tree at:ea put:ea asUppercase |
|
19 ]. |
|
20 empty := self tstreeClass new. |
|
21 ! ! |
|
22 |
|
23 !TSTreeTests methodsFor:'tests'! |
14 |
24 |
15 testAt |
25 testAt |
16 self assert: (tree at: 'abear') = 'ABEAR'. |
26 self assert: (tree at: 'abear') = 'ABEAR'. |
17 self assert: (tree at: 'abelmosk') = 'ABELMOSK'. |
27 self assert: (tree at: 'abelmosk') = 'ABELMOSK'. |
18 self assert: (tree at: 'abracadabra' ifAbsent: [42]) = 42. |
28 self assert: (tree at: 'abracadabra' ifAbsent: [42]) = 42. |
94 aberuncator |
104 aberuncator |
95 abet |
105 abet |
96 abetment) |
106 abetment) |
97 ! ! |
107 ! ! |
98 |
108 |
99 !TSTreeTests methodsFor:'initialize / release'! |
|
100 |
|
101 setUp |
|
102 tree := self tstreeClass new. |
|
103 self words shuffled do:[:ea | |
|
104 tree at:ea put:ea asUppercase |
|
105 ]. |
|
106 empty := self tstreeClass new. |
|
107 ! ! |
|
108 |
|
109 !TSTreeTests class methodsFor:'documentation'! |
109 !TSTreeTests class methodsFor:'documentation'! |
110 |
110 |
111 version |
111 version |
112 ^ '$Header$' |
112 ^ '$Header$' |
113 ! |
113 ! |