X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fcasts.lisp;h=da4bfa5d747c65e3644f9ccc179c24b93d9fba5b;hb=7004c2691d5695471c7bce9d62b82a1914cf05a2;hp=4e19cfd33b1b854760631defcc2d173575e11e37;hpb=77fd04d570b9ae1fd40c1f7b0134af826576210b;p=uffi.git

diff --git a/tests/casts.lisp b/tests/casts.lisp
index 4e19cfd..da4bfa5 100644
--- a/tests/casts.lisp
+++ b/tests/casts.lisp
@@ -2,12 +2,12 @@
 ;;;; *************************************************************************
 ;;;; FILE IDENTIFICATION
 ;;;;
-;;;; Name:          casts
+;;;; Name:          casts.lisp
 ;;;; Purpose:       Tests of with-cast-pointer
 ;;;; Programmer:    Kevin M. Rosenberg / Edi Weitz
 ;;;; Date Started:  Aug 2003
 ;;;;
-;;;; $Id: casts.lisp,v 1.1 2003/08/14 19:35:05 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; *************************************************************************
 
@@ -15,10 +15,12 @@
 
 (uffi:def-function ("cast_test_int" cast-test-int)
     ()
+  :module "c-uffi-test"
   :returning :pointer-void)
 
 (uffi:def-function ("cast_test_float" cast-test-float)
     ()
+  :module "c-uffi-test"
   :returning :pointer-void)
 
 (deftest cast.1