steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

test that STRUCT:s and UNION-STRUCT:s see properly

db4
Joe Groff 2009-08-19 20:32:49 -05:00
parent 4d95e5ef2e
commit 767d64622d
1 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
extra/classes/struct/struct-tests.factor
View File

@ -1,7 +1,7 @@
! (c)Joe Groff bsd license ! (c)Joe Groff bsd license
USING: accessors alien.c-types classes.c-types classes.struct USING: accessors alien.c-types classes.c-types classes.struct
combinators io.streams.string kernel libc math namespaces combinators io.streams.string kernel libc math multiline namespaces
prettyprint prettyprint.config tools.test ; prettyprint prettyprint.config see tools.test ;
IN: classes.struct.tests IN: classes.struct.tests
STRUCT: foo STRUCT: foo
@ -46,3 +46,17 @@ UNION-STRUCT: float-and-bits
[ "S{ foo f 0 7654 f }" ] [ "S{ foo f 0 7654 f }" ]
[ t boa-tuples? [ foo <struct> 7654 >>y [ pprint ] with-string-writer ] with-variable ] unit-test [ t boa-tuples? [ foo <struct> 7654 >>y [ pprint ] with-string-writer ] with-variable ] unit-test
[ <" USING: classes.c-types classes.struct kernel ;
IN: classes.struct.tests
STRUCT: foo
{ x char initial: 0 } { y int initial: 123 }
{ z boolean initial: f } ;
"> ]
[ [ foo see ] with-string-writer ] unit-test
[ <" USING: classes.c-types classes.struct ;
IN: classes.struct.tests
UNION-STRUCT: float-and-bits
{ f single-float initial: 0.0 } { bits uint initial: 0 } ;
"> ]
[ [ float-and-bits see ] with-string-writer ] unit-test