X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fstructs.lisp;h=068ee1f7b2204da09e91f10df8c4591c887b7746;hb=1e5809bc5e68d9f1f5a676fa24253b3b95d490ac;hp=20338d4ded85321dfbe3ce57cb6f5143728e475b;hpb=09ef86d2df68776a773bcf35a32ee45e204f2200;p=uffi.git diff --git a/tests/structs.lisp b/tests/structs.lisp index 20338d4..068ee1f 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)