r10563: add module keyword to def-function

[uffi.git] / tests / gethostname.lisp

diff --git a/tests/gethostname.lisp b/tests/gethostname.lisp
index ec019daed3de518c632bca87fd34e7cbf661ab61..577335a8897a6459b34f7b7bd186efcb74bcf8e4 100644 (file)
--- a/tests/gethostname.lisp
+++ b/tests/gethostname.lisp
@@ -22,6 +22,7 @@
   (uffi:def-function ("gethostname" c-gethostname) 
       ((name (* :unsigned-char))
        (len :int))
   (uffi:def-function ("gethostname" c-gethostname) 
       ((name (* :unsigned-char))
        (len :int))

+    :module "c"

     :returning :int)
   
   (defun gethostname ()
     :returning :int)
   
   (defun gethostname ()


@@ -46,7 +47,7 @@
 (deftest gethostname.2 (stringp (gethostname2)) t)
 (deftest gethostname.3 (plusp (length (gethostname))) t)
 (deftest gethostname.4 (plusp (length (gethostname2))) t)
 (deftest gethostname.2 (stringp (gethostname2)) t)
 (deftest gethostname.3 (plusp (length (gethostname))) t)
 (deftest gethostname.4 (plusp (length (gethostname2))) t)

-(deftest gethostname.5 (gethostname) #.(gethostname2))
+(deftest gethostname.5 (string= (gethostname) (gethostname2)) t)