Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-03 11:16:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

adding ffi test with unsigned-char param

Browse source
This commit is contained in:
Alex Shinn 2020-01-27 22:19:51 +08:00
parent 6a2ed9cdb4
commit a88a1ad244
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
tests/ffi/ffi-tests.scm
View file

@ -63,14 +63,19 @@ int cube(int x) {
int sub(int x, int y) {
return x - y;
}
int inc(int x, unsigned char y) {
return x + y;
}
")
(define-c int zero ())
(define-c int cube (int))
(define-c int sub (int int)))
(define-c int sub (int int))
(define-c int inc (int unsigned-char)))
(test 0 (zero))
(test 4 (sub 7 3))
(test -27 (cube -3))
(test -3 (sub (zero) 3)))
(test -3 (sub (zero) 3))
(test 6 (inc 5 1)))
(test-ffi
"params"