Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 04:25:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added foreign-value tests

Browse source
This commit is contained in:
Justin Ethier 2020-04-24 17:15:11 -04:00
parent 653319c290
commit 739486b9e3
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
test-foreign.scm
View file

@ -134,7 +134,11 @@
;(write (Cyc-foreign-value "errno" "3")) ;(write (Cyc-foreign-value "errno" "3"))
;(newline) ;(newline)
(test-group "basic" (test-group "foreign-value"
(test 3 (Cyc-foreign-value "1 + 2" 'integer))
)
(test-group "foreign-code"
(write (foreign-code (write (foreign-code
"printf(\"test %d %d \\n\", 1, 2);" "printf(\"test %d %d \\n\", 1, 2);"
"printf(\"test %d %d %d\\n\", 1, 2, 3);")) (newline) "printf(\"test %d %d %d\\n\", 1, 2, 3);")) (newline)