| author | Jan Vrany <jan.vrany@fit.cvut.cz> |
| Fri, 02 Jul 2010 08:13:17 +0100 | |
| branch | jv |
| changeset 17774 | 479c4d02ad58 |
| child 17786 | e7f6aea89c56 |
| permissions | -rw-r--r-- |
|
17774
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1 |
'From Smalltalk/X, Version:6.1.1 on 02-07-2010 at 08:40:49 AM' ! |
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2 |
|
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
3 |
TestCase subclass:#SelectorNamespacesTests |
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
4 |
instanceVariableNames:'' |
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
5 |
classVariableNames:'' |
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
6 |
poolDictionaries:'' |
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
7 |
category:'Kernel-Tests' |
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
8 |
! |
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
9 |
|
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
10 |
!SelectorNamespacesTests methodsFor:'initialization'! |
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
11 |
|
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
12 |
setUp |
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
13 |
|
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
14 |
ObjectMemory flushCaches |
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
15 |
|
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
16 |
"Created: / 01-07-2010 / 18:49:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
17 |
! ! |
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
18 |
|
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
19 |
!SelectorNamespacesTests methodsFor:'methods'! |
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
20 |
|
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
21 |
foo |
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
22 |
<namespace: #TestNS1 > |
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
23 |
|
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
24 |
^#bar |
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
25 |
|
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
26 |
"Created: / 01-07-2010 / 18:09:55 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
27 |
"Modified: / 01-07-2010 / 20:46:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
28 |
! |
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
29 |
|
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
30 |
foo |
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
31 |
|
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
32 |
^#foo |
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
33 |
|
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
34 |
"Created: / 01-07-2010 / 18:09:55 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
35 |
"Modified: / 01-07-2010 / 20:46:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
36 |
! |
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
37 |
|
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
38 |
qux |
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
39 |
|
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
40 |
<namespace: #TestNS1 > |
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
41 |
|
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
42 |
^self foo |
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
43 |
|
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
44 |
"Created: / 01-07-2010 / 18:47:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
45 |
! ! |
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
46 |
|
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
47 |
!SelectorNamespacesTests methodsFor:'tests'! |
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
48 |
|
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
49 |
test_01 |
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
50 |
|
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
51 |
self assert: self foo == #foo. |
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
52 |
self assert: self qux == #bar |
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
53 |
|
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
54 |
"Created: / 01-07-2010 / 18:47:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
55 |
"Modified: / 01-07-2010 / 20:54:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
56 |
! ! |
|
479c4d02ad58
Selector namespaces tests rewritten, classes renamed.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
57 |