basis/windows/ole32/ole32-tests.factor

   1 USING: kernel tools.test windows.ole32 alien.c-types
   2 classes.struct specialized-arrays.uchar windows.kernel32
   3 windows.com.syntax ;
   4 IN: windows.ole32.tests
   5
   6 [ t ] [
   7     "{01234567-89ab-cdef-0123-456789abcdef}" string>guid
   8     "{01234567-89ab-cdef-0123-456789abcdef}" string>guid
   9     guid=
  10 ] unit-test
  11
  12 [ f ] [
  13     "{76543210-89ab-cdef-0123-456789abcdef}" string>guid
  14     "{01234567-89ab-cdef-0123-456789abcdef}" string>guid
  15     guid=
  16 ] unit-test
  17
  18 [ f ] [
  19     "{01234567-89ab-cdef-0123-fedcba987654}" string>guid
  20     "{01234567-89ab-cdef-0123-456789abcdef}" string>guid
  21     guid=
  22 ] unit-test
  23
  24 [
  25     GUID: 01234567-89ab-cdef-0123-456789abcdef}
  26 ] [ "{01234567-89ab-cdef-0123-456789abcdef}" string>guid ] unit-test
  27
  28 [ "{01234567-89ab-cdef-0123-456789abcdef}" ]
  29 [ "{01234567-89ab-cdef-0123-456789abcdef}" string>guid guid>string ]
  30 unit-test