1 USING: alien.c-types classes.struct kernel math sequences
3 specialized-arrays.instances.alien.c-types.uchar tools.test
4 windows.com.syntax windows.kernel32 windows.ole32 ;
5 SPECIALIZED-ARRAY: uchar
6 IN: windows.ole32.tests
9 "{01234567-89ab-cdef-0123-456789abcdef}" string>guid
10 "{01234567-89ab-cdef-0123-456789abcdef}" string>guid
15 "{76543210-89ab-cdef-0123-456789abcdef}" string>guid
16 "{01234567-89ab-cdef-0123-456789abcdef}" string>guid
21 "{01234567-89ab-cdef-0123-fedcba987654}" string>guid
22 "{01234567-89ab-cdef-0123-456789abcdef}" string>guid
27 GUID: 01234567-89ab-cdef-0123-456789abcdef}
28 ] [ "{01234567-89ab-cdef-0123-456789abcdef}" string>guid ] unit-test
30 [ "{01234567-89ab-cdef-0123-456789abcdef}" ]
31 [ "{01234567-89ab-cdef-0123-456789abcdef}" string>guid guid>string ]
34 { 0 } [ 10 [ create-guid ] replicate duplicates length ] unit-test