steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
factor/basis/windows/ole32/ole32-tests.factor

32 lines
878 B
Factor
Raw Normal View History

fix com, prettyprinting of GUIDs
2009-08-29 20:18:39 -04:00
USING: kernel tools.test windows.ole32 alien.c-types
Specialized array overhaul - Replace hand-written specialized-arrays.* subvocabularies with new system; instead of USE:ing specialized-arrays.T, do SPECIALIZED-ARRAY: T - Ditto for specialized-vectors; use SPECIALIZED-VECTOR: - io.mmap.functor: removed entirely, use <mapped-array> instead - struct-arrays and struct-vectors have been removed because specialized arrays and vectors subsume them entirely
2009-09-09 23:33:34 -04:00
classes.struct specialized-arrays windows.kernel32
fix windows usings
2009-08-31 16:22:26 -04:00
windows.com.syntax ;
Specialized array overhaul - Replace hand-written specialized-arrays.* subvocabularies with new system; instead of USE:ing specialized-arrays.T, do SPECIALIZED-ARRAY: T - Ditto for specialized-vectors; use SPECIALIZED-VECTOR: - io.mmap.functor: removed entirely, use <mapped-array> instead - struct-arrays and struct-vectors have been removed because specialized arrays and vectors subsume them entirely
2009-09-09 23:33:34 -04:00
SPECIALIZED-ARRAY: uchar
Rewrite string>guid and guid>string in windows.ole32 so it can load on any platform. Add an init hook to game-input to put it back in the "off" state on image load.
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
[ 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
fix com, prettyprinting of GUIDs
2009-08-29 20:18:39 -04:00
[
GUID: 01234567-89ab-cdef-0123-456789abcdef}
] [ "{01234567-89ab-cdef-0123-456789abcdef}" string>guid ] unit-test
Rewrite string>guid and guid>string in windows.ole32 so it can load on any platform. Add an init hook to game-input to put it back in the "off" state on image load.
2008-07-29 01:42:28 -04:00
[ "{01234567-89ab-cdef-0123-456789abcdef}" ]
[ "{01234567-89ab-cdef-0123-456789abcdef}" string>guid guid>string ]
unit-test