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

34 lines
942 B
Factor
Raw Permalink Normal View History

windows.ole32: add create-guid
2016-06-27 12:07:40 -04:00
USING: alien.c-types classes.struct kernel math sequences
windows.ole32: use sets in tests.
2016-07-01 10:55:50 -04:00
sets specialized-arrays tools.test windows.com.syntax
windows.kernel32 windows.ole32 ;
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
factor: rename files that are not loadable on mac, too
2015-07-19 19:54:27 -04:00
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
[ f ] [
"{76543210-89ab-cdef-0123-456789abcdef}" string>guid
"{01234567-89ab-cdef-0123-456789abcdef}" string>guid
guid=
] unit-test
factor: rename files that are not loadable on mac, too
2015-07-19 19:54:27 -04:00
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
[ f ] [
"{01234567-89ab-cdef-0123-fedcba987654}" string>guid
"{01234567-89ab-cdef-0123-456789abcdef}" string>guid
guid=
] unit-test
factor: rename files that are not loadable on mac, too
2015-07-19 19:54:27 -04:00
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
windows.ole32: add create-guid
2016-06-27 12:07:40 -04:00
{ 0 } [ 10 [ create-guid ] replicate duplicates length ] unit-test