r10380: working on new sbcl

[uffi.git] / tests / gethostname.lisp

diff --git a/tests/gethostname.lisp b/tests/gethostname.lisp
index e9738918a12077d39c3b1886726eb71d513f1d5b..82137401e87b1b42abf82a670687167d67bf47eb 100644 (file)
--- a/tests/gethostname.lisp
+++ b/tests/gethostname.lisp
@@ -2,53 +2,51 @@
 ;;;; *************************************************************************
 ;;;; FILE IDENTIFICATION
 ;;;;
 ;;;; *************************************************************************
 ;;;; 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
 ;;;;
 ;;;; Purpose:       UFFI Example file to get hostname of system
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;

-;;;; $Id: gethostname.lisp,v 1.4 2003/04/29 14:08:02 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
 
 
 
 ;;; This example is inspired by the example on the CL-Cookbook web site
 

-(uffi:def-function ("gethostname" c-gethostname) 
-    ((name (* :unsigned-char))
-     (len :int))
-  :returning :int)
-
-(defun gethostname ()
-  "Returns the hostname"
-  (let* ((name (uffi:allocate-foreign-string 256))
-        (result-code (c-gethostname name 256))
-        (hostname (when (zerop result-code)
-                    (uffi:convert-from-foreign-string name))))
-    (uffi:free-foreign-object name)
-    (unless (zerop result-code)
-      (error "gethostname() failed."))
-    hostname))
-
-(defun gethostname2 ()
-  "Returns the hostname"
-  (uffi:with-foreign-object (name '(:array :unsigned-char 256))
-    (if (zerop (c-gethostname (uffi:char-array-to-pointer name) 256))
-       (uffi:convert-from-foreign-string name)
-       (error "gethostname() failed."))))
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (uffi:def-function ("gethostname" c-gethostname) 
+      ((name (* :unsigned-char))
+       (len :int))
+    :returning :int)
+  
+  (defun gethostname ()
+    "Returns the hostname"
+    (let* ((name (uffi:allocate-foreign-string 256))
+          (result-code (c-gethostname name 256))
+          (hostname (when (zerop result-code)
+                      (uffi:convert-from-foreign-string name))))
+      (uffi:free-foreign-object name)
+      (unless (zerop result-code)
+       (error "gethostname() failed."))
+      hostname))
+  
+  (defun gethostname2 ()
+    "Returns the hostname"
+    (uffi:with-foreign-object (name '(:array :unsigned-char 256))
+      (if (zerop (c-gethostname (uffi:char-array-to-pointer name) 256))
+         (uffi:convert-from-foreign-string name)
+         (error "gethostname() failed.")))))

 
 (deftest gethostname.1 (stringp (gethostname)) t)
 (deftest gethostname.2 (stringp (gethostname2)) t)
 (deftest gethostname.3 (plusp (length (gethostname))) t)
 (deftest gethostname.4 (plusp (length (gethostname2))) t)
 
 (deftest gethostname.1 (stringp (gethostname)) 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)