From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Wed, 8 Jun 2005 21:26:17 +0000 (+0000)
Subject: r10585: rename to more closely align with src filename
X-Git-Tag: v1.6.1~50
X-Git-Url: http://git.kpe.io/?p=uffi.git;a=commitdiff_plain;h=38083fa0ada6710a73df1efee5121624b8c4f8dc

r10585: rename to more closely align with src filename
---

diff --git a/tests/objects.lisp b/tests/objects.lisp
new file mode 100644
index 0000000..cebb359
--- /dev/null
+++ b/tests/objects.lisp
@@ -0,0 +1,70 @@
+;;;; -*- 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$
+;;;;
+;;;; 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)
+	(ensure-char-character
+	 (deref-pointer fs :char))))
+  #\t)
+
+(deftest :chptr.2
+    (let ((native-string "test string"))
+      (uffi:with-foreign-string (fs native-string)
+	(ensure-char-character
+	 (deref-pointer fs :unsigned-char))))
+  #\t)
+
+(deftest :chptr.3
+    (let ((native-string "test string"))
+      (uffi:with-foreign-string (fs native-string)
+	(ensure-char-integer
+	 (deref-pointer fs :unsigned-char))))
+  116)
+
+(deftest :chptr.4
+    (let ((native-string "test string"))
+      (uffi:with-foreign-string (fs native-string)
+	(integerp
+	 (ensure-char-integer
+	  (deref-pointer fs :unsigned-char)))))
+  t)
+	
+(deftest :chptr.5
+    (let ((fs (uffi:allocate-foreign-object :unsigned-char 128)))
+      (setf (uffi:deref-array fs '(:array :unsigned-char) 0)
+	    (uffi:ensure-char-storable #\a))
+      (setf (uffi:deref-array fs '(:array :unsigned-char) 1)
+	    (uffi:ensure-char-storable (code-char 0)))
+      (uffi:convert-from-foreign-string fs))
+  "a")
+
+;; This produces an array which needs fli:foreign-aref to access
+;; rather than fli:dereference
+
+#-lispworks
+(deftest :chptr.6
+    (uffi:with-foreign-object (fs '(:array :unsigned-char 128))
+      (setf (uffi:deref-array fs '(:array :unsigned-char) 0)
+	    (uffi:ensure-char-storable #\a))
+      (setf (uffi:deref-array fs '(:array :unsigned-char) 1)
+	    (uffi:ensure-char-storable (code-char 0)))
+      (uffi:convert-from-foreign-string fs))
+  "a")
+
+      
+				  
diff --git a/tests/pointers.lisp b/tests/pointers.lisp
deleted file mode 100644
index cebb359..0000000
--- a/tests/pointers.lisp
+++ /dev/null
@@ -1,70 +0,0 @@
-;;;; -*- 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$
-;;;;
-;;;; 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)
-	(ensure-char-character
-	 (deref-pointer fs :char))))
-  #\t)
-
-(deftest :chptr.2
-    (let ((native-string "test string"))
-      (uffi:with-foreign-string (fs native-string)
-	(ensure-char-character
-	 (deref-pointer fs :unsigned-char))))
-  #\t)
-
-(deftest :chptr.3
-    (let ((native-string "test string"))
-      (uffi:with-foreign-string (fs native-string)
-	(ensure-char-integer
-	 (deref-pointer fs :unsigned-char))))
-  116)
-
-(deftest :chptr.4
-    (let ((native-string "test string"))
-      (uffi:with-foreign-string (fs native-string)
-	(integerp
-	 (ensure-char-integer
-	  (deref-pointer fs :unsigned-char)))))
-  t)
-	
-(deftest :chptr.5
-    (let ((fs (uffi:allocate-foreign-object :unsigned-char 128)))
-      (setf (uffi:deref-array fs '(:array :unsigned-char) 0)
-	    (uffi:ensure-char-storable #\a))
-      (setf (uffi:deref-array fs '(:array :unsigned-char) 1)
-	    (uffi:ensure-char-storable (code-char 0)))
-      (uffi:convert-from-foreign-string fs))
-  "a")
-
-;; This produces an array which needs fli:foreign-aref to access
-;; rather than fli:dereference
-
-#-lispworks
-(deftest :chptr.6
-    (uffi:with-foreign-object (fs '(:array :unsigned-char 128))
-      (setf (uffi:deref-array fs '(:array :unsigned-char) 0)
-	    (uffi:ensure-char-storable #\a))
-      (setf (uffi:deref-array fs '(:array :unsigned-char) 1)
-	    (uffi:ensure-char-storable (code-char 0)))
-      (uffi:convert-from-foreign-string fs))
-  "a")
-
-      
-