basis/windows/ole32/ole32-tests.factor

   1 USING: alien.c-types classes.struct kernel math sequences
   2 sets specialized-arrays tools.test windows.com.syntax
   3 windows.kernel32 windows.ole32 ;
   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
  32
  33 { 0 } [ 10 [ create-guid ] replicate duplicates length ] unit-test