X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fstructs.lisp;h=806de8a811bdf6f44a37b6402539afa712d3a328;hb=e0f5a9b35708481bb640718f8ecd837cf4ae69f5;hp=20338d4ded85321dfbe3ce57cb6f5143728e475b;hpb=09ef86d2df68776a773bcf35a32ee45e204f2200;p=uffi.git diff --git a/tests/structs.lisp b/tests/structs.lisp index 20338d4..806de8a 100644 --- a/tests/structs.lisp +++ b/tests/structs.lisp @@ -9,7 +9,7 @@ ;;;; ;;;; $Id$ ;;;; -;;;; This file, part of UFFI, is Copyright (c) 2002-2003 by Kevin M. Rosenberg +;;;; This file, part of UFFI, is Copyright (c) 2002-2005 by Kevin M. Rosenberg ;;;; ;;;; ************************************************************************* @@ -24,12 +24,12 @@ (uffi:def-foreign-type foo-ptr (* foo)) ;; tests that compilation worked -(deftest structs.1 +(deftest :structs.1 (with-foreign-object (p 'foo) t) t) -(deftest structs.2 +(deftest :structs.2 (progn (uffi:def-foreign-type foo-struct (:struct foo)) t)