basis/windows/ole32/ole32-tests.factor

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