37 lines
1.0 KiB
Factor
37 lines
1.0 KiB
Factor
|
USING: kernel tools.test windows.ole32 alien.c-types ;
|
||
|
|
IN: windows.ole32.tests
|
||
|
|
|
||
|
|
[ t ] [
|
||
|
|
"{01234567-89ab-cdef-0123-456789abcdef}" string>guid
|
||
|
|
"{01234567-89ab-cdef-0123-456789abcdef}" string>guid
|
||
|
|
guid=
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[ f ] [
|
||
|
|
"{76543210-89ab-cdef-0123-456789abcdef}" string>guid
|
||
|
|
"{01234567-89ab-cdef-0123-456789abcdef}" string>guid
|
||
|
|
guid=
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[ f ] [
|
||
|
|
"{01234567-89ab-cdef-0123-fedcba987654}" string>guid
|
||
|
|
"{01234567-89ab-cdef-0123-456789abcdef}" string>guid
|
||
|
|
guid=
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
little-endian?
|
||
|
|
[ B{
|
||
|
|
HEX: 67 HEX: 45 HEX: 23 HEX: 01 HEX: ab HEX: 89 HEX: ef HEX: cd
|
||
|
|
HEX: 01 HEX: 23 HEX: 45 HEX: 67 HEX: 89 HEX: ab HEX: cd HEX: ef
|
||
|
|
} ]
|
||
|
|
[ B{
|
||
|
|
HEX: 01 HEX: 23 HEX: 45 HEX: 67 HEX: 89 HEX: ab HEX: cd HEX: ef
|
||
|
|
HEX: 01 HEX: 23 HEX: 45 HEX: 67 HEX: 89 HEX: ab HEX: cd HEX: ef
|
||
|
|
} ] ?
|
||
|
|
[ "{01234567-89ab-cdef-0123-456789abcdef}" string>guid ]
|
||
|
|
unit-test
|
||
|
|
|
||
|
|
[ "{01234567-89ab-cdef-0123-456789abcdef}" ]
|
||
|
|
[ "{01234567-89ab-cdef-0123-456789abcdef}" string>guid guid>string ]
|
||
|
|
unit-test
|