X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fforeign-var.lisp;h=9409eeaf476fc7428c7b8ed8c152e289bcd1714f;hb=7004c2691d5695471c7bce9d62b82a1914cf05a2;hp=af072c4fec884f1b0f4ac72942f198362e3afc02;hpb=c56a3b9b365269afb198eb88788caa01c2f99e51;p=uffi.git

diff --git a/tests/foreign-var.lisp b/tests/foreign-var.lisp
index af072c4..9409eea 100644
--- a/tests/foreign-var.lisp
+++ b/tests/foreign-var.lisp
@@ -7,7 +7,7 @@
 ;;;; Authors:       Kevin M. Rosenberg and Edi Weitz
 ;;;; Date Started:  Aug 2003
 ;;;;
-;;;; $Id: foreign-var.lisp,v 1.4 2003/08/15 02:50:24 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; *************************************************************************
 
@@ -39,17 +39,17 @@
   (d :double))
  
 (uffi:def-foreign-var ("fvar_struct" *fvar-struct*) fvar-struct
-  "uffi_tests")
+  "c-uffi-tests")
 
 (uffi:def-function ("fvar_struct_int" fvar-struct-int)
     ()
   :returning :int
-  :module "uffi_tests")
+  :module "c-uffi-test")
  
   (uffi:def-function ("fvar_struct_double" fvar-struct-double)
       ()
     :returning :double
-    :module "uffi_tests")
+    :module "c-uffi-test")
  
 (deftest fvarst.1 *fvar-addend* 3)
 (deftest fvarst.2 (uffi:get-slot-value *fvar-struct* 'fvar-struct 'i) 42)