dlls/msvcrt/tests/locale.c

   1 /*
   2  * Unit test suite for locale functions.
   3  *
   4  * Copyright 2010 Piotr Caban for CodeWeavers
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  19  */
  20
  21 #include <locale.h>
  22
  23 #include "wine/test.h"
  24 #include "winnls.h"
  25
  26 static BOOL (__cdecl *p__crtGetStringTypeW)(DWORD, DWORD, const wchar_t*, int, WORD*);
  27 static int (__cdecl *pmemcpy_s)(void *, size_t, void*, size_t);
  28
  29 static void init(void)
  30 {
  31     HMODULE hmod = GetModuleHandleA("msvcrt.dll");
  32
  33     p__crtGetStringTypeW = (void*)GetProcAddress(hmod, "__crtGetStringTypeW");
  34     pmemcpy_s = (void*)GetProcAddress(hmod, "memcpy_s");
  35 }
  36
  37 static void test_setlocale(void)
  38 {
  39     static const char lc_all[] = "LC_COLLATE=C;LC_CTYPE=C;"
  40         "LC_MONETARY=Greek_Greece.1253;LC_NUMERIC=Polish_Poland.1250;LC_TIME=C";
  41
  42     char *ret, buf[100];
  43
  44     ret = setlocale(20, "C");
  45     ok(ret == NULL, "ret = %s\n", ret);
  46
  47     ret = setlocale(LC_ALL, "");
  48     ok(ret != NULL, "ret == NULL\n");
  49
  50     ret = setlocale(LC_ALL, "C");
  51     ok(!strcmp(ret, "C"), "ret = %s\n", ret);
  52
  53     ret = setlocale(LC_ALL, NULL);
  54     ok(!strcmp(ret, "C"), "ret = %s\n", ret);
  55
  56     if(!setlocale(LC_NUMERIC, "Polish")
  57             || !setlocale(LC_NUMERIC, "Greek")
  58             || !setlocale(LC_NUMERIC, "German")
  59             || !setlocale(LC_NUMERIC, "English")) {
  60         win_skip("System with limited locales\n");
  61         return;
  62     }
  63
  64     ret = setlocale(LC_NUMERIC, "Polish");
  65     ok(!strcmp(ret, "Polish_Poland.1250"), "ret = %s\n", ret);
  66
  67     ret = setlocale(LC_MONETARY, "Greek");
  68     ok(!strcmp(ret, "Greek_Greece.1253"), "ret = %s\n", ret);
  69
  70     ret = setlocale(LC_ALL, NULL);
  71     ok(!strcmp(ret, lc_all), "ret = %s\n", ret);
  72
  73     strcpy(buf, ret);
  74     ret = setlocale(LC_ALL, buf);
  75     ok(!strcmp(ret, lc_all), "ret = %s\n", ret);
  76
  77     ret = setlocale(LC_ALL, "German");
  78     ok(!strcmp(ret, "German_Germany.1252"), "ret = %s\n", ret);
  79
  80     ret = setlocale(LC_ALL, "american");
  81     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
  82     if(ret)
  83         ok(!strcmp(ret, "English_United States.1252"), "ret = %s\n", ret);
  84
  85     ret = setlocale(LC_ALL, "american english");
  86     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
  87     if(ret)
  88         ok(!strcmp(ret, "English_United States.1252"), "ret = %s\n", ret);
  89
  90     ret = setlocale(LC_ALL, "american-english");
  91     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
  92     if(ret)
  93         ok(!strcmp(ret, "English_United States.1252"), "ret = %s\n", ret);
  94
  95     ret = setlocale(LC_ALL, "australian");
  96     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
  97     if(ret)
  98         ok(!strcmp(ret, "English_Australia.1252"), "ret = %s\n", ret);
  99
 100     ret = setlocale(LC_ALL, "belgian");
 101     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 102     if(ret)
 103         ok(!strcmp(ret, "Dutch_Belgium.1252"), "ret = %s\n", ret);
 104
 105     ret = setlocale(LC_ALL, "canadian");
 106     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 107     if(ret)
 108         ok(!strcmp(ret, "English_Canada.1252"), "ret = %s\n", ret);
 109
 110     ret = setlocale(LC_ALL, "chinese");
 111     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 112     if(ret)
 113         ok(!strcmp(ret, "Chinese (Simplified)_People's Republic of China.936")
 114         || broken(!strcmp(ret, "Chinese_Taiwan.950")), "ret = %s\n", ret);
 115
 116     ret = setlocale(LC_ALL, "chinese-simplified");
 117     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 118     if(ret)
 119         ok(!strcmp(ret, "Chinese (Simplified)_People's Republic of China.936")
 120         || broken(!strcmp(ret, "Chinese_People's Republic of China.936"))
 121         || broken(!strcmp(ret, "Chinese_Taiwan.950")), "ret = %s\n", ret);
 122
 123     ret = setlocale(LC_ALL, "chinese-traditional");
 124     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 125     if(ret)
 126         ok(!strcmp(ret, "Chinese (Traditional)_Taiwan.950")
 127         || broken(!strcmp(ret, "Chinese_Taiwan.950")), "ret = %s\n", ret);
 128
 129     ret = setlocale(LC_ALL, "chs");
 130     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 131     if(ret)
 132         ok(!strcmp(ret, "Chinese (Simplified)_People's Republic of China.936")
 133         || broken(!strcmp(ret, "Chinese_People's Republic of China.936")), "ret = %s\n", ret);
 134
 135     ret = setlocale(LC_ALL, "cht");
 136     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 137     if(ret)
 138         ok(!strcmp(ret, "Chinese (Traditional)_Taiwan.950")
 139         || broken(!strcmp(ret, "Chinese_Taiwan.950")), "ret = %s\n", ret);
 140
 141     ret = setlocale(LC_ALL, "csy");
 142     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 143     if(ret)
 144         ok(!strcmp(ret, "Czech_Czech Republic.1250"), "ret = %s\n", ret);
 145
 146     ret = setlocale(LC_ALL, "czech");
 147     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 148     if(ret)
 149         ok(!strcmp(ret, "Czech_Czech Republic.1250"), "ret = %s\n", ret);
 150
 151     ret = setlocale(LC_ALL, "dan");
 152     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 153     if(ret)
 154         ok(!strcmp(ret, "Danish_Denmark.1252"), "ret = %s\n", ret);
 155
 156     ret = setlocale(LC_ALL, "danish");
 157     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 158     if(ret)
 159         ok(!strcmp(ret, "Danish_Denmark.1252"), "ret = %s\n", ret);
 160
 161     ret = setlocale(LC_ALL, "dea");
 162     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 163     if(ret)
 164         ok(!strcmp(ret, "German_Austria.1252"), "ret = %s\n", ret);
 165
 166     ret = setlocale(LC_ALL, "des");
 167     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 168     if(ret)
 169         ok(!strcmp(ret, "German_Switzerland.1252"), "ret = %s\n", ret);
 170
 171     ret = setlocale(LC_ALL, "deu");
 172     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 173     if(ret)
 174         ok(!strcmp(ret, "German_Germany.1252"), "ret = %s\n", ret);
 175
 176     ret = setlocale(LC_ALL, "dutch");
 177     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 178     if(ret)
 179         ok(!strcmp(ret, "Dutch_Netherlands.1252"), "ret = %s\n", ret);
 180
 181     ret = setlocale(LC_ALL, "dutch-belgian");
 182     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 183     if(ret)
 184         ok(!strcmp(ret, "Dutch_Belgium.1252")
 185         || broken(!strcmp(ret, "Dutch_Netherlands.1252")), "ret = %s\n", ret);
 186
 187     ret = setlocale(LC_ALL, "ena");
 188     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 189     if(ret)
 190         ok(!strcmp(ret, "English_Australia.1252")
 191         || broken(!strcmp(ret, "English_United States.1252")), "ret = %s\n", ret);
 192
 193     ret = setlocale(LC_ALL, "ell");
 194     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 195     if(ret)
 196         ok(!strcmp(ret, "Greek_Greece.1253"), "ret = %s\n", ret);
 197
 198     ret = setlocale(LC_ALL, "enc");
 199     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 200     if(ret)
 201         ok(!strcmp(ret, "English_Canada.1252")
 202         || broken(!strcmp(ret, "English_United States.1252")), "ret = %s\n", ret);
 203
 204     ret = setlocale(LC_ALL, "eng");
 205     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 206     if(ret)
 207         ok(!strcmp(ret, "English_United Kingdom.1252")
 208         || broken(!strcmp(ret, "English_United States.1252")), "ret = %s\n", ret);
 209
 210     ret = setlocale(LC_ALL, "enu");
 211     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 212     if(ret)
 213         ok(!strcmp(ret, "English_United States.1252"), "ret = %s\n", ret);
 214
 215     ret = setlocale(LC_ALL, "enz");
 216     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 217     if(ret)
 218         ok(!strcmp(ret, "English_New Zealand.1252")
 219         || broken(!strcmp(ret, "English_United States.1252")), "ret = %s\n", ret);
 220
 221     ret = setlocale(LC_ALL, "english");
 222     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 223     if(ret)
 224         ok(!strcmp(ret, "English_United States.1252"), "ret = %s\n", ret);
 225
 226     ret = setlocale(LC_ALL, "english-american");
 227     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 228     if(ret)
 229         ok(!strcmp(ret, "English_United States.1252"), "ret = %s\n", ret);
 230
 231     ret = setlocale(LC_ALL, "english-aus");
 232     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 233     if(ret)
 234         ok(!strcmp(ret, "English_Australia.1252")
 235         || broken(!strcmp(ret, "English_United States.1252")), "ret = %s\n", ret);
 236
 237     ret = setlocale(LC_ALL, "english-can");
 238     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 239     if(ret)
 240         ok(!strcmp(ret, "English_Canada.1252")
 241         || broken(!strcmp(ret, "English_United States.1252")), "ret = %s\n", ret);
 242
 243     ret = setlocale(LC_ALL, "english-nz");
 244     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 245     if(ret)
 246         ok(!strcmp(ret, "English_New Zealand.1252")
 247         || broken(!strcmp(ret, "English_United States.1252")), "ret = %s\n", ret);
 248
 249     ret = setlocale(LC_ALL, "english-uk");
 250     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 251     if(ret)
 252         ok(!strcmp(ret, "English_United Kingdom.1252")
 253         || broken(!strcmp(ret, "English_United States.1252")), "ret = %s\n", ret);
 254
 255     ret = setlocale(LC_ALL, "english-us");
 256     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 257     if(ret)
 258         ok(!strcmp(ret, "English_United States.1252"), "ret = %s\n", ret);
 259
 260     ret = setlocale(LC_ALL, "english-usa");
 261     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 262     if(ret)
 263         ok(!strcmp(ret, "English_United States.1252"), "ret = %s\n", ret);
 264
 265     ret = setlocale(LC_ALL, "esm");
 266     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 267     if(ret)
 268         ok(!strcmp(ret, "Spanish_Mexico.1252"), "ret = %s\n", ret);
 269
 270     ret = setlocale(LC_ALL, "esn");
 271     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 272     if(ret)
 273         ok(!strcmp(ret, "Spanish_Spain.1252")
 274         || broken(!strcmp(ret, "Spanish - Modern Sort_Spain.1252")), "ret = %s\n", ret);
 275
 276     ret = setlocale(LC_ALL, "esp");
 277     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 278     if(ret)
 279         ok(!strcmp(ret, "Spanish_Spain.1252")
 280         || broken(!strcmp(ret, "Spanish - Traditional Sort_Spain.1252")), "ret = %s\n", ret);
 281
 282     ret = setlocale(LC_ALL, "fin");
 283     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 284     if(ret)
 285         ok(!strcmp(ret, "Finnish_Finland.1252"), "ret = %s\n", ret);
 286
 287     ret = setlocale(LC_ALL, "finnish");
 288     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 289     if(ret)
 290         ok(!strcmp(ret, "Finnish_Finland.1252"), "ret = %s\n", ret);
 291
 292     ret = setlocale(LC_ALL, "fra");
 293     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 294     if(ret)
 295         ok(!strcmp(ret, "French_France.1252"), "ret = %s\n", ret);
 296
 297     ret = setlocale(LC_ALL, "frb");
 298     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 299     if(ret)
 300         ok(!strcmp(ret, "French_Belgium.1252")
 301         || broken(!strcmp(ret, "French_France.1252")), "ret = %s\n", ret);
 302
 303     ret = setlocale(LC_ALL, "frc");
 304     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 305     if(ret)
 306         ok(!strcmp(ret, "French_Canada.1252")
 307         || broken(!strcmp(ret, "French_France.1252")), "ret = %s\n", ret);
 308
 309     ret = setlocale(LC_ALL, "french");
 310     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 311     if(ret)
 312         ok(!strcmp(ret, "French_France.1252"), "ret = %s\n", ret);
 313
 314     ret = setlocale(LC_ALL, "french-belgian");
 315     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 316     if(ret)
 317         ok(!strcmp(ret, "French_Belgium.1252")
 318         || broken(!strcmp(ret, "French_France.1252")), "ret = %s\n", ret);
 319
 320     ret = setlocale(LC_ALL, "french-canadian");
 321     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 322     if(ret)
 323         ok(!strcmp(ret, "French_Canada.1252")
 324         || broken(!strcmp(ret, "French_France.1252")), "ret = %s\n", ret);
 325
 326     ret = setlocale(LC_ALL, "french-swiss");
 327     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 328     if(ret)
 329         ok(!strcmp(ret, "French_Switzerland.1252")
 330         || broken(!strcmp(ret, "French_France.1252")), "ret = %s\n", ret);
 331
 332     ret = setlocale(LC_ALL, "frs");
 333     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 334     if(ret)
 335         ok(!strcmp(ret, "French_Switzerland.1252")
 336         || broken(!strcmp(ret, "French_France.1252")), "ret = %s\n", ret);
 337
 338     ret = setlocale(LC_ALL, "german");
 339     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 340     if(ret)
 341         ok(!strcmp(ret, "German_Germany.1252"), "ret = %s\n", ret);
 342
 343     ret = setlocale(LC_ALL, "german-austrian");
 344     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 345     if(ret)
 346         ok(!strcmp(ret, "German_Austria.1252")
 347         || broken(!strcmp(ret, "German_Germany.1252")), "ret = %s\n", ret);
 348
 349     ret = setlocale(LC_ALL, "german-swiss");
 350     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 351     if(ret)
 352         ok(!strcmp(ret, "German_Switzerland.1252")
 353         || broken(!strcmp(ret, "German_Germany.1252")), "ret = %s\n", ret);
 354
 355     ret = setlocale(LC_ALL, "greek");
 356     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 357     if(ret)
 358         ok(!strcmp(ret, "Greek_Greece.1253"), "ret = %s\n", ret);
 359
 360     ret = setlocale(LC_ALL, "hun");
 361     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 362     if(ret)
 363         ok(!strcmp(ret, "Hungarian_Hungary.1250"), "ret = %s\n", ret);
 364
 365     ret = setlocale(LC_ALL, "hungarian");
 366     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 367     if(ret)
 368         ok(!strcmp(ret, "Hungarian_Hungary.1250"), "ret = %s\n", ret);
 369
 370     ret = setlocale(LC_ALL, "icelandic");
 371     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 372     if(ret)
 373         ok(!strcmp(ret, "Icelandic_Iceland.1252"), "ret = %s\n", ret);
 374
 375     ret = setlocale(LC_ALL, "isl");
 376     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 377     if(ret)
 378         ok(!strcmp(ret, "Icelandic_Iceland.1252"), "ret = %s\n", ret);
 379
 380     ret = setlocale(LC_ALL, "ita");
 381     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 382     if(ret)
 383         ok(!strcmp(ret, "Italian_Italy.1252"), "ret = %s\n", ret);
 384
 385     ret = setlocale(LC_ALL, "italian");
 386     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 387     if(ret)
 388         ok(!strcmp(ret, "Italian_Italy.1252"), "ret = %s\n", ret);
 389
 390     ret = setlocale(LC_ALL, "italian-swiss");
 391     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 392     if(ret)
 393         ok(!strcmp(ret, "Italian_Switzerland.1252")
 394         || broken(!strcmp(ret, "Italian_Italy.1252")), "ret = %s\n", ret);
 395
 396     ret = setlocale(LC_ALL, "its");
 397     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 398     if(ret)
 399         ok(!strcmp(ret, "Italian_Switzerland.1252")
 400         || broken(!strcmp(ret, "Italian_Italy.1252")), "ret = %s\n", ret);
 401
 402     ret = setlocale(LC_ALL, "japanese");
 403     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 404     if(ret)
 405         ok(!strcmp(ret, "Japanese_Japan.932"), "ret = %s\n", ret);
 406
 407     ret = setlocale(LC_ALL, "jpn");
 408     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 409     if(ret)
 410         ok(!strcmp(ret, "Japanese_Japan.932"), "ret = %s\n", ret);
 411
 412     ret = setlocale(LC_ALL, "korean");
 413     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 414     if(ret)
 415         ok(!strcmp(ret, "Korean_Korea.949"), "ret = %s\n", ret);
 416
 417     ret = setlocale(LC_ALL, "korean");
 418     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 419     if(ret)
 420         ok(!strcmp(ret, "Korean_Korea.949"), "ret = %s\n", ret);
 421
 422     ret = setlocale(LC_ALL, "nlb");
 423     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 424     if(ret)
 425         ok(!strcmp(ret, "Dutch_Belgium.1252")
 426         || broken(!strcmp(ret, "Dutch_Netherlands.1252")), "ret = %s\n", ret);
 427
 428     ret = setlocale(LC_ALL, "nld");
 429     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 430     if(ret)
 431         ok(!strcmp(ret, "Dutch_Netherlands.1252"), "ret = %s\n", ret);
 432
 433     ret = setlocale(LC_ALL, "non");
 434     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 435     if(ret)
 436         ok(!strcmp( ret, "Norwegian-Nynorsk_Norway.1252")
 437         || !strcmp(ret, "Norwegian (Nynorsk)_Norway.1252")
 438         || broken(!strcmp(ret, "Norwegian (Bokm\xe5l)_Norway.1252"))
 439         || broken(!strcmp(ret, "Norwegian_Norway.1252")), "ret = %s\n", ret);
 440
 441     ret = setlocale(LC_ALL, "nor");
 442     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 443     if(ret)
 444         ok(!strcmp(ret, "Norwegian (Bokm\xe5l)_Norway.1252")
 445         || !strcmp(ret, "Norwegian (Bokmal)_Norway.1252")
 446         || broken(!strcmp(ret, "Norwegian_Norway.1252")), "ret = %s\n", ret);
 447
 448     ret = setlocale(LC_ALL, "norwegian-bokmal");
 449     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 450     if(ret)
 451         ok(!strcmp(ret, "Norwegian (Bokm\xe5l)_Norway.1252")
 452         || !strcmp(ret, "Norwegian (Bokmal)_Norway.1252")
 453         || broken(!strcmp(ret, "Norwegian_Norway.1252")), "ret = %s\n", ret);
 454
 455     ret = setlocale(LC_ALL, "norwegian-nynorsk");
 456     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 457     if(ret)
 458         ok(!strcmp(ret, "Norwegian-Nynorsk_Norway.1252")
 459         || !strcmp(ret, "Norwegian (Nynorsk)_Norway.1252")
 460         || broken(!strcmp(ret, "Norwegian_Norway.1252"))
 461         || broken(!strcmp(ret, "Norwegian (Bokmal)_Norway.1252"))
 462         || broken(!strcmp(ret, "Norwegian (Bokm\xe5l)_Norway.1252")), "ret = %s\n", ret);
 463
 464     ret = setlocale(LC_ALL, "plk");
 465     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 466     if(ret)
 467         ok(!strcmp(ret, "Polish_Poland.1250"), "ret = %s\n", ret);
 468
 469     ret = setlocale(LC_ALL, "polish");
 470     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 471     if(ret)
 472         ok(!strcmp(ret, "Polish_Poland.1250"), "ret = %s\n", ret);
 473
 474     ret = setlocale(LC_ALL, "portugese");
 475     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 476     if(ret)
 477         ok(!strcmp(ret, "Portuguese_Brazil.1252"), "ret = %s\n", ret);
 478
 479     ret = setlocale(LC_ALL, "portuguese-brazil");
 480     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 481     if(ret)
 482         ok(!strcmp(ret, "Portuguese_Brazil.1252"), "ret = %s\n", ret);
 483
 484     ret = setlocale(LC_ALL, "ptb");
 485     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 486     if(ret)
 487         ok(!strcmp(ret, "Portuguese_Brazil.1252"), "ret = %s\n", ret);
 488
 489     ret = setlocale(LC_ALL, "ptg");
 490     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 491     if(ret)
 492         ok(!strcmp(ret, "Portuguese_Portugal.1252"), "ret = %s\n", ret);
 493
 494     ret = setlocale(LC_ALL, "rus");
 495     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 496     if(ret)
 497         ok(!strcmp(ret, "Russian_Russia.1251"), "ret = %s\n", ret);
 498
 499     ret = setlocale(LC_ALL, "russian");
 500     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 501     if(ret)
 502         ok(!strcmp(ret, "Russian_Russia.1251"), "ret = %s\n", ret);
 503
 504     ret = setlocale(LC_ALL, "sky");
 505     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 506     if(ret)
 507         ok(!strcmp(ret, "Slovak_Slovakia.1250"), "ret = %s\n", ret);
 508
 509     ret = setlocale(LC_ALL, "slovak");
 510     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 511     if(ret)
 512         ok(!strcmp(ret, "Slovak_Slovakia.1250"), "ret = %s\n", ret);
 513
 514     ret = setlocale(LC_ALL, "spanish");
 515     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 516     if(ret)
 517         ok(!strcmp(ret, "Spanish_Spain.1252")
 518         || broken(!strcmp(ret, "Spanish - Traditional Sort_Spain.1252")), "ret = %s\n", ret);
 519
 520     ret = setlocale(LC_ALL, "spanish-mexican");
 521     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 522     if(ret)
 523         ok(!strcmp(ret, "Spanish_Mexico.1252")
 524         || broken(!strcmp(ret, "Spanish_Spain.1252")), "ret = %s\n", ret);
 525
 526     ret = setlocale(LC_ALL, "spanish-modern");
 527     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 528     if(ret)
 529         ok(!strcmp(ret, "Spanish - Modern Sort_Spain.1252")
 530            || !strcmp(ret, "Spanish_Spain.1252"), "ret = %s\n", ret);
 531
 532     ret = setlocale(LC_ALL, "sve");
 533     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 534     if(ret)
 535         ok(!strcmp(ret, "Swedish_Sweden.1252"), "ret = %s\n", ret);
 536
 537     ret = setlocale(LC_ALL, "swedish");
 538     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 539     if(ret)
 540         ok(!strcmp(ret, "Swedish_Sweden.1252"), "ret = %s\n", ret);
 541
 542     ret = setlocale(LC_ALL, "swiss");
 543     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 544     if(ret)
 545         ok(!strcmp(ret, "German_Switzerland.1252"), "ret = %s\n", ret);
 546
 547     ret = setlocale(LC_ALL, "trk");
 548     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 549     if(ret)
 550         ok(!strcmp(ret, "Turkish_Turkey.1254"), "ret = %s\n", ret);
 551
 552     ret = setlocale(LC_ALL, "turkish");
 553     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 554     if(ret)
 555         ok(!strcmp(ret, "Turkish_Turkey.1254"), "ret = %s\n", ret);
 556
 557     ret = setlocale(LC_ALL, "uk");
 558     ok(ret != NULL, "ret == NULL\n");
 559     if(ret)
 560         ok(!strcmp(ret, "English_United Kingdom.1252")
 561         || broken(!strcmp(ret, "Ukrainian_Ukraine.1251")), "ret = %s\n", ret);
 562
 563     ret = setlocale(LC_ALL, "us");
 564     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 565     if(ret)
 566         ok(!strcmp(ret, "English_United States.1252"), "ret = %s\n", ret);
 567
 568     ret = setlocale(LC_ALL, "usa");
 569     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 570     if(ret)
 571         ok(!strcmp(ret, "English_United States.1252"), "ret = %s\n", ret);
 572 }
 573
 574 static void test_crtGetStringTypeW(void)
 575 {
 576     static const wchar_t str0[] = { '0', '\0' };
 577     static const wchar_t strA[] = { 'A', '\0' };
 578     static const wchar_t str_space[] = { ' ', '\0' };
 579     static const wchar_t str_null[] = { '\0', '\0' };
 580     static const wchar_t str_rand[] = { 1234, '\0' };
 581
 582     const wchar_t *str[] = { str0, strA, str_space, str_null, str_rand };
 583
 584     WORD out_crt, out;
 585     BOOL ret_crt, ret;
 586     int i;
 587
 588     if(!p__crtGetStringTypeW) {
 589         win_skip("Skipping __crtGetStringTypeW tests\n");
 590         return;
 591     }
 592
 593     if(!pmemcpy_s) {
 594         win_skip("Too old version of msvcrt.dll\n");
 595         return;
 596     }
 597
 598     for(i=0; i<sizeof(str)/sizeof(*str); i++) {
 599         ret_crt = p__crtGetStringTypeW(0, CT_CTYPE1, str[i], 1, &out_crt);
 600         ret = GetStringTypeW(CT_CTYPE1, str[i], 1, &out);
 601         ok(ret == ret_crt, "%d) ret_crt = %d\n", i, (int)ret_crt);
 602         ok(out == out_crt, "%d) out_crt = %x, expected %x\n", i, (int)out_crt, (int)out);
 603
 604         ret_crt = p__crtGetStringTypeW(0, CT_CTYPE2, str[i], 1, &out_crt);
 605         ret = GetStringTypeW(CT_CTYPE2, str[i], 1, &out);
 606         ok(ret == ret_crt, "%d) ret_crt = %d\n", i, (int)ret_crt);
 607         ok(out == out_crt, "%d) out_crt = %x, expected %x\n", i, (int)out_crt, (int)out);
 608
 609         ret_crt = p__crtGetStringTypeW(0, CT_CTYPE3, str[i], 1, &out_crt);
 610         ret = GetStringTypeW(CT_CTYPE3, str[i], 1, &out);
 611         ok(ret == ret_crt, "%d) ret_crt = %d\n", i, (int)ret_crt);
 612         ok(out == out_crt, "%d) out_crt = %x, expected %x\n", i, (int)out_crt, (int)out);
 613     }
 614
 615     ret = p__crtGetStringTypeW(0, 3, str[0], 1, &out);
 616     ok(!ret, "ret == TRUE\n");
 617 }
 618
 619 START_TEST(locale)
 620 {
 621     init();
 622
 623     test_crtGetStringTypeW();
 624     test_setlocale();
 625 }