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

alien.marshall.syntax-tests: added struct tests

db4
Jeremy Hughes 2009-07-09 10:36:53 +12:00
parent 426d173b7c
commit d49b637efd
1 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
basis/alien/marshall/syntax/syntax-tests.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2009 Jeremy Hughes. ! Copyright (C) 2009 Jeremy Hughes.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien.inline alien.marshall.syntax destructors USING: alien.inline alien.marshall.syntax destructors
tools.test ; tools.test accessors kernel ;
IN: alien.marshall.syntax.tests IN: alien.marshall.syntax.tests
DELETE-C-LIBRARY: test DELETE-C-LIBRARY: test
@ -18,6 +18,21 @@ CM-FUNCTION: unsigned-long* outarg2 ( unsigned-long a, unsigned-long* b )
return x; return x;
; ;
CM-STRUCTURE: wedge
{ "double" "degrees" } ;
CM-STRUCTURE: sundial
{ "double" "radius" }
{ "wedge" "wedge" } ;
CM-FUNCTION: double hours ( sundial* d )
return d->wedge.degrees / 30;
;
CM-FUNCTION: void change_time ( double hours, sundial* d )
d->wedge.degrees = hours * 30;
;
;C-LIBRARY ;C-LIBRARY
{ 1 1 } [ outarg1 ] must-infer-as { 1 1 } [ outarg1 ] must-infer-as
@ -25,3 +40,9 @@ CM-FUNCTION: unsigned-long* outarg2 ( unsigned-long a, unsigned-long* b )
{ 2 2 } [ outarg2 ] must-infer-as { 2 2 } [ outarg2 ] must-infer-as
[ 18 15 ] [ 3 5 outarg2 ] unit-test [ 18 15 ] [ 3 5 outarg2 ] unit-test
{ 1 1 } [ hours ] must-infer-as
[ 5.0 ] [ <sundial> <wedge> 150 >>degrees >>wedge hours ] unit-test
{ 2 0 } [ change_time ] must-infer-as
[ 150.0 ] [ 5 <sundial> <wedge> 11 >>degrees >>wedge [ change_time ] keep wedge>> degrees>> ] unit-test