r5495: *** empty log message ***

[uffi.git] / tests / pointers.lisp

diff --git a/tests/pointers.lisp b/tests/pointers.lisp
new file mode 100644 (file)
index 0000000..9f704ff
--- /dev/null
+++ b/tests/pointers.lisp
@@ -0,0 +1,41 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; *************************************************************************
+;;;; FILE IDENTIFICATION
+;;;;
+;;;; Name:          pointers.lisp
+;;;; Purpose:       Test file for UFFI pointers
+;;;; Programmer:    Kevin M. Rosenberg
+;;;; Date Started:  Aug 2003
+;;;;
+;;;; $Id: pointers.lisp,v 1.1 2003/08/14 19:35:05 kevin Exp $
+;;;;
+;;;; This file, part of UFFI, is Copyright (c) 2003 by Kevin M. Rosenberg
+;;;;
+;;;; *************************************************************************
+
+(in-package #:uffi-tests)
+
+(deftest chptr.1
+    (let ((native-string "test string"))
+      (uffi:with-foreign-string (fs native-string)
+       (characterp
+        (ensure-char-character
+         (deref-pointer fs :char)))))
+  t)
+
+(deftest chptr.2
+    (let ((native-string "test string"))
+      (uffi:with-foreign-string (fs native-string)
+       (characterp
+        (ensure-char-character
+         (deref-pointer fs :unsigned-char)))))
+  t)
+
+(deftest chptr.3
+    (let ((native-string "test string"))
+      (uffi:with-foreign-string (fs native-string)
+       (numberp
+        (deref-pointer fs :byte))))
+  t)
+
+