tests/foreign-var.lisp

   1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
   2 ;;;; *************************************************************************
   3 ;;;; FILE IDENTIFICATION
   4 ;;;;
   5 ;;;; Name:          foreign-var
   6 ;;;; Purpose:       Tests of foreign variables
   7 ;;;; Programmer:    Kevin M. Rosenberg
   8 ;;;; Date Started:  Aug 2003
   9 ;;;;
  10 ;;;; $Id: foreign-var.lisp,v 1.2 2003/08/14 21:58:44 kevin Exp $
  11 ;;;;
  12 ;;;; *************************************************************************
  13
  14 (in-package #:uffi-tests)
  15
  16 (def-foreign-var "uchar_13" :unsigned-byte "uffi_tests")
  17 (def-foreign-var "schar_neg_120" :byte "uffi_tests")
  18 (def-foreign-var "uword_257" :unsigned-short "uffi_tests")
  19 (def-foreign-var "sword_neg_321" :short "uffi_tests")
  20 (def-foreign-var "uint_1234567" :int "uffi_tests")
  21 (def-foreign-var "sint_neg_123456" :int "uffi_tests")
  22 (def-foreign-var "float_neg_4_5" :float "uffi_tests")
  23 (def-foreign-var "double_3_1" :double "uffi_tests")
  24
  25 (deftest fvar.1 uchar-13 13)
  26 (deftest fvar.2 schar-neg-120 -120)
  27 (deftest fvar.3 uword-257 257)
  28 (deftest fvar.4 sword-neg-321 -321)
  29 (deftest fvar.5 uint-1234567 1234567)
  30 (deftest fvar.6 sint-neg-123456 -123456)
  31 (deftest fvar.7 float-neg-4-5 -4.5f0)
  32 (deftest fvar.8 double-3-1 3.1d0)
  33
  34