git.oblomov.eu Git - wine/blob - dlls/twain_32/tests/dsm.c

   1 /* Unit test suite for Twain DSM functions
   2  *
   3  * Copyright 2009 Jeremy White, CodeWeavers, Inc.
   4  *
   5  * This library is free software; you can redistribute it and/or
   6  * modify it under the terms of the GNU Lesser General Public
   7  * License as published by the Free Software Foundation; either
   8  * version 2.1 of the License, or (at your option) any later version.
   9  *
  10  * This library is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13  * Lesser General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU Lesser General Public
  16  * License along with this library; if not, write to the Free Software
  17  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  18  *
  19  */
  20 #include <stdarg.h>
  21 #include <assert.h>
  22 #include "windef.h"
  23 #include "winbase.h"
  24 #include "wingdi.h"
  25 #include "winerror.h"
  26 #include "winuser.h"
  27 #include "twain.h"
  28
  29 #include "wine/test.h"
  30
  31 static DSMENTRYPROC pDSM_Entry;
  32
  33 static BOOL dsm_RegisterWindowClasses(void)
  34 {
  35     WNDCLASSA cls;
  36
  37     cls.style = 0;
  38     cls.lpfnWndProc = DefWindowProc;
  39     cls.cbClsExtra = 0;
  40     cls.cbWndExtra = 0;
  41     cls.hInstance = GetModuleHandleA(0);
  42     cls.hIcon = 0;
  43     cls.hCursor = LoadCursorA(0, IDC_ARROW);
  44     cls.hbrBackground = GetStockObject(WHITE_BRUSH);
  45     cls.lpszMenuName = NULL;
  46     cls.lpszClassName = "TWAIN_dsm_class";
  47     if (!RegisterClassA(&cls)) return FALSE;
  48
  49     return TRUE;
  50 }
  51
  52
  53 static void get_condition_code(TW_IDENTITY *appid, TW_IDENTITY *source, TW_STATUS *status)
  54 {
  55     TW_UINT16 rc;
  56     rc = pDSM_Entry(appid, source, DG_CONTROL, DAT_STATUS, MSG_GET, status);
  57     ok(rc == TWRC_SUCCESS, "Condition code not available, rc %d\n", rc);
  58 }
  59
  60 static BOOL get_onevalue(TW_HANDLE hcontainer, TW_UINT32 *ret, TW_UINT16 *type)
  61 {
  62     TW_ONEVALUE *onev;
  63     onev = GlobalLock(hcontainer);
  64     if (onev)
  65     {
  66         *ret = onev->Item;
  67         if (type)
  68             *type = onev->ItemType;
  69         GlobalUnlock(hcontainer);
  70         return TRUE;
  71     }
  72     return FALSE;
  73 }
  74
  75 static TW_HANDLE alloc_and_set_onevalue(TW_UINT32 val, TW_UINT16 type)
  76 {
  77     TW_HANDLE hcontainer;
  78     TW_ONEVALUE *onev;
  79     hcontainer = GlobalAlloc(0, sizeof(*onev));
  80     if (hcontainer)
  81     {
  82         onev = GlobalLock(hcontainer);
  83         if (onev)
  84         {
  85             onev->ItemType = type;
  86             onev->Item = val;
  87             GlobalUnlock(hcontainer);
  88         }
  89         else
  90         {
  91             GlobalFree(hcontainer);
  92             hcontainer = 0;
  93         }
  94     }
  95     return hcontainer;
  96 }
  97
  98 static void check_get(TW_CAPABILITY *pCapability, TW_INT32 actual_support,
  99                 TW_UINT32 orig_value, TW_UINT32 default_value, TW_UINT32 *suggested_set_value)
 100 {
 101     void *p;
 102     if (suggested_set_value)
 103         *suggested_set_value = orig_value + 1;
 104     p = GlobalLock(pCapability->hContainer);
 105     if (p)
 106     {
 107         if (pCapability->ConType == TWON_ONEVALUE)
 108         {
 109             TW_ONEVALUE *onev = (TW_ONEVALUE *) p;
 110             ok(onev->Item == orig_value || !(actual_support & TWQC_GETCURRENT), "MSG_GET of 0x%x returned 0x%x, expecting 0x%x\n",
 111                 pCapability->Cap, onev->Item, orig_value);
 112         }
 113         else if (pCapability->ConType == TWON_ENUMERATION)
 114         {
 115             int i;
 116             TW_UINT8 *p8;
 117             TW_UINT16 *p16;
 118             TW_UINT32 *p32;
 119             TW_ENUMERATION *enumv = (TW_ENUMERATION *) p;
 120             p8 = enumv->ItemList;
 121             p16 = (TW_UINT16 *) p8;
 122             p32 = (TW_UINT32 *) p8;
 123             trace("MSG_GET of 0x%x returned %d items:\n", pCapability->Cap, enumv->NumItems);
 124             for (i = 0; i < enumv->NumItems; i++)
 125             {
 126                 if (enumv->ItemType == TWTY_UINT8 || enumv->ItemType == TWTY_INT8)
 127                     trace("  %d: 0x%x\n", i, p8[i]);
 128                 if (enumv->ItemType == TWTY_UINT16 || enumv->ItemType == TWTY_INT16)
 129                     trace("  %d: 0x%x\n", i, p16[i]);
 130                 if (enumv->ItemType == TWTY_UINT32 || enumv->ItemType == TWTY_INT32)
 131                     trace("  %d: 0x%x\n", i, p32[i]);
 132             }
 133             if (enumv->ItemType == TWTY_UINT16 || enumv->ItemType == TWTY_INT16)
 134             {
 135                 ok(p16[enumv->CurrentIndex] == orig_value,
 136                     "Type 0x%x, values from MSG_GET (0x%x) and MSG_GETCURRENT (0x%x) do not match.\n",
 137                     pCapability->Cap, p16[enumv->CurrentIndex], orig_value);
 138                 ok(p16[enumv->DefaultIndex] == default_value,
 139                     "Type 0x%x, values from MSG_GET (0x%x) and MSG_GETDEFAULT (0x%x) do not match.\n",
 140                     pCapability->Cap, p16[enumv->DefaultIndex], default_value);
 141                 if (suggested_set_value)
 142                     *suggested_set_value = p16[(enumv->CurrentIndex + 1) % enumv->NumItems];
 143             }
 144             if (enumv->ItemType == TWTY_UINT32 || enumv->ItemType == TWTY_INT32)
 145             {
 146                 ok(p32[enumv->CurrentIndex] == orig_value,
 147                     "Type 0x%x, values from MSG_GET (0x%x) and MSG_GETCURRENT (0x%x) do not match.\n",
 148                     pCapability->Cap, p32[enumv->CurrentIndex], orig_value);
 149                 ok(p32[enumv->DefaultIndex] == default_value,
 150                     "Type 0x%x, values from MSG_GET (0x%x) and MSG_GETDEFAULT (0x%x) do not match.\n",
 151                     pCapability->Cap, p32[enumv->DefaultIndex], default_value);
 152                 if (suggested_set_value)
 153                     *suggested_set_value = p32[(enumv->CurrentIndex + 1) % enumv->NumItems];
 154             }
 155         }
 156         else
 157             trace("MSG_GET on type 0x%x returned type 0x%x, which we didn't check.\n", pCapability->Cap, pCapability->ConType);
 158         GlobalUnlock(pCapability->hContainer);
 159     }
 160 }
 161
 162 static void test_onevalue_cap(TW_IDENTITY *appid, TW_IDENTITY *source, TW_UINT16 captype, TW_UINT16 type, TW_INT32 minimum_support)
 163 {
 164     TW_UINT16 rc;
 165     TW_UINT16 rtype;
 166     TW_STATUS status;
 167     TW_CAPABILITY cap;
 168     TW_UINT32 orig_value = 0;
 169     TW_UINT32 new_value;
 170     TW_UINT32 default_value = 0;
 171     TW_INT32 actual_support;
 172
 173     memset(&cap, 0, sizeof(cap));
 174     cap.Cap = captype;
 175     cap.ConType = TWON_DONTCARE16;
 176
 177     rc = pDSM_Entry(appid, source, DG_CONTROL, DAT_CAPABILITY, MSG_QUERYSUPPORT, &cap);
 178     get_condition_code(appid, source, &status);
 179     ok(rc == TWRC_SUCCESS && status.ConditionCode == TWCC_SUCCESS,
 180             "Error [rc %d|cc %d] doing MSG_QUERYSUPPORT for type 0x%x\n", rc, status.ConditionCode, captype);
 181     if (rc != TWRC_SUCCESS)
 182         return;
 183     ok(get_onevalue(cap.hContainer, (TW_UINT32 *) &actual_support, NULL), "Returned cap.hContainer invalid for QuerySupport on type 0x%x\n", captype);
 184     ok((actual_support & minimum_support) == minimum_support,
 185             "Error:  minimum support 0x%x for type 0x%x, got 0x%x\n", minimum_support,
 186             captype, actual_support);
 187
 188
 189     if (actual_support & TWQC_GETCURRENT)
 190     {
 191         memset(&cap, 0, sizeof(cap));
 192         cap.Cap = captype;
 193         cap.ConType = TWON_DONTCARE16;
 194
 195         rc = pDSM_Entry(appid, source, DG_CONTROL, DAT_CAPABILITY, MSG_GETCURRENT, &cap);
 196         get_condition_code(appid, source, &status);
 197         ok(rc == TWRC_SUCCESS && status.ConditionCode == TWCC_SUCCESS,
 198                 "Error [rc %d|cc %d] doing MSG_GETCURRENT for type 0x%x\n", rc, status.ConditionCode, captype);
 199         if (rc == TWRC_SUCCESS)
 200         {
 201             ok(get_onevalue(cap.hContainer, &orig_value, &rtype), "Returned cap.hContainer invalid for GETCURRENT on type 0x%x\n", captype);
 202             ok(rtype == type, "Returned GETCURRENT type 0x%x for cap 0x%x is not expected 0x%x\n", rtype, captype, type);
 203             GlobalFree(cap.hContainer);
 204         }
 205     }
 206
 207     if (actual_support & TWQC_GETDEFAULT)
 208     {
 209         memset(&cap, 0, sizeof(cap));
 210         cap.Cap = captype;
 211         cap.ConType = TWON_DONTCARE16;
 212
 213         rc = pDSM_Entry(appid, source, DG_CONTROL, DAT_CAPABILITY, MSG_GETDEFAULT, &cap);
 214         get_condition_code(appid, source, &status);
 215         ok(rc == TWRC_SUCCESS && status.ConditionCode == TWCC_SUCCESS,
 216                 "Error [rc %d|cc %d] doing MSG_GETDEFAULT for type 0x%x\n", rc, status.ConditionCode, captype);
 217         if (rc == TWRC_SUCCESS)
 218         {
 219             ok(get_onevalue(cap.hContainer, &default_value, &rtype), "Returned cap.hContainer invalid for GETDEFAULT on type 0x%x\n", captype);
 220             ok(rtype == type, "Returned GETDEFAULT type 0x%x for cap 0x%x is not expected 0x%x\n", rtype, captype, type);
 221             GlobalFree(cap.hContainer);
 222         }
 223     }
 224
 225     new_value = orig_value;
 226     if (actual_support & TWQC_GET)
 227     {
 228         memset(&cap, 0, sizeof(cap));
 229         cap.Cap = captype;
 230         cap.ConType = TWON_DONTCARE16;
 231
 232         rc = pDSM_Entry(appid, source, DG_CONTROL, DAT_CAPABILITY, MSG_GET, &cap);
 233         get_condition_code(appid, source, &status);
 234         ok(rc == TWRC_SUCCESS && status.ConditionCode == TWCC_SUCCESS,
 235                 "Error [rc %d|cc %d] doing MSG_GET for type 0x%x\n", rc, status.ConditionCode, captype);
 236         check_get(&cap, actual_support, orig_value, default_value, &new_value);
 237         if (rc == TWRC_SUCCESS)
 238             GlobalFree(cap.hContainer);
 239     }
 240
 241     if (actual_support & TWQC_SET)
 242     {
 243         memset(&cap, 0, sizeof(cap));
 244         cap.Cap = captype;
 245         cap.ConType = TWON_ONEVALUE;
 246         cap.hContainer = alloc_and_set_onevalue(new_value, type);
 247
 248         rc = pDSM_Entry(appid, source, DG_CONTROL, DAT_CAPABILITY, MSG_SET, &cap);
 249         get_condition_code(appid, source, &status);
 250         ok(rc == TWRC_SUCCESS && status.ConditionCode == TWCC_SUCCESS,
 251                 "Error [rc %d|cc %d] doing MSG_SET for type 0x%x\n", rc, status.ConditionCode, captype);
 252         GlobalFree(cap.hContainer);
 253     }
 254
 255     if (actual_support & TWQC_RESET)
 256     {
 257         memset(&cap, 0, sizeof(cap));
 258         cap.Cap = captype;
 259         cap.ConType = TWON_DONTCARE16;
 260
 261         rc = pDSM_Entry(appid, source, DG_CONTROL, DAT_CAPABILITY, MSG_RESET, &cap);
 262         get_condition_code(appid, source, &status);
 263         ok(rc == TWRC_SUCCESS && status.ConditionCode == TWCC_SUCCESS,
 264                 "Error [rc %d|cc %d] doing MSG_RESET for type 0x%x\n", rc, status.ConditionCode, captype);
 265         if (rc == TWRC_SUCCESS)
 266             GlobalFree(cap.hContainer);
 267     }
 268 }
 269
 270 static void test_resolution(TW_IDENTITY *appid, TW_IDENTITY *source, TW_UINT16 captype, TW_INT32 minimum_support)
 271 {
 272     TW_UINT16 rc;
 273     TW_STATUS status;
 274     TW_CAPABILITY cap;
 275     TW_UINT32 val;
 276     TW_UINT16 type;
 277     TW_INT32 actual_support;
 278     TW_FIX32 orig_value = { 0, 0 };
 279     TW_UINT32 new_value = 0;
 280     TW_FIX32 default_value = { 0, 0 };
 281
 282     memset(&cap, 0, sizeof(cap));
 283     cap.Cap = captype;
 284     cap.ConType = TWON_DONTCARE16;
 285
 286     rc = pDSM_Entry(appid, source, DG_CONTROL, DAT_CAPABILITY, MSG_QUERYSUPPORT, &cap);
 287     get_condition_code(appid, source, &status);
 288     ok(rc == TWRC_SUCCESS && status.ConditionCode == TWCC_SUCCESS,
 289             "Error [rc %d|cc %d] doing MSG_QUERYSUPPORT for type 0x%x\n", rc, status.ConditionCode, captype);
 290     if (rc != TWRC_SUCCESS)
 291         return;
 292     ok(get_onevalue(cap.hContainer, (TW_UINT32 *) &actual_support, NULL), "Returned cap.hContainer invalid for QuerySupport on type 0x%x\n", captype);
 293     ok((actual_support & minimum_support) == minimum_support,
 294             "Error:  minimum support 0x%x for type 0x%x, got 0x%x\n", minimum_support,
 295             captype, actual_support);
 296
 297
 298     if (actual_support & TWQC_GETCURRENT)
 299     {
 300         memset(&cap, 0, sizeof(cap));
 301         cap.Cap = captype;
 302         cap.ConType = TWON_DONTCARE16;
 303
 304         rc = pDSM_Entry(appid, source, DG_CONTROL, DAT_CAPABILITY, MSG_GETCURRENT, &cap);
 305         get_condition_code(appid, source, &status);
 306         ok(rc == TWRC_SUCCESS && status.ConditionCode == TWCC_SUCCESS,
 307                 "Error [rc %d|cc %d] doing MSG_GETCURRENT for type 0x%x\n", rc, status.ConditionCode, captype);
 308         if (rc == TWRC_SUCCESS)
 309         {
 310             get_onevalue(cap.hContainer, &val, &type);
 311             ok(type == TWTY_FIX32, "GETCURRENT for RESOLUTION is not type FIX32, is type %d\n", type);
 312             memcpy(&orig_value, &val, sizeof(orig_value));
 313             GlobalFree(cap.hContainer);
 314         }
 315     }
 316
 317     if (actual_support & TWQC_GETDEFAULT)
 318     {
 319         memset(&cap, 0, sizeof(cap));
 320         cap.Cap = captype;
 321         cap.ConType = TWON_DONTCARE16;
 322
 323         rc = pDSM_Entry(appid, source, DG_CONTROL, DAT_CAPABILITY, MSG_GETDEFAULT, &cap);
 324         get_condition_code(appid, source, &status);
 325         ok(rc == TWRC_SUCCESS && status.ConditionCode == TWCC_SUCCESS,
 326                 "Error [rc %d|cc %d] doing MSG_GETDEFAULT for type 0x%x\n", rc, status.ConditionCode, captype);
 327         if (rc == TWRC_SUCCESS)
 328         {
 329             ok(type == TWTY_FIX32, "GETDEFAULT for RESOLUTION is not type FIX32, is type %d\n", type);
 330             memcpy(&default_value, &val, sizeof(default_value));
 331             GlobalFree(cap.hContainer);
 332         }
 333     }
 334
 335     if (actual_support & TWQC_GET)
 336     {
 337         memset(&cap, 0, sizeof(cap));
 338         cap.Cap = captype;
 339         cap.ConType = TWON_DONTCARE16;
 340
 341         rc = pDSM_Entry(appid, source, DG_CONTROL, DAT_CAPABILITY, MSG_GET, &cap);
 342         get_condition_code(appid, source, &status);
 343         ok(rc == TWRC_SUCCESS && status.ConditionCode == TWCC_SUCCESS,
 344                 "Error [rc %d|cc %d] doing MSG_GET for type 0x%x\n", rc, status.ConditionCode, captype);
 345         if (rc == TWRC_SUCCESS)
 346         {
 347             TW_RANGE *range;
 348             ok(cap.ConType == TWON_RANGE, "MSG_GET for ICAP_[XY]RESOLUTION did not return TWON_RANGE, but %d\n", cap.ConType);
 349             range = GlobalLock(cap.hContainer);
 350             trace("MSG_GET of 0x%x returned [ItemType %d|MinValue %d|MaxValue %d|StepSize %d|DefaultValue %d|CurrentValue %d]:\n",
 351                     cap.Cap, range->ItemType, range->MinValue, range->MaxValue, range->StepSize,
 352                     range->DefaultValue, range->CurrentValue);
 353             for (new_value = range->MinValue; new_value < range->MaxValue; new_value += range->StepSize)
 354                 if (new_value != range->CurrentValue)
 355                     break;
 356             GlobalUnlock(cap.hContainer);
 357             GlobalFree(cap.hContainer);
 358         }
 359     }
 360
 361     if (actual_support & TWQC_SET)
 362     {
 363         memset(&cap, 0, sizeof(cap));
 364         cap.Cap = captype;
 365         cap.ConType = TWON_ONEVALUE;
 366         cap.hContainer = alloc_and_set_onevalue(new_value, TWTY_FIX32);
 367
 368         rc = pDSM_Entry(appid, source, DG_CONTROL, DAT_CAPABILITY, MSG_SET, &cap);
 369         get_condition_code(appid, source, &status);
 370         ok(rc == TWRC_SUCCESS && status.ConditionCode == TWCC_SUCCESS,
 371                 "Error [rc %d|cc %d] doing MSG_SET for type 0x%x\n", rc, status.ConditionCode, captype);
 372         GlobalFree(cap.hContainer);
 373
 374     }
 375
 376     if (actual_support & TWQC_RESET)
 377     {
 378         memset(&cap, 0, sizeof(cap));
 379         cap.Cap = captype;
 380         cap.ConType = TWON_DONTCARE16;
 381
 382         rc = pDSM_Entry(appid, source, DG_CONTROL, DAT_CAPABILITY, MSG_RESET, &cap);
 383         get_condition_code(appid, source, &status);
 384         ok(rc == TWRC_SUCCESS && status.ConditionCode == TWCC_SUCCESS,
 385                 "Error [rc %d|cc %d] doing MSG_RESET for type 0x%x\n", rc, status.ConditionCode, captype);
 386         if (rc == TWRC_SUCCESS)
 387             GlobalFree(cap.hContainer);
 388     }
 389 }
 390
 391
 392 static void test_single_source(TW_IDENTITY *appid, TW_IDENTITY *source)
 393 {
 394     TW_UINT16 rc;
 395     TW_STATUS status;
 396     TW_CAPABILITY cap;
 397     UINT16 capabilities[CAP_CUSTOMBASE];
 398
 399     memset(&cap, 0, sizeof(cap));
 400     cap.Cap = CAP_SUPPORTEDCAPS;
 401     cap.ConType = TWON_DONTCARE16;
 402
 403     rc = pDSM_Entry(appid, source, DG_CONTROL, DAT_CAPABILITY, MSG_GET, &cap);
 404     get_condition_code(appid, source, &status);
 405     ok(rc == TWRC_SUCCESS || status.ConditionCode == TWCC_SUCCESS,
 406             "Error obtaining CAP_SUPPORTEDCAPS\n");
 407
 408     memset(capabilities, 0, sizeof(capabilities));
 409     if (rc == TWRC_SUCCESS && cap.ConType == TWON_ARRAY)
 410     {
 411         TW_ARRAY *a;
 412         a = GlobalLock(cap.hContainer);
 413         if (a)
 414         {
 415             if (a->ItemType == TWTY_UINT16)
 416             {
 417                 int i;
 418                 UINT16 *u = (UINT16 *) a->ItemList;
 419                 trace("%d Capabilities:\n", a->NumItems);
 420                 for (i = 0; i < a->NumItems; i++)
 421                     if (u[i] < sizeof(capabilities) / sizeof(capabilities[0]))
 422                     {
 423                         capabilities[u[i]] = 1;
 424                         trace("  %d: 0x%x\n", i, u[i]);
 425                     }
 426             }
 427             GlobalUnlock(cap.hContainer);
 428         }
 429     }
 430
 431     /* For Twain 1.6, all sources must support: */
 432     ok(capabilities[CAP_SUPPORTEDCAPS], "CAP_SUPPORTEDCAPS not supported\n");
 433     ok(capabilities[CAP_XFERCOUNT], "CAP_XFERCOUNT not supported\n");
 434     if (capabilities[CAP_XFERCOUNT])
 435         test_onevalue_cap(appid, source, CAP_XFERCOUNT, TWTY_INT16,
 436             TWQC_GET | TWQC_SET | TWQC_GETDEFAULT | TWQC_GETCURRENT | TWQC_RESET);
 437     ok(capabilities[CAP_UICONTROLLABLE], "CAP_UICONTROLLABLE not supported\n");
 438     if (capabilities[CAP_UICONTROLLABLE])
 439         test_onevalue_cap(appid, source, CAP_UICONTROLLABLE, TWTY_BOOL, TWQC_GET);
 440
 441     if (source->SupportedGroups & DG_IMAGE)
 442     {
 443         /* For Twain 1.6:
 444             Sources that supply image information must support DG_CONTROL / DAT_CAPABILITY /
 445             MSG_GET, MSG_GETCURRENT, MSG_GETDEFAULT on:
 446         */
 447         ok(capabilities[ICAP_COMPRESSION], "ICAP_COMPRESSION not supported\n");
 448         if (capabilities[ICAP_COMPRESSION])
 449             test_onevalue_cap(appid, source, ICAP_COMPRESSION, TWTY_UINT16,
 450                 TWQC_GET | TWQC_GETDEFAULT | TWQC_GETCURRENT);
 451         todo_wine
 452         ok(capabilities[ICAP_PLANARCHUNKY], "ICAP_PLANARCHUNKY not supported\n");
 453         todo_wine
 454         ok(capabilities[ICAP_PHYSICALHEIGHT], "ICAP_PHYSICALHEIGHT not supported\n");
 455         todo_wine
 456         ok(capabilities[ICAP_PHYSICALWIDTH], "ICAP_PHYSICALWIDTH not supported\n");
 457         ok(capabilities[ICAP_PIXELFLAVOR], "ICAP_PIXELFLAVOR not supported\n");
 458         if (capabilities[ICAP_PIXELFLAVOR])
 459             test_onevalue_cap(appid, source, ICAP_PIXELFLAVOR, TWTY_UINT16,
 460                 TWQC_GET | TWQC_SET | TWQC_GETDEFAULT | TWQC_GETCURRENT | TWQC_RESET);
 461
 462         /* For Twain 1.6:
 463             Sources that supply image information must support DG_CONTROL / DAT_CAPABILITY /
 464             MSG_GET, MSG_GETCURRENT, MSG_GETDEFAULT, MSG_RESET and MSG_SET on:
 465         */
 466         ok(capabilities[ICAP_BITDEPTH], "ICAP_BITDEPTH not supported\n");
 467         if (capabilities[ICAP_BITDEPTH])
 468             test_onevalue_cap(appid, source, ICAP_BITDEPTH, TWTY_UINT16,
 469                 TWQC_GET | TWQC_GETDEFAULT | TWQC_GETCURRENT );
 470         todo_wine
 471         ok(capabilities[ICAP_BITORDER], "ICAP_BITORDER not supported\n");
 472         ok(capabilities[ICAP_PIXELTYPE], "ICAP_PIXELTYPE not supported\n");
 473         if (capabilities[ICAP_PIXELTYPE])
 474             test_onevalue_cap(appid, source, ICAP_PIXELTYPE, TWTY_UINT16,
 475                 TWQC_GET | TWQC_SET | TWQC_GETDEFAULT | TWQC_GETCURRENT | TWQC_RESET);
 476         todo_wine
 477         ok(capabilities[ICAP_UNITS], "ICAP_UNITS not supported\n");
 478         ok(capabilities[ICAP_XFERMECH], "ICAP_XFERMECH not supported\n");
 479         if (capabilities[ICAP_XFERMECH])
 480             test_onevalue_cap(appid, source, ICAP_XFERMECH, TWTY_UINT16,
 481                 TWQC_GET | TWQC_SET | TWQC_GETDEFAULT | TWQC_GETCURRENT | TWQC_RESET);
 482         ok(capabilities[ICAP_XRESOLUTION], "ICAP_XRESOLUTION not supported\n");
 483         if (capabilities[ICAP_XRESOLUTION])
 484             test_resolution(appid, source, ICAP_XRESOLUTION,
 485                 TWQC_GET | TWQC_SET | TWQC_GETDEFAULT | TWQC_GETCURRENT | TWQC_RESET);
 486         ok(capabilities[ICAP_YRESOLUTION], "ICAP_YRESOLUTION not supported\n");
 487         if (capabilities[ICAP_YRESOLUTION])
 488             test_resolution(appid, source, ICAP_YRESOLUTION,
 489                 TWQC_GET | TWQC_SET | TWQC_GETDEFAULT | TWQC_GETCURRENT | TWQC_RESET);
 490     }
 491 }
 492
 493 static void test_sources(TW_IDENTITY *appid)
 494 {
 495     TW_UINT16 rc;
 496     TW_IDENTITY source;
 497     TW_STATUS status;
 498     int scannercount = 0;
 499
 500     memset(&source, 0, sizeof(source));
 501     rc = pDSM_Entry(appid, NULL, DG_CONTROL, DAT_IDENTITY, MSG_GETFIRST, &source);
 502     get_condition_code(appid, NULL, &status);
 503     ok( (rc == TWRC_SUCCESS && status.ConditionCode == TWCC_SUCCESS) ||
 504         (rc == TWRC_FAILURE && status.ConditionCode == TWCC_NODS),
 505             "Get first invalid condition code, rc %d, cc %d\n", rc, status.ConditionCode);
 506
 507     while (rc == TWRC_SUCCESS)
 508     {
 509         scannercount++;
 510         trace("[Scanner %d|Version %d.%d(%s)|Protocol %d.%d|SupportedGroups 0x%x|Manufacturer %s|Family %s|ProductName %s]\n",
 511             scannercount,
 512             source.Version.MajorNum, source.Version.MinorNum, source.Version.Info,
 513             source.ProtocolMajor, source.ProtocolMinor, source.SupportedGroups,
 514             source.Manufacturer, source.ProductFamily, source.ProductName);
 515         memset(&source, 0, sizeof(source));
 516         rc = pDSM_Entry(appid, NULL, DG_CONTROL, DAT_IDENTITY, MSG_GETNEXT, &source);
 517         get_condition_code(appid, NULL, &status);
 518         ok(rc == TWRC_SUCCESS || rc == TWRC_ENDOFLIST, "Get next source failed, rc %d, cc %d\n", rc, status.ConditionCode);
 519     }
 520
 521     memset(&source, 0, sizeof(source));
 522     rc = pDSM_Entry(appid, NULL, DG_CONTROL, DAT_IDENTITY, MSG_GETDEFAULT, &source);
 523     get_condition_code(appid, NULL, &status);
 524     ok( (rc == TWRC_SUCCESS && status.ConditionCode == TWCC_SUCCESS) ||
 525         (rc == TWRC_FAILURE && status.ConditionCode == TWCC_NODS),
 526             "Get default invalid condition code, rc %d, cc %d\n", rc, status.ConditionCode);
 527
 528     if (rc == TWRC_SUCCESS && status.ConditionCode == TWCC_SUCCESS)
 529     {
 530         rc = pDSM_Entry(appid, NULL, DG_CONTROL, DAT_IDENTITY, MSG_OPENDS, &source);
 531         get_condition_code(appid, NULL, &status);
 532
 533         if (rc == TWRC_SUCCESS && status.ConditionCode == TWCC_SUCCESS)
 534         {
 535             rc = pDSM_Entry(appid, NULL, DG_CONTROL, DAT_IDENTITY, MSG_CLOSEDS, &source);
 536             get_condition_code(appid, NULL, &status);
 537             ok(rc == TWRC_SUCCESS, "Close DS Failed, rc %d, cc %d\n", rc, status.ConditionCode);
 538         }
 539     }
 540
 541     if (winetest_interactive)
 542     {
 543         trace("Interactive, so trying userselect\n");
 544         memset(&source, 0, sizeof(source));
 545         rc = pDSM_Entry(appid, NULL, DG_CONTROL, DAT_IDENTITY, MSG_USERSELECT, &source);
 546         get_condition_code(appid, NULL, &status);
 547         ok(rc == TWRC_SUCCESS || rc == TWRC_CANCEL, "Userselect failed, rc %d, cc %d\n", rc, status.ConditionCode);
 548
 549         if (rc == TWRC_SUCCESS && status.ConditionCode == TWCC_SUCCESS)
 550         {
 551             rc = pDSM_Entry(appid, NULL, DG_CONTROL, DAT_IDENTITY, MSG_OPENDS, &source);
 552             get_condition_code(appid, NULL, &status);
 553             if (rc == TWRC_SUCCESS && status.ConditionCode == TWCC_SUCCESS)
 554             {
 555                 test_single_source(appid, &source);
 556                 rc = pDSM_Entry(appid, NULL, DG_CONTROL, DAT_IDENTITY, MSG_CLOSEDS, &source);
 557                 get_condition_code(appid, NULL, &status);
 558                 ok(rc == TWRC_SUCCESS, "Close DS Failed, rc %d, cc %d\n", rc, status.ConditionCode);
 559             }
 560         }
 561     }
 562
 563 }
 564
 565 START_TEST(dsm)
 566 {
 567     TW_IDENTITY appid;
 568     TW_UINT16 rc;
 569     HANDLE hwnd;
 570     HMODULE htwain;
 571
 572     if (!dsm_RegisterWindowClasses()) assert(0);
 573
 574     htwain = LoadLibraryA("twain_32.dll");
 575     if (! htwain)
 576     {
 577         skip("twain_32.dll not available, skipping tests\n");
 578         return;
 579     }
 580     pDSM_Entry = (void*)GetProcAddress(htwain, "DSM_Entry");
 581     ok(pDSM_Entry != NULL, "Unable to GetProcAddress DSM_Entry\n");
 582     if (! pDSM_Entry)
 583     {
 584         skip("DSM_Entry not available, skipping tests\n");
 585         return;
 586     }
 587
 588     memset(&appid, 0, sizeof(appid));
 589     appid.Version.Language = TWLG_ENGLISH_USA;
 590     appid.Version.Country = TWCY_USA;
 591     appid.ProtocolMajor = TWON_PROTOCOLMAJOR;
 592     appid.ProtocolMinor = TWON_PROTOCOLMINOR;
 593     appid.SupportedGroups = DG_CONTROL | DG_IMAGE;
 594
 595     hwnd = CreateWindow("TWAIN_dsm_class", "Twain Test", 0,
 596                         CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,
 597                         NULL, NULL, GetModuleHandleA(0), NULL);
 598
 599     rc = pDSM_Entry(&appid, NULL, DG_CONTROL, DAT_PARENT, MSG_OPENDSM, (TW_MEMREF) &hwnd);
 600     ok(rc == TWRC_SUCCESS, "MSG_OPENDSM returned %d\n", rc);
 601
 602     test_sources(&appid);
 603
 604     rc = pDSM_Entry(&appid, NULL, DG_CONTROL, DAT_PARENT, MSG_CLOSEDSM, (TW_MEMREF) &hwnd);
 605     ok(rc == TWRC_SUCCESS, "MSG_CLOSEDSM returned %d\n", rc);
 606
 607     DestroyWindow(hwnd);
 608     FreeLibrary(htwain);
 609 }