X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fforeign-var.lisp;fp=tests%2Fforeign-var.lisp;h=08a6e950388dc7d5e6de1539ce3a372f8e01de82;hb=db166e2970e1aaabd611e243eb899ae4d2f5f5ff;hp=0000000000000000000000000000000000000000;hpb=77fd04d570b9ae1fd40c1f7b0134af826576210b;p=uffi.git

diff --git a/tests/foreign-var.lisp b/tests/foreign-var.lisp
new file mode 100644
index 0000000..08a6e95
--- /dev/null
+++ b/tests/foreign-var.lisp
@@ -0,0 +1,34 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; *************************************************************************
+;;;; FILE IDENTIFICATION
+;;;;
+;;;; Name:          foreign-var
+;;;; Purpose:       Tests of foreign variables
+;;;; Programmer:    Kevin M. Rosenberg
+;;;; Date Started:  Aug 2003
+;;;;
+;;;; $Id: foreign-var.lisp,v 1.1 2003/08/14 21:40:13 kevin Exp $
+;;;;
+;;;; *************************************************************************
+
+(in-package #:uffi-tests)
+
+(def-foreign-var "uchar_13" :char "uffi_tests")
+(def-foreign-var "schar_neg_120" :char "uffi_tests")
+(def-foreign-var "uword_257" :unsigned-short "uffi_tests")
+(def-foreign-var "sword_neg_321" :short "uffi_tests")
+(def-foreign-var "uint_1234567" :int "uffi_tests")
+(def-foreign-var "sint_neg_123456" :int "uffi_tests")
+(def-foreign-var "float_neg_4_5" :float "uffi_tests")
+(def-foreign-var "double_3_1" :double "uffi_tests")
+
+(deftest fvar.1 uchar-13 13)
+(deftest fvar.2 schar-neg-120 -120)
+(deftest fvar.3 uword-257 257)
+(deftest fvar.4 sword-neg-321 -321)
+(deftest fvar.5 uint-1234567 1234567)
+(deftest fvar.6 sint-neg-123456 -123456)
+(deftest fvar.7 float-neg-4-5 -4.5f0)
+(deftest fvar.8 double-3-1 3.1d0)
+
+