From a88a1ad2447bcba0024262f9cf892ff2add653fc Mon Sep 17 00:00:00 2001
From: Alex Shinn <alexshinn@gmail.com>
Date: Mon, 27 Jan 2020 22:19:51 +0800
Subject: [PATCH] adding ffi test with unsigned-char param

---
 tests/ffi/ffi-tests.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/tests/ffi/ffi-tests.scm b/tests/ffi/ffi-tests.scm
index b38860de..95e4efe2 100644
--- a/tests/ffi/ffi-tests.scm
+++ b/tests/ffi/ffi-tests.scm
@@ -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"