(uffi:def-function ("gethostname" c-gethostname)
((name (* :unsigned-char))
(len :int))
+ :module "c"
:returning :int)
(defun gethostname ()
(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)