2016-06-27 12:07:40 -04:00
|
|
|
USING: alien.c-types classes.struct kernel math sequences
|
2016-07-01 10:55:50 -04:00
|
|
|
sets specialized-arrays tools.test windows.com.syntax
|
|
|
|
windows.kernel32 windows.ole32 ;
|
2009-09-09 23:33:34 -04:00
|
|
|
SPECIALIZED-ARRAY: uchar
|
2008-07-29 01:42:28 -04:00
|
|
|
IN: windows.ole32.tests
|
|
|
|
|
|
|
|
[ t ] [
|
|
|
|
"{01234567-89ab-cdef-0123-456789abcdef}" string>guid
|
|
|
|
"{01234567-89ab-cdef-0123-456789abcdef}" string>guid
|
|
|
|
guid=
|
|
|
|
] unit-test
|
2015-07-19 19:54:27 -04:00
|
|
|
|
2008-07-29 01:42:28 -04:00
|
|
|
[ f ] [
|
|
|
|
"{76543210-89ab-cdef-0123-456789abcdef}" string>guid
|
|
|
|
"{01234567-89ab-cdef-0123-456789abcdef}" string>guid
|
|
|
|
guid=
|
|
|
|
] unit-test
|
2015-07-19 19:54:27 -04:00
|
|
|
|
2008-07-29 01:42:28 -04:00
|
|
|
[ f ] [
|
|
|
|
"{01234567-89ab-cdef-0123-fedcba987654}" string>guid
|
|
|
|
"{01234567-89ab-cdef-0123-456789abcdef}" string>guid
|
|
|
|
guid=
|
|
|
|
] unit-test
|
2015-07-19 19:54:27 -04:00
|
|
|
|
2009-08-29 20:18:39 -04:00
|
|
|
[
|
|
|
|
GUID: 01234567-89ab-cdef-0123-456789abcdef}
|
|
|
|
] [ "{01234567-89ab-cdef-0123-456789abcdef}" string>guid ] unit-test
|
2008-07-29 01:42:28 -04:00
|
|
|
|
|
|
|
[ "{01234567-89ab-cdef-0123-456789abcdef}" ]
|
|
|
|
[ "{01234567-89ab-cdef-0123-456789abcdef}" string>guid guid>string ]
|
|
|
|
unit-test
|
2016-06-27 12:07:40 -04:00
|
|
|
|
|
|
|
{ 0 } [ 10 [ create-guid ] replicate duplicates length ] unit-test
|