tests/pointers.lisp

   1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
   2 ;;;; *************************************************************************
   3 ;;;; FILE IDENTIFICATION
   4 ;;;;
   5 ;;;; Name:          pointers.lisp
   6 ;;;; Purpose:       Test file for UFFI pointers
   7 ;;;; Programmer:    Kevin M. Rosenberg
   8 ;;;; Date Started:  Aug 2003
   9 ;;;;
  10 ;;;; $Id$
  11 ;;;;
  12 ;;;; This file, part of UFFI, is Copyright (c) 2003 by Kevin M. Rosenberg
  13 ;;;;
  14 ;;;; *************************************************************************
  15
  16 (in-package #:uffi-tests)
  17
  18 (deftest chptr.1
  19     (let ((native-string "test string"))
  20       (uffi:with-foreign-string (fs native-string)
  21         (characterp
  22          (ensure-char-character
  23           (deref-pointer fs :char)))))
  24   t)
  25
  26 (deftest chptr.2
  27     (let ((native-string "test string"))
  28       (uffi:with-foreign-string (fs native-string)
  29         (characterp
  30          (ensure-char-character
  31           (deref-pointer fs :unsigned-char)))))
  32   t)
  33
  34 (deftest chptr.3
  35     (let ((native-string "test string"))
  36       (uffi:with-foreign-string (fs native-string)
  37         (numberp
  38          (deref-pointer fs :byte))))
  39   t)
  40
  41