X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fstructs.lisp;h=eb8b78cbe9306406c06c29cd987a11665a36bcef;hb=HEAD;hp=20338d4ded85321dfbe3ce57cb6f5143728e475b;hpb=09ef86d2df68776a773bcf35a32ee45e204f2200;p=uffi.git diff --git a/tests/structs.lisp b/tests/structs.lisp index 20338d4..eb8b78c 100644 --- a/tests/structs.lisp +++ b/tests/structs.lisp @@ -7,9 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id$ -;;;; -;;;; This file, part of UFFI, is Copyright (c) 2002-2003 by Kevin M. Rosenberg +;;;; This file, part of UFFI, is Copyright (c) 2002-2010 by Kevin M. Rosenberg ;;;; ;;;; ************************************************************************* @@ -24,12 +22,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)