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 IN: windows.ole32.tests
   4
   5 [ t ] [
   6     "{01234567-89ab-cdef-0123-456789abcdef}" string>guid
   7     "{01234567-89ab-cdef-0123-456789abcdef}" string>guid
   8     guid=
   9 ] unit-test
  10
  11 [ f ] [
  12     "{76543210-89ab-cdef-0123-456789abcdef}" string>guid
  13     "{01234567-89ab-cdef-0123-456789abcdef}" string>guid
  14     guid=
  15 ] unit-test
  16
  17 [ f ] [
  18     "{01234567-89ab-cdef-0123-fedcba987654}" string>guid
  19     "{01234567-89ab-cdef-0123-456789abcdef}" string>guid
  20     guid=
  21 ] unit-test
  22
  23 [
  24     GUID: 01234567-89ab-cdef-0123-456789abcdef}
  25 ] [ "{01234567-89ab-cdef-0123-456789abcdef}" string>guid ] unit-test
  26
  27 [ "{01234567-89ab-cdef-0123-456789abcdef}" ]
  28 [ "{01234567-89ab-cdef-0123-456789abcdef}" string>guid guid>string ]
  29 unit-test