author | Patrik Svestka <patrik.svestka@gmail.com> |
Tue, 09 Apr 2019 11:18:28 +0200 | |
branch | jv |
changeset 2214 | ba58ef8a6214 |
parent 1567 | e17701a073f9 |
permissions | -rwxr-xr-x |
1447 | 1 |
"{ Package: 'stx:goodies/regression' }" |
294 | 2 |
|
3 |
"{ NameSpace: RegressionTests }" |
|
4 |
||
5 |
TestCase subclass:#AssociationTests |
|
6 |
instanceVariableNames:'empty nonEmpty a b' |
|
7 |
classVariableNames:'' |
|
8 |
poolDictionaries:'' |
|
9 |
category:'tests-Regression' |
|
10 |
! |
|
11 |
||
12 |
||
588 | 13 |
!AssociationTests class methodsFor:'others'! |
14 |
||
15 |
version_CVS |
|
16 |
^ '$Header$' |
|
17 |
! ! |
|
18 |
||
19 |
!AssociationTests class methodsFor:'queries'! |
|
20 |
||
21 |
coveredClassNames |
|
22 |
^ #( Association ) |
|
23 |
||
24 |
"Created: / 06-07-2011 / 21:28:33 / cg" |
|
25 |
! ! |
|
26 |
||
294 | 27 |
!AssociationTests methodsFor:'initialize-release'! |
28 |
||
29 |
setUp |
|
30 |
a := 1 -> 'one'. |
|
31 |
b := 1 -> 'een'. |
|
32 |
! ! |
|
33 |
||
34 |
!AssociationTests methodsFor:'tests-associations'! |
|
35 |
||
36 |
testEquality |
|
37 |
||
38 |
self |
|
39 |
assert: (a key = b key); |
|
40 |
deny: (a value = b value); |
|
41 |
deny: (a = b) |
|
42 |
! |
|
43 |
||
687 | 44 |
testEquality2 |
45 |
|a1 a2| |
|
46 |
||
47 |
a1 := 10->100. |
|
48 |
a2 := 10->100. |
|
49 |
self assert: (a1 = a2) |
|
50 |
! |
|
51 |
||
294 | 52 |
testHash |
53 |
||
54 |
self |
|
55 |
assert: (a hash = a copy hash); |
|
56 |
deny: (a hash = b hash) |
|
588 | 57 |
! |
58 |
||
59 |
testPrinting |
|
60 |
self assert:(a printString = '1->one'). |
|
61 |
||
62 |
"Created: / 06-07-2011 / 21:37:59 / cg" |
|
294 | 63 |
! ! |
64 |
||
65 |
!AssociationTests class methodsFor:'documentation'! |
|
66 |
||
67 |
version |
|
68 |
^ '$Header$' |
|
69 |
! ! |
|
1567
e17701a073f9
Added abstract VMSpawningTestCase
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1447
diff
changeset
|
70 |