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

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))