equal
deleted
inserted
replaced
1 " |
1 " |
2 COPYRIGHT (c) 2006 by eXept Software AG |
2 COPYRIGHT (c) 2006 by eXept Software AG |
3 All Rights Reserved |
3 All Rights Reserved |
4 |
4 |
5 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
6 only in accordance with the terms of that license and with the |
6 only in accordance with the terms of that license and with the |
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 "{ Package: 'exept:regression' }" |
12 "{ Package: 'stx:goodies/regression' }" |
13 |
13 |
14 "{ NameSpace: RegressionTests }" |
14 "{ NameSpace: RegressionTests }" |
15 |
15 |
16 TestCase subclass:#SelectorNamespacesTests |
16 TestCase subclass:#SelectorNamespacesTests |
17 instanceVariableNames:'ambiguousMessageSelector' |
17 instanceVariableNames:'ambiguousMessageSelector' |
23 !SelectorNamespacesTests class methodsFor:'documentation'! |
23 !SelectorNamespacesTests class methodsFor:'documentation'! |
24 |
24 |
25 copyright |
25 copyright |
26 " |
26 " |
27 COPYRIGHT (c) 2006 by eXept Software AG |
27 COPYRIGHT (c) 2006 by eXept Software AG |
28 All Rights Reserved |
28 All Rights Reserved |
29 |
29 |
30 This software is furnished under a license and may be used |
30 This software is furnished under a license and may be used |
31 only in accordance with the terms of that license and with the |
31 only in accordance with the terms of that license and with the |
32 inclusion of the above copyright notice. This software may not |
32 inclusion of the above copyright notice. This software may not |
33 be provided or otherwise made available to, or used by, any |
33 be provided or otherwise made available to, or used by, any |
136 |
136 |
137 test_02 |
137 test_02 |
138 |
138 |
139 "Basic imports" |
139 "Basic imports" |
140 |
140 |
141 self assert: |
141 self assert: |
142 ((NameSpace name: #TestNS3) imports includes: (NameSpace name: #TestNS2)). |
142 ((NameSpace name: #TestNS3) imports includes: (NameSpace name: #TestNS2)). |
143 self assert: self baz == #foo_NS2. |
143 self assert: self baz == #foo_NS2. |
144 |
144 |
145 "Created: / 21-07-2010 / 16:05:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
145 "Created: / 21-07-2010 / 16:05:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
146 "Modified: / 21-07-2010 / 17:19:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
146 "Modified: / 21-07-2010 / 17:19:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
147 ! |
147 ! |
148 |
148 |
149 test_03 |
149 test_03 |
150 |
150 |
151 "Ambiguous send" |
151 "Ambiguous send" |
152 "Disable, I need a kind of unwind-protect on a C level. |
152 "Disable, I need a kind of unwind-protect on a C level. |
153 Is that possible?" |
153 Is that possible?" |
154 |
154 |
155 self shouldnt:[self qux] raise: AmbiguousMessage. |
155 self shouldnt:[self qux] raise: AmbiguousMessage. |
156 self assert: ambiguousMessageSelector == #foo. |
156 self assert: ambiguousMessageSelector == #foo. |
157 |
157 |
158 "Created: / 19-08-2010 / 22:28:19 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
158 "Created: / 19-08-2010 / 22:28:19 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
159 ! ! |
159 ! ! |