r10380: working on new sbcl

[uffi.git] / tests / gethostname.lisp

diff --git a/tests/gethostname.lisp b/tests/gethostname.lisp
index d05e2eaf30690c2dfaeb4770c655caadb469e3fb..82137401e87b1b42abf82a670687167d67bf47eb 100644 (file)
--- a/tests/gethostname.lisp
+++ b/tests/gethostname.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
 ;;;; 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
 ;;;;
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002-2003 by Kevin M. Rosenberg
 ;;;;


@@ -46,7 +46,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)