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 |
237 | 1 |
"{ Encoding: utf8 }" |
2 |
||
1447 | 3 |
"{ Package: 'stx:goodies/regression' }" |
237 | 4 |
|
271 | 5 |
"{ NameSpace: RegressionTests }" |
6 |
||
237 | 7 |
Object subclass:#UTF8TestClass |
8 |
instanceVariableNames:'' |
|
9 |
classVariableNames:'' |
|
10 |
poolDictionaries:'' |
|
583 | 11 |
category:'tests-Regression' |
237 | 12 |
! |
13 |
||
14 |
||
583 | 15 |
!UTF8TestClass class methodsFor:'others'! |
16 |
||
17 |
version_CVS |
|
18 |
^ '$Header$' |
|
19 |
! ! |
|
20 |
||
237 | 21 |
!UTF8TestClass methodsFor:'tests'! |
22 |
||
23 |
someJapaneseButton |
|
24 |
(Button label:'日本') open |
|
25 |
||
26 |
" |
|
27 |
self new someJapaneseButton |
|
28 |
" |
|
29 |
! |
|
30 |
||
31 |
someJapaneseString |
|
32 |
^ '日本' |
|
33 |
! ! |
|
34 |
||
35 |
!UTF8TestClass class methodsFor:'documentation'! |
|
36 |
||
37 |
version |
|
38 |
^ '$Header$' |
|
39 |
! ! |
|
1567
e17701a073f9
Added abstract VMSpawningTestCase
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1447
diff
changeset
|
40 |