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
8 "{01234567-89ab-cdef-0123-456789abcdef}" string>guid
9 "{01234567-89ab-cdef-0123-456789abcdef}" string>guid
14 "{76543210-89ab-cdef-0123-456789abcdef}" string>guid
15 "{01234567-89ab-cdef-0123-456789abcdef}" string>guid
20 "{01234567-89ab-cdef-0123-fedcba987654}" string>guid
21 "{01234567-89ab-cdef-0123-456789abcdef}" string>guid
26 GUID: 01234567-89ab-cdef-0123-456789abcdef}
27 ] [ "{01234567-89ab-cdef-0123-456789abcdef}" string>guid ] unit-test
29 [ "{01234567-89ab-cdef-0123-456789abcdef}" ]
30 [ "{01234567-89ab-cdef-0123-456789abcdef}" string>guid guid>string ]
33 { 0 } [ 10 [ create-guid ] replicate duplicates length ] unit-test