Ticket #1614: test.patch

tests/compiler-tests.scm

@@ -69 +69 @@
 (import x)
 (assert (= 1 ((bar 42))))
 
+
+;; Test custom foreign type conversions
+
+(module y (my-add1)
+  (import scheme (chicken base) (chicken foreign))
+
+  (define-foreign-type my-int integer add1 sub1)
+
+  (define my-add1 (foreign-lambda* my-int ((my-int x)) "C_return(x+1);")))
+
+(import y)
+(assert (= 2 (my-add1 1)))
+
 ;;; rev. 14574 (reported by Peter Bex)
 ;
 ; - type specifiers in foreign-lambda in macros are incorrectly renamed