← Back to branch summary

~ubuntu-branches/ubuntu/trusty/libintl-perl/trusty

« back to all changes in this revision

Viewing changes to tests/03environment_xs.t

  • Committer: Package Import Robot
  • Author(s): Peter Eisentraut
  • Date: 2013-06-29 21:23:42 UTC
  • mfrom: (1.2.3)
  • Revision ID: package-import@ubuntu.com-20130629212342-3te0y4h5x26hb79b
Tags: 1.23-1
* New upstream release
* Updated standards version
* Changed to Debhelper level 9
* Added build-arch and build-indep targets
* Fixed application of Debian build flags for hardening

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/03environment_xs.t
 
1
#! /usr/local/bin/perl -w
 
2
 
 
3
# vim: syntax=perl
 
4
# vim: tabstop=4
 
5
 
 
6
use strict;
 
7
 
 
8
use Test;
 
9
 
 
10
use constant NUM_TESTS => 85;
 
11
 
 
12
use Locale::Messages qw (nl_putenv bindtextdomain textdomain gettext);
 
13
require POSIX;
 
14
require File::Spec;
 
15
 
 
16
BEGIN {
 
17
        my $package;
 
18
        if ($0 =~ /_pp\.t$/) {
 
19
                $package = 'gettext_pp';
 
20
        } else {
 
21
                $package = 'gettext_xs';
 
22
        }
 
23
                
 
24
        my $selected = Locale::Messages->select_package ($package);
 
25
        if ($selected ne $package && 'gettext_xs' eq $package) {
 
26
                print "1..0 # Skip: Locale::$package not available here.\n";
 
27
                exit 0;
 
28
        }
 
29
 
 
30
        plan tests => NUM_TESTS;
 
31
}
 
32
 
 
33
# Clean environment first.
 
34
foreach my $var (keys %ENV) {
 
35
    if ('LC_' eq substr $var, 0, 3) {
 
36
        nl_putenv "$var";
 
37
    }
 
38
}
 
39
 
 
40
nl_putenv "LC_ALL=de_DE";
 
41
nl_putenv "LC_MESSAGES=de_DE";
 
42
my $missing_locale = POSIX::setlocale (POSIX::LC_ALL() => '') ?
 
43
    '' : 'locale de_DE missing';
 
44
POSIX::setlocale (POSIX::LC_ALL() => 'C');
 
45
 
 
46
my $locale_dir = $0;
 
47
$locale_dir =~ s,[^\\/]+$,, or $locale_dir = '.';
 
48
$locale_dir .= '/LocaleData';
 
49
 
 
50
my $textdomain = 'existing';
 
51
my $bound_dir = bindtextdomain $textdomain => $locale_dir;
 
52
 
 
53
ok defined $bound_dir;
 
54
ok (File::Spec->catdir ($bound_dir), File::Spec->catdir ($locale_dir));
 
55
 
 
56
my $bound_domain = textdomain $textdomain;
 
57
 
 
58
ok defined $bound_domain;
 
59
ok $bound_domain, $textdomain;
 
60
 
 
61
nl_putenv 'LANGUAGE';
 
62
nl_putenv 'LANG';
 
63
nl_putenv 'LC_MESSAGES';
 
64
nl_putenv 'LC_ALL';
 
65
POSIX::setlocale (POSIX::LC_ALL(), '');
 
66
skip $missing_locale, gettext ('May'), 'May';
 
67
 
 
68
nl_putenv 'LANGUAGE';
 
69
nl_putenv 'LANG';
 
70
nl_putenv 'LC_MESSAGES';
 
71
nl_putenv 'LC_ALL=C';
 
72
POSIX::setlocale (POSIX::LC_ALL(), '');
 
73
skip $missing_locale, gettext ('May'), 'May';
 
74
 
 
75
nl_putenv 'LANGUAGE';
 
76
nl_putenv 'LANG';
 
77
nl_putenv 'LC_MESSAGES';
 
78
nl_putenv 'LC_ALL=de_DE';
 
79
POSIX::setlocale (POSIX::LC_ALL(), '');
 
80
skip $missing_locale, gettext ('May'), 'Mai';
 
81
 
 
82
nl_putenv 'LANGUAGE';
 
83
nl_putenv 'LANG';
 
84
nl_putenv 'LC_MESSAGES=C';
 
85
nl_putenv 'LC_ALL';
 
86
POSIX::setlocale (POSIX::LC_ALL(), '');
 
87
skip $missing_locale, gettext ('May'), 'May';
 
88
 
 
89
nl_putenv 'LANGUAGE';
 
90
nl_putenv 'LANG';
 
91
nl_putenv 'LC_MESSAGES=C';
 
92
nl_putenv 'LC_ALL=C';
 
93
POSIX::setlocale (POSIX::LC_ALL(), '');
 
94
skip $missing_locale, gettext ('May'), 'May';
 
95
 
 
96
nl_putenv 'LANGUAGE';
 
97
nl_putenv 'LANG';
 
98
nl_putenv 'LC_MESSAGES=C';
 
99
nl_putenv 'LC_ALL=de_DE';
 
100
POSIX::setlocale (POSIX::LC_ALL(), '');
 
101
skip $missing_locale, gettext ('May'), 'Mai';
 
102
 
 
103
nl_putenv 'LANGUAGE';
 
104
nl_putenv 'LANG';
 
105
nl_putenv 'LC_MESSAGES=de_DE';
 
106
nl_putenv 'LC_ALL';
 
107
POSIX::setlocale (POSIX::LC_ALL(), '');
 
108
skip $missing_locale, gettext ('May'), 'Mai';
 
109
 
 
110
nl_putenv 'LANGUAGE';
 
111
nl_putenv 'LANG';
 
112
nl_putenv 'LC_MESSAGES=de_DE';
 
113
nl_putenv 'LC_ALL=C';
 
114
POSIX::setlocale (POSIX::LC_ALL(), '');
 
115
skip $missing_locale, gettext ('May'), 'May';
 
116
 
 
117
nl_putenv 'LANGUAGE';
 
118
nl_putenv 'LANG';
 
119
nl_putenv 'LC_MESSAGES=de_DE';
 
120
nl_putenv 'LC_ALL=de_DE';
 
121
POSIX::setlocale (POSIX::LC_ALL(), '');
 
122
skip $missing_locale, gettext ('May'), 'Mai';
 
123
 
 
124
nl_putenv 'LANGUAGE';
 
125
nl_putenv 'LANG=C';
 
126
nl_putenv 'LC_MESSAGES';
 
127
nl_putenv 'LC_ALL';
 
128
POSIX::setlocale (POSIX::LC_ALL(), '');
 
129
skip $missing_locale, gettext ('May'), 'May';
 
130
 
 
131
nl_putenv 'LANGUAGE';
 
132
nl_putenv 'LANG=C';
 
133
nl_putenv 'LC_MESSAGES';
 
134
nl_putenv 'LC_ALL=C';
 
135
POSIX::setlocale (POSIX::LC_ALL(), '');
 
136
skip $missing_locale, gettext ('May'), 'May';
 
137
 
 
138
nl_putenv 'LANGUAGE';
 
139
nl_putenv 'LANG=C';
 
140
nl_putenv 'LC_MESSAGES';
 
141
nl_putenv 'LC_ALL=de_DE';
 
142
POSIX::setlocale (POSIX::LC_ALL(), '');
 
143
skip $missing_locale, gettext ('May'), 'Mai';
 
144
 
 
145
nl_putenv 'LANGUAGE';
 
146
nl_putenv 'LANG=C';
 
147
nl_putenv 'LC_MESSAGES=C';
 
148
nl_putenv 'LC_ALL';
 
149
POSIX::setlocale (POSIX::LC_ALL(), '');
 
150
skip $missing_locale, gettext ('May'), 'May';
 
151
 
 
152
nl_putenv 'LANGUAGE';
 
153
nl_putenv 'LANG=C';
 
154
nl_putenv 'LC_MESSAGES=C';
 
155
nl_putenv 'LC_ALL=C';
 
156
POSIX::setlocale (POSIX::LC_ALL(), '');
 
157
skip $missing_locale, gettext ('May'), 'May';
 
158
 
 
159
nl_putenv 'LANGUAGE';
 
160
nl_putenv 'LANG=C';
 
161
nl_putenv 'LC_MESSAGES=C';
 
162
nl_putenv 'LC_ALL=de_DE';
 
163
POSIX::setlocale (POSIX::LC_ALL(), '');
 
164
skip $missing_locale, gettext ('May'), 'Mai';
 
165
 
 
166
nl_putenv 'LANGUAGE';
 
167
nl_putenv 'LANG=C';
 
168
nl_putenv 'LC_MESSAGES=de_DE';
 
169
nl_putenv 'LC_ALL';
 
170
POSIX::setlocale (POSIX::LC_ALL(), '');
 
171
skip $missing_locale, gettext ('May'), 'Mai';
 
172
 
 
173
nl_putenv 'LANGUAGE';
 
174
nl_putenv 'LANG=C';
 
175
nl_putenv 'LC_MESSAGES=de_DE';
 
176
nl_putenv 'LC_ALL=C';
 
177
POSIX::setlocale (POSIX::LC_ALL(), '');
 
178
skip $missing_locale, gettext ('May'), 'May';
 
179
 
 
180
nl_putenv 'LANGUAGE';
 
181
nl_putenv 'LANG=C';
 
182
nl_putenv 'LC_MESSAGES=de_DE';
 
183
nl_putenv 'LC_ALL=de_DE';
 
184
POSIX::setlocale (POSIX::LC_ALL(), '');
 
185
skip $missing_locale, gettext ('May'), 'Mai';
 
186
 
 
187
nl_putenv 'LANGUAGE';
 
188
nl_putenv 'LANG=de_DE';
 
189
nl_putenv 'LC_MESSAGES';
 
190
nl_putenv 'LC_ALL';
 
191
POSIX::setlocale (POSIX::LC_ALL(), '');
 
192
skip $missing_locale, gettext ('May'), 'Mai';
 
193
 
 
194
nl_putenv 'LANGUAGE';
 
195
nl_putenv 'LANG=de_DE';
 
196
nl_putenv 'LC_MESSAGES';
 
197
nl_putenv 'LC_ALL=C';
 
198
POSIX::setlocale (POSIX::LC_ALL(), '');
 
199
skip $missing_locale, gettext ('May'), 'May';
 
200
 
 
201
nl_putenv 'LANGUAGE';
 
202
nl_putenv 'LANG=de_DE';
 
203
nl_putenv 'LC_MESSAGES';
 
204
nl_putenv 'LC_ALL=de_DE';
 
205
POSIX::setlocale (POSIX::LC_ALL(), '');
 
206
skip $missing_locale, gettext ('May'), 'Mai';
 
207
 
 
208
nl_putenv 'LANGUAGE';
 
209
nl_putenv 'LANG=de_DE';
 
210
nl_putenv 'LC_MESSAGES=C';
 
211
nl_putenv 'LC_ALL';
 
212
POSIX::setlocale (POSIX::LC_ALL(), '');
 
213
skip $missing_locale, gettext ('May'), 'May';
 
214
 
 
215
nl_putenv 'LANGUAGE';
 
216
nl_putenv 'LANG=de_DE';
 
217
nl_putenv 'LC_MESSAGES=C';
 
218
nl_putenv 'LC_ALL=C';
 
219
POSIX::setlocale (POSIX::LC_ALL(), '');
 
220
skip $missing_locale, gettext ('May'), 'May';
 
221
 
 
222
nl_putenv 'LANGUAGE';
 
223
nl_putenv 'LANG=de_DE';
 
224
nl_putenv 'LC_MESSAGES=C';
 
225
nl_putenv 'LC_ALL=de_DE';
 
226
POSIX::setlocale (POSIX::LC_ALL(), '');
 
227
skip $missing_locale, gettext ('May'), 'Mai';
 
228
 
 
229
nl_putenv 'LANGUAGE';
 
230
nl_putenv 'LANG=de_DE';
 
231
nl_putenv 'LC_MESSAGES=de_DE';
 
232
nl_putenv 'LC_ALL';
 
233
POSIX::setlocale (POSIX::LC_ALL(), '');
 
234
skip $missing_locale, gettext ('May'), 'Mai';
 
235
 
 
236
nl_putenv 'LANGUAGE';
 
237
nl_putenv 'LANG=de_DE';
 
238
nl_putenv 'LC_MESSAGES=de_DE';
 
239
nl_putenv 'LC_ALL=C';
 
240
POSIX::setlocale (POSIX::LC_ALL(), '');
 
241
skip $missing_locale, gettext ('May'), 'May';
 
242
 
 
243
nl_putenv 'LANGUAGE';
 
244
nl_putenv 'LANG=de_DE';
 
245
nl_putenv 'LC_MESSAGES=de_DE';
 
246
nl_putenv 'LC_ALL=de_DE';
 
247
POSIX::setlocale (POSIX::LC_ALL(), '');
 
248
skip $missing_locale, gettext ('May'), 'Mai';
 
249
 
 
250
nl_putenv 'LANGUAGE=C';
 
251
nl_putenv 'LANG';
 
252
nl_putenv 'LC_MESSAGES';
 
253
nl_putenv 'LC_ALL';
 
254
POSIX::setlocale (POSIX::LC_ALL(), '');
 
255
skip $missing_locale, gettext ('May'), 'May';
 
256
 
 
257
nl_putenv 'LANGUAGE=C';
 
258
nl_putenv 'LANG';
 
259
nl_putenv 'LC_MESSAGES';
 
260
nl_putenv 'LC_ALL=C';
 
261
POSIX::setlocale (POSIX::LC_ALL(), '');
 
262
skip $missing_locale, gettext ('May'), 'May';
 
263
 
 
264
nl_putenv 'LANGUAGE=C';
 
265
nl_putenv 'LANG';
 
266
nl_putenv 'LC_MESSAGES';
 
267
nl_putenv 'LC_ALL=de_DE';
 
268
POSIX::setlocale (POSIX::LC_ALL(), '');
 
269
skip $missing_locale, gettext ('May'), 'May';
 
270
 
 
271
nl_putenv 'LANGUAGE=C';
 
272
nl_putenv 'LANG';
 
273
nl_putenv 'LC_MESSAGES=C';
 
274
nl_putenv 'LC_ALL';
 
275
POSIX::setlocale (POSIX::LC_ALL(), '');
 
276
skip $missing_locale, gettext ('May'), 'May';
 
277
 
 
278
nl_putenv 'LANGUAGE=C';
 
279
nl_putenv 'LANG';
 
280
nl_putenv 'LC_MESSAGES=C';
 
281
nl_putenv 'LC_ALL=C';
 
282
POSIX::setlocale (POSIX::LC_ALL(), '');
 
283
skip $missing_locale, gettext ('May'), 'May';
 
284
 
 
285
nl_putenv 'LANGUAGE=C';
 
286
nl_putenv 'LANG';
 
287
nl_putenv 'LC_MESSAGES=C';
 
288
nl_putenv 'LC_ALL=de_DE';
 
289
POSIX::setlocale (POSIX::LC_ALL(), '');
 
290
skip $missing_locale, gettext ('May'), 'May';
 
291
 
 
292
nl_putenv 'LANGUAGE=C';
 
293
nl_putenv 'LANG';
 
294
nl_putenv 'LC_MESSAGES=de_DE';
 
295
nl_putenv 'LC_ALL';
 
296
POSIX::setlocale (POSIX::LC_ALL(), '');
 
297
skip $missing_locale, gettext ('May'), 'May';
 
298
 
 
299
nl_putenv 'LANGUAGE=C';
 
300
nl_putenv 'LANG';
 
301
nl_putenv 'LC_MESSAGES=de_DE';
 
302
nl_putenv 'LC_ALL=C';
 
303
POSIX::setlocale (POSIX::LC_ALL(), '');
 
304
skip $missing_locale, gettext ('May'), 'May';
 
305
 
 
306
nl_putenv 'LANGUAGE=C';
 
307
nl_putenv 'LANG';
 
308
nl_putenv 'LC_MESSAGES=de_DE';
 
309
nl_putenv 'LC_ALL=de_DE';
 
310
POSIX::setlocale (POSIX::LC_ALL(), '');
 
311
skip $missing_locale, gettext ('May'), 'May';
 
312
 
 
313
nl_putenv 'LANGUAGE=C';
 
314
nl_putenv 'LANG=C';
 
315
nl_putenv 'LC_MESSAGES';
 
316
nl_putenv 'LC_ALL';
 
317
POSIX::setlocale (POSIX::LC_ALL(), '');
 
318
skip $missing_locale, gettext ('May'), 'May';
 
319
 
 
320
nl_putenv 'LANGUAGE=C';
 
321
nl_putenv 'LANG=C';
 
322
nl_putenv 'LC_MESSAGES';
 
323
nl_putenv 'LC_ALL=C';
 
324
POSIX::setlocale (POSIX::LC_ALL(), '');
 
325
skip $missing_locale, gettext ('May'), 'May';
 
326
 
 
327
nl_putenv 'LANGUAGE=C';
 
328
nl_putenv 'LANG=C';
 
329
nl_putenv 'LC_MESSAGES';
 
330
nl_putenv 'LC_ALL=de_DE';
 
331
POSIX::setlocale (POSIX::LC_ALL(), '');
 
332
skip $missing_locale, gettext ('May'), 'May';
 
333
 
 
334
nl_putenv 'LANGUAGE=C';
 
335
nl_putenv 'LANG=C';
 
336
nl_putenv 'LC_MESSAGES=C';
 
337
nl_putenv 'LC_ALL';
 
338
POSIX::setlocale (POSIX::LC_ALL(), '');
 
339
skip $missing_locale, gettext ('May'), 'May';
 
340
 
 
341
nl_putenv 'LANGUAGE=C';
 
342
nl_putenv 'LANG=C';
 
343
nl_putenv 'LC_MESSAGES=C';
 
344
nl_putenv 'LC_ALL=C';
 
345
POSIX::setlocale (POSIX::LC_ALL(), '');
 
346
skip $missing_locale, gettext ('May'), 'May';
 
347
 
 
348
nl_putenv 'LANGUAGE=C';
 
349
nl_putenv 'LANG=C';
 
350
nl_putenv 'LC_MESSAGES=C';
 
351
nl_putenv 'LC_ALL=de_DE';
 
352
POSIX::setlocale (POSIX::LC_ALL(), '');
 
353
skip $missing_locale, gettext ('May'), 'May';
 
354
 
 
355
nl_putenv 'LANGUAGE=C';
 
356
nl_putenv 'LANG=C';
 
357
nl_putenv 'LC_MESSAGES=de_DE';
 
358
nl_putenv 'LC_ALL';
 
359
POSIX::setlocale (POSIX::LC_ALL(), '');
 
360
skip $missing_locale, gettext ('May'), 'May';
 
361
 
 
362
nl_putenv 'LANGUAGE=C';
 
363
nl_putenv 'LANG=C';
 
364
nl_putenv 'LC_MESSAGES=de_DE';
 
365
nl_putenv 'LC_ALL=C';
 
366
POSIX::setlocale (POSIX::LC_ALL(), '');
 
367
skip $missing_locale, gettext ('May'), 'May';
 
368
 
 
369
nl_putenv 'LANGUAGE=C';
 
370
nl_putenv 'LANG=C';
 
371
nl_putenv 'LC_MESSAGES=de_DE';
 
372
nl_putenv 'LC_ALL=de_DE';
 
373
POSIX::setlocale (POSIX::LC_ALL(), '');
 
374
skip $missing_locale, gettext ('May'), 'May';
 
375
 
 
376
nl_putenv 'LANGUAGE=C';
 
377
nl_putenv 'LANG=de_DE';
 
378
nl_putenv 'LC_MESSAGES';
 
379
nl_putenv 'LC_ALL';
 
380
POSIX::setlocale (POSIX::LC_ALL(), '');
 
381
skip $missing_locale, gettext ('May'), 'May';
 
382
 
 
383
nl_putenv 'LANGUAGE=C';
 
384
nl_putenv 'LANG=de_DE';
 
385
nl_putenv 'LC_MESSAGES';
 
386
nl_putenv 'LC_ALL=C';
 
387
POSIX::setlocale (POSIX::LC_ALL(), '');
 
388
skip $missing_locale, gettext ('May'), 'May';
 
389
 
 
390
nl_putenv 'LANGUAGE=C';
 
391
nl_putenv 'LANG=de_DE';
 
392
nl_putenv 'LC_MESSAGES';
 
393
nl_putenv 'LC_ALL=de_DE';
 
394
POSIX::setlocale (POSIX::LC_ALL(), '');
 
395
skip $missing_locale, gettext ('May'), 'May';
 
396
 
 
397
nl_putenv 'LANGUAGE=C';
 
398
nl_putenv 'LANG=de_DE';
 
399
nl_putenv 'LC_MESSAGES=C';
 
400
nl_putenv 'LC_ALL';
 
401
POSIX::setlocale (POSIX::LC_ALL(), '');
 
402
skip $missing_locale, gettext ('May'), 'May';
 
403
 
 
404
nl_putenv 'LANGUAGE=C';
 
405
nl_putenv 'LANG=de_DE';
 
406
nl_putenv 'LC_MESSAGES=C';
 
407
nl_putenv 'LC_ALL=C';
 
408
POSIX::setlocale (POSIX::LC_ALL(), '');
 
409
skip $missing_locale, gettext ('May'), 'May';
 
410
 
 
411
nl_putenv 'LANGUAGE=C';
 
412
nl_putenv 'LANG=de_DE';
 
413
nl_putenv 'LC_MESSAGES=C';
 
414
nl_putenv 'LC_ALL=de_DE';
 
415
POSIX::setlocale (POSIX::LC_ALL(), '');
 
416
skip $missing_locale, gettext ('May'), 'May';
 
417
 
 
418
nl_putenv 'LANGUAGE=C';
 
419
nl_putenv 'LANG=de_DE';
 
420
nl_putenv 'LC_MESSAGES=de_DE';
 
421
nl_putenv 'LC_ALL';
 
422
POSIX::setlocale (POSIX::LC_ALL(), '');
 
423
skip $missing_locale, gettext ('May'), 'May';
 
424
 
 
425
nl_putenv 'LANGUAGE=C';
 
426
nl_putenv 'LANG=de_DE';
 
427
nl_putenv 'LC_MESSAGES=de_DE';
 
428
nl_putenv 'LC_ALL=C';
 
429
POSIX::setlocale (POSIX::LC_ALL(), '');
 
430
skip $missing_locale, gettext ('May'), 'May';
 
431
 
 
432
nl_putenv 'LANGUAGE=C';
 
433
nl_putenv 'LANG=de_DE';
 
434
nl_putenv 'LC_MESSAGES=de_DE';
 
435
nl_putenv 'LC_ALL=de_DE';
 
436
POSIX::setlocale (POSIX::LC_ALL(), '');
 
437
skip $missing_locale, gettext ('May'), 'May';
 
438
 
 
439
nl_putenv 'LANGUAGE=de_DE';
 
440
nl_putenv 'LANG';
 
441
nl_putenv 'LC_MESSAGES';
 
442
nl_putenv 'LC_ALL';
 
443
POSIX::setlocale (POSIX::LC_ALL(), '');
 
444
skip $missing_locale, gettext ('May'), 'May';
 
445
 
 
446
nl_putenv 'LANGUAGE=de_DE';
 
447
nl_putenv 'LANG';
 
448
nl_putenv 'LC_MESSAGES';
 
449
nl_putenv 'LC_ALL=C';
 
450
POSIX::setlocale (POSIX::LC_ALL(), '');
 
451
skip $missing_locale, gettext ('May'), 'May';
 
452
 
 
453
nl_putenv 'LANGUAGE=de_DE';
 
454
nl_putenv 'LANG';
 
455
nl_putenv 'LC_MESSAGES';
 
456
nl_putenv 'LC_ALL=de_DE';
 
457
POSIX::setlocale (POSIX::LC_ALL(), '');
 
458
skip $missing_locale, gettext ('May'), 'Mai';
 
459
 
 
460
nl_putenv 'LANGUAGE=de_DE';
 
461
nl_putenv 'LANG';
 
462
nl_putenv 'LC_MESSAGES=C';
 
463
nl_putenv 'LC_ALL';
 
464
POSIX::setlocale (POSIX::LC_ALL(), '');
 
465
skip $missing_locale, gettext ('May'), 'May';
 
466
 
 
467
nl_putenv 'LANGUAGE=de_DE';
 
468
nl_putenv 'LANG';
 
469
nl_putenv 'LC_MESSAGES=C';
 
470
nl_putenv 'LC_ALL=C';
 
471
POSIX::setlocale (POSIX::LC_ALL(), '');
 
472
skip $missing_locale, gettext ('May'), 'May';
 
473
 
 
474
nl_putenv 'LANGUAGE=de_DE';
 
475
nl_putenv 'LANG';
 
476
nl_putenv 'LC_MESSAGES=C';
 
477
nl_putenv 'LC_ALL=de_DE';
 
478
POSIX::setlocale (POSIX::LC_ALL(), '');
 
479
skip $missing_locale, gettext ('May'), 'Mai';
 
480
 
 
481
nl_putenv 'LANGUAGE=de_DE';
 
482
nl_putenv 'LANG';
 
483
nl_putenv 'LC_MESSAGES=de_DE';
 
484
nl_putenv 'LC_ALL';
 
485
POSIX::setlocale (POSIX::LC_ALL(), '');
 
486
skip $missing_locale, gettext ('May'), 'Mai';
 
487
 
 
488
nl_putenv 'LANGUAGE=de_DE';
 
489
nl_putenv 'LANG';
 
490
nl_putenv 'LC_MESSAGES=de_DE';
 
491
nl_putenv 'LC_ALL=C';
 
492
POSIX::setlocale (POSIX::LC_ALL(), '');
 
493
skip $missing_locale, gettext ('May'), 'May';
 
494
 
 
495
nl_putenv 'LANGUAGE=de_DE';
 
496
nl_putenv 'LANG';
 
497
nl_putenv 'LC_MESSAGES=de_DE';
 
498
nl_putenv 'LC_ALL=de_DE';
 
499
POSIX::setlocale (POSIX::LC_ALL(), '');
 
500
skip $missing_locale, gettext ('May'), 'Mai';
 
501
 
 
502
nl_putenv 'LANGUAGE=de_DE';
 
503
nl_putenv 'LANG=C';
 
504
nl_putenv 'LC_MESSAGES';
 
505
nl_putenv 'LC_ALL';
 
506
POSIX::setlocale (POSIX::LC_ALL(), '');
 
507
skip $missing_locale, gettext ('May'), 'May';
 
508
 
 
509
nl_putenv 'LANGUAGE=de_DE';
 
510
nl_putenv 'LANG=C';
 
511
nl_putenv 'LC_MESSAGES';
 
512
nl_putenv 'LC_ALL=C';
 
513
POSIX::setlocale (POSIX::LC_ALL(), '');
 
514
skip $missing_locale, gettext ('May'), 'May';
 
515
 
 
516
nl_putenv 'LANGUAGE=de_DE';
 
517
nl_putenv 'LANG=C';
 
518
nl_putenv 'LC_MESSAGES';
 
519
nl_putenv 'LC_ALL=de_DE';
 
520
POSIX::setlocale (POSIX::LC_ALL(), '');
 
521
skip $missing_locale, gettext ('May'), 'Mai';
 
522
 
 
523
nl_putenv 'LANGUAGE=de_DE';
 
524
nl_putenv 'LANG=C';
 
525
nl_putenv 'LC_MESSAGES=C';
 
526
nl_putenv 'LC_ALL';
 
527
POSIX::setlocale (POSIX::LC_ALL(), '');
 
528
skip $missing_locale, gettext ('May'), 'May';
 
529
 
 
530
nl_putenv 'LANGUAGE=de_DE';
 
531
nl_putenv 'LANG=C';
 
532
nl_putenv 'LC_MESSAGES=C';
 
533
nl_putenv 'LC_ALL=C';
 
534
POSIX::setlocale (POSIX::LC_ALL(), '');
 
535
skip $missing_locale, gettext ('May'), 'May';
 
536
 
 
537
nl_putenv 'LANGUAGE=de_DE';
 
538
nl_putenv 'LANG=C';
 
539
nl_putenv 'LC_MESSAGES=C';
 
540
nl_putenv 'LC_ALL=de_DE';
 
541
POSIX::setlocale (POSIX::LC_ALL(), '');
 
542
skip $missing_locale, gettext ('May'), 'Mai';
 
543
 
 
544
nl_putenv 'LANGUAGE=de_DE';
 
545
nl_putenv 'LANG=C';
 
546
nl_putenv 'LC_MESSAGES=de_DE';
 
547
nl_putenv 'LC_ALL';
 
548
POSIX::setlocale (POSIX::LC_ALL(), '');
 
549
skip $missing_locale, gettext ('May'), 'Mai';
 
550
 
 
551
nl_putenv 'LANGUAGE=de_DE';
 
552
nl_putenv 'LANG=C';
 
553
nl_putenv 'LC_MESSAGES=de_DE';
 
554
nl_putenv 'LC_ALL=C';
 
555
POSIX::setlocale (POSIX::LC_ALL(), '');
 
556
skip $missing_locale, gettext ('May'), 'May';
 
557
 
 
558
nl_putenv 'LANGUAGE=de_DE';
 
559
nl_putenv 'LANG=C';
 
560
nl_putenv 'LC_MESSAGES=de_DE';
 
561
nl_putenv 'LC_ALL=de_DE';
 
562
POSIX::setlocale (POSIX::LC_ALL(), '');
 
563
skip $missing_locale, gettext ('May'), 'Mai';
 
564
 
 
565
nl_putenv 'LANGUAGE=de_DE';
 
566
nl_putenv 'LANG=de_DE';
 
567
nl_putenv 'LC_MESSAGES';
 
568
nl_putenv 'LC_ALL';
 
569
POSIX::setlocale (POSIX::LC_ALL(), '');
 
570
skip $missing_locale, gettext ('May'), 'Mai';
 
571
 
 
572
nl_putenv 'LANGUAGE=de_DE';
 
573
nl_putenv 'LANG=de_DE';
 
574
nl_putenv 'LC_MESSAGES';
 
575
nl_putenv 'LC_ALL=C';
 
576
POSIX::setlocale (POSIX::LC_ALL(), '');
 
577
skip $missing_locale, gettext ('May'), 'May';
 
578
 
 
579
nl_putenv 'LANGUAGE=de_DE';
 
580
nl_putenv 'LANG=de_DE';
 
581
nl_putenv 'LC_MESSAGES';
 
582
nl_putenv 'LC_ALL=de_DE';
 
583
POSIX::setlocale (POSIX::LC_ALL(), '');
 
584
skip $missing_locale, gettext ('May'), 'Mai';
 
585
 
 
586
nl_putenv 'LANGUAGE=de_DE';
 
587
nl_putenv 'LANG=de_DE';
 
588
nl_putenv 'LC_MESSAGES=C';
 
589
nl_putenv 'LC_ALL';
 
590
POSIX::setlocale (POSIX::LC_ALL(), '');
 
591
skip $missing_locale, gettext ('May'), 'May';
 
592
 
 
593
nl_putenv 'LANGUAGE=de_DE';
 
594
nl_putenv 'LANG=de_DE';
 
595
nl_putenv 'LC_MESSAGES=C';
 
596
nl_putenv 'LC_ALL=C';
 
597
POSIX::setlocale (POSIX::LC_ALL(), '');
 
598
skip $missing_locale, gettext ('May'), 'May';
 
599
 
 
600
nl_putenv 'LANGUAGE=de_DE';
 
601
nl_putenv 'LANG=de_DE';
 
602
nl_putenv 'LC_MESSAGES=C';
 
603
nl_putenv 'LC_ALL=de_DE';
 
604
POSIX::setlocale (POSIX::LC_ALL(), '');
 
605
skip $missing_locale, gettext ('May'), 'Mai';
 
606
 
 
607
nl_putenv 'LANGUAGE=de_DE';
 
608
nl_putenv 'LANG=de_DE';
 
609
nl_putenv 'LC_MESSAGES=de_DE';
 
610
nl_putenv 'LC_ALL';
 
611
POSIX::setlocale (POSIX::LC_ALL(), '');
 
612
skip $missing_locale, gettext ('May'), 'Mai';
 
613
 
 
614
nl_putenv 'LANGUAGE=de_DE';
 
615
nl_putenv 'LANG=de_DE';
 
616
nl_putenv 'LC_MESSAGES=de_DE';
 
617
nl_putenv 'LC_ALL=C';
 
618
POSIX::setlocale (POSIX::LC_ALL(), '');
 
619
skip $missing_locale, gettext ('May'), 'May';
 
620
 
 
621
nl_putenv 'LANGUAGE=de_DE';
 
622
nl_putenv 'LANG=de_DE';
 
623
nl_putenv 'LC_MESSAGES=de_DE';
 
624
nl_putenv 'LC_ALL=de_DE';
 
625
POSIX::setlocale (POSIX::LC_ALL(), '');
 
626
skip $missing_locale, gettext ('May'), 'Mai';
 
627
 
 
628
__END__
 
629
 
 
630
Local Variables:
 
631
mode: perl
 
632
perl-indent-level: 4
 
633
perl-continued-statement-offset: 4
 
634
perl-continued-brace-offset: 0
 
635
perl-brace-offset: -4
 
636
perl-brace-imaginary-offset: 0
 
637
perl-label-offset: -4
 
638
cperl-indent-level: 4
 
639
cperl-continued-statement-offset: 2
 
640
tab-width: 4
 
641
End: