X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fgethostname.lisp;h=82137401e87b1b42abf82a670687167d67bf47eb;hb=3f02f80ce6909ada82d9791172821756f967a844;hp=6b8e482b35bfac65fce9cb284b7c3d1044a8813e;hpb=1a9bfad7573c63b34181820e2186a3580cf2d283;p=uffi.git diff --git a/tests/gethostname.lisp b/tests/gethostname.lisp index 6b8e482..8213740 100644 --- a/tests/gethostname.lisp +++ b/tests/gethostname.lisp @@ -2,21 +2,18 @@ ;;;; ************************************************************************* ;;;; FILE IDENTIFICATION ;;;; -;;;; Name: gethostname.cl +;;;; Name: gethostname.lisp ;;;; Purpose: UFFI Example file to get hostname of system ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: gethostname.lisp,v 1.5 2003/04/29 14:13:55 kevin Exp $ +;;;; $Id$ ;;;; -;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg +;;;; This file, part of UFFI, is Copyright (c) 2002-2003 by Kevin M. Rosenberg ;;;; -;;;; UFFI users are granted the rights to distribute and use this software -;;;; as governed by the terms of the Lisp Lesser GNU Public License -;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL. ;;;; ************************************************************************* -(in-package :uffi-tests) +(in-package #:uffi-tests) ;;; This example is inspired by the example on the CL-Cookbook web site @@ -49,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.5 (gethostname) #.(gethostname2)) +(deftest gethostname.5 (string= (gethostname) (gethostname2)) t)