~drgeo-developers/drgeo/trunk

« back to all changes in this revision

Viewing changes to src/System-Locales-Tests.pck.st

  • Committer: Hilaire Fernandes
  • Date: 2022-08-07 09:38:52 UTC
  • Revision ID: hilaire.fernandes@gmail.com-20220807093852-kbalk8ybjj3hqv90
Move in necessary packages

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
'From Cuis 6.0 [latest update: #5090] on 4 March 2022 at 9:31:22 am'!
 
2
'Description '!
 
3
!provides: 'System-Locales-Tests' 1 0!
 
4
SystemOrganization addCategory: 'System-Locales-Tests'!
 
5
 
 
6
 
 
7
!classDefinition: #ISOLanguageDefinitionTest category: 'System-Locales-Tests'!
 
8
TestCase subclass: #ISOLanguageDefinitionTest
 
9
        instanceVariableNames: ''
 
10
        classVariableNames: ''
 
11
        poolDictionaries: 'nil'
 
12
        category: 'System-Locales-Tests'!
 
13
!classDefinition: 'ISOLanguageDefinitionTest class' category: 'System-Locales-Tests'!
 
14
ISOLanguageDefinitionTest class
 
15
        instanceVariableNames: ''!
 
16
 
 
17
!classDefinition: #LocaleIDTest category: 'System-Locales-Tests'!
 
18
TestCase subclass: #LocaleIDTest
 
19
        instanceVariableNames: ''
 
20
        classVariableNames: ''
 
21
        poolDictionaries: 'nil'
 
22
        category: 'System-Locales-Tests'!
 
23
!classDefinition: 'LocaleIDTest class' category: 'System-Locales-Tests'!
 
24
LocaleIDTest class
 
25
        instanceVariableNames: ''!
 
26
 
 
27
!classDefinition: #LocaleTest category: 'System-Locales-Tests'!
 
28
TestCase subclass: #LocaleTest
 
29
        instanceVariableNames: ''
 
30
        classVariableNames: ''
 
31
        poolDictionaries: 'nil'
 
32
        category: 'System-Locales-Tests'!
 
33
!classDefinition: 'LocaleTest class' category: 'System-Locales-Tests'!
 
34
LocaleTest class
 
35
        instanceVariableNames: ''!
 
36
 
 
37
!classDefinition: #NaturalLanguageTranslatorTest category: 'System-Locales-Tests'!
 
38
TestCase subclass: #NaturalLanguageTranslatorTest
 
39
        instanceVariableNames: 'previousRegistered'
 
40
        classVariableNames: ''
 
41
        poolDictionaries: 'nil'
 
42
        category: 'System-Locales-Tests'!
 
43
!classDefinition: 'NaturalLanguageTranslatorTest class' category: 'System-Locales-Tests'!
 
44
NaturalLanguageTranslatorTest class
 
45
        instanceVariableNames: ''!
 
46
 
 
47
!classDefinition: #NameOfSubclass category: 'System-Locales-Tests'!
 
48
Object subclass: #NameOfSubclass
 
49
        instanceVariableNames: ''
 
50
        classVariableNames: ''
 
51
        poolDictionaries: ''
 
52
        category: 'System-Locales-Tests'!
 
53
!classDefinition: 'NameOfSubclass class' category: 'System-Locales-Tests'!
 
54
NameOfSubclass class
 
55
        instanceVariableNames: ''!
 
56
 
 
57
!classDefinition: #RegisterableTranslatorMock category: 'System-Locales-Tests'!
 
58
Object subclass: #RegisterableTranslatorMock
 
59
        instanceVariableNames: 'translations'
 
60
        classVariableNames: ''
 
61
        poolDictionaries: 'nil'
 
62
        category: 'System-Locales-Tests'!
 
63
!classDefinition: 'RegisterableTranslatorMock class' category: 'System-Locales-Tests'!
 
64
RegisterableTranslatorMock class
 
65
        instanceVariableNames: ''!
 
66
 
 
67
 
 
68
!ISOLanguageDefinitionTest commentStamp: '' prior: 0!
 
69
Unit tests on ISO language definitions!
 
70
 
 
71
!LocaleIDTest commentStamp: '' prior: 0!
 
72
A unit test class for class LocaleID!
 
73
 
 
74
!LocaleTest commentStamp: '' prior: 0!
 
75
A unit test class for class Locale!
 
76
 
 
77
!NaturalLanguageTranslatorTest commentStamp: '' prior: 0!
 
78
Tests for NaturalLanguageTranslator!
 
79
 
 
80
!RegisterableTranslatorMock commentStamp: '' prior: 0!
 
81
I'm a mock object to mock a translator!
 
82
 
 
83
!ISOLanguageDefinitionTest methodsFor: 'tests'!
 
84
testISO2LanguageDefinition
 
85
 
 
86
        self 
 
87
                assert: (ISOLanguageDefinition iso2LanguageDefinition: 'de') language equals: 'German';
 
88
                assert: (ISOLanguageDefinition iso2LanguageDefinition: 'fr') language equals: 'French'! !
 
89
 
 
90
!ISOLanguageDefinitionTest methodsFor: 'tests'!
 
91
testISO3LanguageDefinition
 
92
 
 
93
        self 
 
94
                assert: (ISOLanguageDefinition iso3LanguageDefinition: 'deu') language equals: 'German';
 
95
                assert: (ISOLanguageDefinition iso3LanguageDefinition: 'fra') language equals: 'French'! !
 
96
 
 
97
!LocaleIDTest methodsFor: 'tests' stamp: 'hlsf 3/4/2022 09:17:47'!
 
98
testComparision
 
99
 
 
100
        self deny: self germanLocaleID = self frenchLocaleID.
 
101
        self assert: self germanLocaleID equals: self germanLocaleID.   ! !
 
102
 
 
103
!LocaleIDTest methodsFor: 'tests'!
 
104
testFromISOString
 
105
 
 
106
        | locale |
 
107
        locale _ LocaleID isoString: 'en-us'.
 
108
        self 
 
109
                assert: locale isoLanguage equals: 'en';
 
110
                assert: locale isoCountry equals: 'us'! !
 
111
 
 
112
!LocaleIDTest methodsFor: 'tests'!
 
113
testFromSingleISOString
 
114
 
 
115
        | locale |
 
116
        locale _ LocaleID isoString: 'en'.
 
117
        self 
 
118
                assert: locale isoLanguage equals: 'en';
 
119
                assert: locale isoCountry isNil! !
 
120
 
 
121
!LocaleIDTest methodsFor: 'tests'!
 
122
testHashing
 
123
 
 
124
        self assert: self germanLocaleID hash equals: self germanLocaleID hash.
 
125
        self assert: self frenchLocaleID hash equals: self frenchLocaleID hash. 
 
126
! !
 
127
 
 
128
!LocaleIDTest methodsFor: 'tests'!
 
129
testInstanceCreationWithISOLanguage
 
130
 
 
131
        |germanLocale|
 
132
        germanLocale _ LocaleID isoLanguage: 'de'.
 
133
        self assert: germanLocale isoLanguage equals: 'de'! !
 
134
 
 
135
!LocaleIDTest methodsFor: 'tests'!
 
136
testInstanceCreationWithISOLanguageAndCountry
 
137
 
 
138
        |locale|
 
139
        locale _ LocaleID isoLanguage: 'zh' isoCountry: 'CN'.
 
140
        self 
 
141
                assert: locale isoLanguage equals: 'zh';
 
142
                assert: locale isoCountry equals: 'CN'! !
 
143
 
 
144
!LocaleIDTest methodsFor: 'tests'!
 
145
testPosixNameConversion
 
146
 
 
147
        | locale |
 
148
        locale _ LocaleID posixName: 'en_us'.
 
149
        self 
 
150
                assert: locale isoLanguage equals: 'en';
 
151
                assert: locale isoCountry equals: 'us'! !
 
152
 
 
153
!LocaleIDTest methodsFor: 'tests'!
 
154
testPrintString
 
155
 
 
156
        | locale |
 
157
        locale _ LocaleID isoString: 'en-us'.   
 
158
        self assert: locale printString equals: 'en-us'
 
159
! !
 
160
 
 
161
!LocaleIDTest methodsFor: 'tests - test data'!
 
162
frenchLocaleID
 
163
 
 
164
        ^LocaleID isoLanguage: 'fr'! !
 
165
 
 
166
!LocaleIDTest methodsFor: 'tests - test data'!
 
167
germanLocaleID
 
168
 
 
169
        ^LocaleID isoLanguage: 'de'! !
 
170
 
 
171
!LocaleTest methodsFor: 'tests'!
 
172
testCurrent
 
173
 
 
174
        self assert: Locale current notNil
 
175
        ! !
 
176
 
 
177
!NaturalLanguageTranslatorTest methodsFor: 'running'!
 
178
setUp
 
179
 
 
180
        super setUp.
 
181
        previousRegistered _ NaturalLanguageTranslator current! !
 
182
 
 
183
!NaturalLanguageTranslatorTest methodsFor: 'running'!
 
184
tearDown
 
185
 
 
186
        NaturalLanguageTranslator current: previousRegistered.
 
187
        super tearDown! !
 
188
 
 
189
!NaturalLanguageTranslatorTest methodsFor: 'tests'!
 
190
testRegisterCustomTranslator
 
191
 
 
192
        NaturalLanguageTranslator current: RegisterableTranslatorMock new.
 
193
        
 
194
        "Our custom translator translates the string differently"
 
195
        self assert: 'TestCase' translated equals: 'Testfall'
 
196
        
 
197
        ! !
 
198
 
 
199
!NaturalLanguageTranslatorTest methodsFor: 'tests'!
 
200
testTranslatePureString
 
201
 
 
202
        self assert: 'Pharo' translated equals: 'Pharo'! !
 
203
 
 
204
!RegisterableTranslatorMock methodsFor: 'initialization'!
 
205
initialize
 
206
        "Initializes the receiver"
 
207
        
 
208
        super initialize.
 
209
        translations _ Dictionary new.
 
210
        translations at: #'TestCase' put: 'Testfall'! !
 
211
 
 
212
!RegisterableTranslatorMock methodsFor: 'translate'!
 
213
translate: aString
 
214
        "Dispatch to a registered translator to translate the given string or (if there is no translator) return the untranslated string."
 
215
        ^translations at: aString asSymbol ifAbsent: [ aString ] 
 
216
! !
 
217
 
 
218
!RegisterableTranslatorMock methodsFor: 'translate'!
 
219
translate: aString toLocale: localeID
 
220
 
 
221
        ^self translate: aString! !