;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: gethostname.lisp,v 1.6 2003/08/13 18:53:42 kevin Exp $
+;;;; $Id$
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002-2003 by Kevin M. Rosenberg
;;;;
(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)