basis/windows/ole32/ole32-tests.factor

   1 USING: kernel tools.test windows.ole32 alien.c-types ;
   2 IN: windows.ole32.tests
   3
   4 [ t ] [
   5     "{01234567-89ab-cdef-0123-456789abcdef}" string>guid
   6     "{01234567-89ab-cdef-0123-456789abcdef}" string>guid
   7     guid=
   8 ] unit-test
   9
  10 [ f ] [
  11     "{76543210-89ab-cdef-0123-456789abcdef}" string>guid
  12     "{01234567-89ab-cdef-0123-456789abcdef}" string>guid
  13     guid=
  14 ] unit-test
  15
  16 [ f ] [
  17     "{01234567-89ab-cdef-0123-fedcba987654}" string>guid
  18     "{01234567-89ab-cdef-0123-456789abcdef}" string>guid
  19     guid=
  20 ] unit-test
  21
  22 little-endian?
  23 [ B{
  24     HEX: 67 HEX: 45 HEX: 23 HEX: 01 HEX: ab HEX: 89 HEX: ef HEX: cd
  25     HEX: 01 HEX: 23 HEX: 45 HEX: 67 HEX: 89 HEX: ab HEX: cd HEX: ef
  26 } ]
  27 [ B{
  28     HEX: 01 HEX: 23 HEX: 45 HEX: 67 HEX: 89 HEX: ab HEX: cd HEX: ef
  29     HEX: 01 HEX: 23 HEX: 45 HEX: 67 HEX: 89 HEX: ab HEX: cd HEX: ef
  30 } ] ?
  31 [ "{01234567-89ab-cdef-0123-456789abcdef}" string>guid ]
  32 unit-test
  33
  34 [ "{01234567-89ab-cdef-0123-456789abcdef}" ]
  35 [ "{01234567-89ab-cdef-0123-456789abcdef}" string>guid guid>string ]
  36 unit-test