[bknr-cvs] r2512 - branches/trunk-reorg/thirdparty/uffi-1.6.0/tests

[hhubner at common-lisp.net]

Author: hhubner
Date: Sat Feb 16 07:43:24 2008
New Revision: 2512

Modified:
   branches/trunk-reorg/thirdparty/uffi-1.6.0/tests/structs.lisp
Log:
Add unit test that verifies pointer-to-pointer structure fields.


Modified: branches/trunk-reorg/thirdparty/uffi-1.6.0/tests/structs.lisp
==============================================================================
--- branches/trunk-reorg/thirdparty/uffi-1.6.0/tests/structs.lisp	(original)
+++ branches/trunk-reorg/thirdparty/uffi-1.6.0/tests/structs.lisp	Sat Feb 16 07:43:24 2008
@@ -19,7 +19,8 @@
 
 
 (uffi:def-struct foo
-    (bar :pointer-self))
+    (bar :pointer-self)
+  (pointer-pointer (* (* :unsigned-char))))
 
 (uffi:def-foreign-type foo-ptr (* foo))