; Copyright (c) 1993-2008 by Richard Kelsey and Jonathan Rees. See file COPYING.

; Author: Harald Glab-Plhak

;; test for the new ffi

(define-test-suite  ffi-base-tests )

;; test a simple insert with two bindings

(define-test-case ffi-base-test-case ffi-base-tests 
  (check 
   (let ((result (ffi-add-integer 50)))
     (/ result 10))
   => 50))
