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         todo_wine 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         todo_wine 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         todo_wine 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         todo_wine 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         todo_wine 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") || broken(!strcmp(ret, "Italian_Italy.1252")), "ret = %s\n", ret);
 394
 395     ret = setlocale(LC_ALL, "its");
 396     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 397     if(ret)
 398         ok(!strcmp(ret, "Italian_Switzerland.1252") || broken(!strcmp(ret, "Italian_Italy.1252")), "ret = %s\n", ret);
 399
 400     ret = setlocale(LC_ALL, "japanese");
 401     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 402     if(ret)
 403         ok(!strcmp(ret, "Japanese_Japan.932"), "ret = %s\n", ret);
 404
 405     ret = setlocale(LC_ALL, "jpn");
 406     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 407     if(ret)
 408         ok(!strcmp(ret, "Japanese_Japan.932"), "ret = %s\n", ret);
 409
 410     ret = setlocale(LC_ALL, "korean");
 411     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 412     if(ret)
 413         ok(!strcmp(ret, "Korean_Korea.949"), "ret = %s\n", ret);
 414
 415     ret = setlocale(LC_ALL, "korean");
 416     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 417     if(ret)
 418         ok(!strcmp(ret, "Korean_Korea.949"), "ret = %s\n", ret);
 419
 420     ret = setlocale(LC_ALL, "nlb");
 421     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 422     if(ret)
 423         ok(!strcmp(ret, "Dutch_Belgium.1252")
 424         || broken(!strcmp(ret, "Dutch_Netherlands.1252")), "ret = %s\n", ret);
 425
 426     ret = setlocale(LC_ALL, "nld");
 427     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 428     if(ret)
 429         ok(!strcmp(ret, "Dutch_Netherlands.1252"), "ret = %s\n", ret);
 430
 431     ret = setlocale(LC_ALL, "non");
 432     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 433     if(ret)
 434         todo_wine ok((!strcmp( ret, "Norwegian-Nynorsk_Norway.1252"))
 435         || broken(!strcmp(ret, "Norwegian (Bokmål)_Norway.1252"))
 436         || broken(!strcmp(ret, "Norwegian_Norway.1252"))
 437         || broken(!strcmp(ret, "Norwegian (Nynorsk)_Norway.1252")), "ret = %s\n", ret);
 438
 439     ret = setlocale(LC_ALL, "nor");
 440     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 441     if(ret)
 442         ok(!strcmp(ret, "Norwegian (Bokmål)_Norway.1252")
 443         || broken(!strcmp(ret, "Norwegian (Bokmal)_Norway.1252"))
 444         || broken(!strcmp(ret, "Norwegian_Norway.1252")), "ret = %s\n", ret);
 445
 446     ret = setlocale(LC_ALL, "norwegian-bokmal");
 447     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 448     if(ret)
 449         ok(!strcmp(ret, "Norwegian (Bokmål)_Norway.1252")
 450         || broken(!strcmp(ret, "Norwegian (Bokmal)_Norway.1252"))
 451         || broken(!strcmp(ret, "Norwegian_Norway.1252")), "ret = %s\n", ret);
 452
 453     ret = setlocale(LC_ALL, "norwegian-nynorsk");
 454     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 455     if(ret)
 456         todo_wine ok(!strcmp(ret, "Norwegian-Nynorsk_Norway.1252")
 457         || broken(!strcmp(ret, "Norwegian_Norway.1252"))
 458         || broken(!strcmp(ret, "Norwegian (Nynorsk)_Norway.1252"))
 459         || broken(!strcmp(ret, "Norwegian (Bokmal)_Norway.1252"))
 460         || broken(!strcmp(ret, "Norwegian (Bokmål)_Norway.1252")), "ret = %s\n", ret);
 461
 462     ret = setlocale(LC_ALL, "plk");
 463     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 464     if(ret)
 465         ok(!strcmp(ret, "Polish_Poland.1250"), "ret = %s\n", ret);
 466
 467     ret = setlocale(LC_ALL, "polish");
 468     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 469     if(ret)
 470         ok(!strcmp(ret, "Polish_Poland.1250"), "ret = %s\n", ret);
 471
 472     ret = setlocale(LC_ALL, "portugese");
 473     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 474     if(ret)
 475         ok(!strcmp(ret, "Portuguese_Brazil.1252"), "ret = %s\n", ret);
 476
 477     ret = setlocale(LC_ALL, "portuguese-brazil");
 478     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 479     if(ret)
 480         ok(!strcmp(ret, "Portuguese_Brazil.1252"), "ret = %s\n", ret);
 481
 482     ret = setlocale(LC_ALL, "ptb");
 483     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 484     if(ret)
 485         ok(!strcmp(ret, "Portuguese_Brazil.1252"), "ret = %s\n", ret);
 486
 487     ret = setlocale(LC_ALL, "ptg");
 488     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 489     if(ret)
 490         ok(!strcmp(ret, "Portuguese_Portugal.1252"), "ret = %s\n", ret);
 491
 492     ret = setlocale(LC_ALL, "rus");
 493     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 494     if(ret)
 495         ok(!strcmp(ret, "Russian_Russia.1251"), "ret = %s\n", ret);
 496
 497     ret = setlocale(LC_ALL, "russian");
 498     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 499     if(ret)
 500         ok(!strcmp(ret, "Russian_Russia.1251"), "ret = %s\n", ret);
 501
 502     ret = setlocale(LC_ALL, "sky");
 503     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 504     if(ret)
 505         ok(!strcmp(ret, "Slovak_Slovakia.1250"), "ret = %s\n", ret);
 506
 507     ret = setlocale(LC_ALL, "slovak");
 508     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 509     if(ret)
 510         ok(!strcmp(ret, "Slovak_Slovakia.1250"), "ret = %s\n", ret);
 511
 512     ret = setlocale(LC_ALL, "spanish");
 513     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 514     if(ret)
 515         ok(!strcmp(ret, "Spanish_Spain.1252")
 516         || broken(!strcmp(ret, "Spanish - Traditional Sort_Spain.1252")), "ret = %s\n", ret);
 517
 518     ret = setlocale(LC_ALL, "spanish-mexican");
 519     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 520     if(ret)
 521         ok(!strcmp(ret, "Spanish_Mexico.1252")
 522         || broken(!strcmp(ret, "Spanish_Spain.1252")), "ret = %s\n", ret);
 523
 524     ret = setlocale(LC_ALL, "spanish-modern");
 525     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 526     if(ret)
 527         todo_wine ok(!strcmp(ret, "Spanish - Modern Sort_Spain.1252")
 528         || broken(!strcmp(ret, "Spanish_Spain.1252")), "ret = %s\n", ret);
 529
 530     ret = setlocale(LC_ALL, "sve");
 531     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 532     if(ret)
 533         ok(!strcmp(ret, "Swedish_Sweden.1252"), "ret = %s\n", ret);
 534
 535     ret = setlocale(LC_ALL, "swedish");
 536     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 537     if(ret)
 538         ok(!strcmp(ret, "Swedish_Sweden.1252"), "ret = %s\n", ret);
 539
 540     ret = setlocale(LC_ALL, "swiss");
 541     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 542     if(ret)
 543         ok(!strcmp(ret, "German_Switzerland.1252"), "ret = %s\n", ret);
 544
 545     ret = setlocale(LC_ALL, "trk");
 546     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 547     if(ret)
 548         ok(!strcmp(ret, "Turkish_Turkey.1254"), "ret = %s\n", ret);
 549
 550     ret = setlocale(LC_ALL, "turkish");
 551     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 552     if(ret)
 553         ok(!strcmp(ret, "Turkish_Turkey.1254"), "ret = %s\n", ret);
 554
 555     ret = setlocale(LC_ALL, "uk");
 556     ok(ret != NULL, "ret == NULL\n");
 557     if(ret)
 558         ok(!strcmp(ret, "English_United Kingdom.1252")
 559         || broken(!strcmp(ret, "Ukrainian_Ukraine.1251")), "ret = %s\n", ret);
 560
 561     ret = setlocale(LC_ALL, "us");
 562     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 563     if(ret)
 564         ok(!strcmp(ret, "English_United States.1252"), "ret = %s\n", ret);
 565
 566     ret = setlocale(LC_ALL, "usa");
 567     ok(ret != NULL || broken (ret == NULL), "ret == NULL\n");
 568     if(ret)
 569         ok(!strcmp(ret, "English_United States.1252"), "ret = %s\n", ret);
 570 }
 571
 572 static void test_crtGetStringTypeW(void)
 573 {
 574     static const wchar_t str0[] = { '0', '\0' };
 575     static const wchar_t strA[] = { 'A', '\0' };
 576     static const wchar_t str_space[] = { ' ', '\0' };
 577     static const wchar_t str_null[] = { '\0', '\0' };
 578     static const wchar_t str_rand[] = { 1234, '\0' };
 579
 580     const wchar_t *str[] = { str0, strA, str_space, str_null, str_rand };
 581
 582     WORD out_crt, out;
 583     BOOL ret_crt, ret;
 584     int i;
 585
 586     if(!p__crtGetStringTypeW) {
 587         win_skip("Skipping __crtGetStringTypeW tests\n");
 588         return;
 589     }
 590
 591     if(!pmemcpy_s) {
 592         win_skip("Too old version of msvcrt.dll\n");
 593         return;
 594     }
 595
 596     for(i=0; i<sizeof(str)/sizeof(*str); i++) {
 597         ret_crt = p__crtGetStringTypeW(0, CT_CTYPE1, str[i], 1, &out_crt);
 598         ret = GetStringTypeW(CT_CTYPE1, str[i], 1, &out);
 599         ok(ret == ret_crt, "%d) ret_crt = %d\n", i, (int)ret_crt);
 600         ok(out == out_crt, "%d) out_crt = %x, expected %x\n", i, (int)out_crt, (int)out);
 601
 602         ret_crt = p__crtGetStringTypeW(0, CT_CTYPE2, str[i], 1, &out_crt);
 603         ret = GetStringTypeW(CT_CTYPE2, str[i], 1, &out);
 604         ok(ret == ret_crt, "%d) ret_crt = %d\n", i, (int)ret_crt);
 605         ok(out == out_crt, "%d) out_crt = %x, expected %x\n", i, (int)out_crt, (int)out);
 606
 607         ret_crt = p__crtGetStringTypeW(0, CT_CTYPE3, str[i], 1, &out_crt);
 608         ret = GetStringTypeW(CT_CTYPE3, str[i], 1, &out);
 609         ok(ret == ret_crt, "%d) ret_crt = %d\n", i, (int)ret_crt);
 610         ok(out == out_crt, "%d) out_crt = %x, expected %x\n", i, (int)out_crt, (int)out);
 611     }
 612
 613     ret = p__crtGetStringTypeW(0, 3, str[0], 1, &out);
 614     ok(!ret, "ret == TRUE\n");
 615 }
 616
 617 START_TEST(locale)
 618 {
 619     init();
 620
 621     test_crtGetStringTypeW();
 622     test_setlocale();
 623 }