X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=test-examples.cl;h=4d1dcbf9cdc8b340c34b906e8d5ded999f1e1795;hb=22b50a1703e3b29bbe6a120484ec46577e2bebf2;hp=09a378318393b92102d9fe2dddc354f817f6ba6e;hpb=d088e362ddd9bdd99c2d1815ab87c5328cdc92a3;p=uffi.git

diff --git a/test-examples.cl b/test-examples.cl
index 09a3783..4d1dcbf 100644
--- a/test-examples.cl
+++ b/test-examples.cl
@@ -1,3 +1,21 @@
+;;;; -*- Mode: ANSI-Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; *************************************************************************
+;;;; FILE IDENTIFICATION
+;;;;
+;;;; Name:          test-examples.cl
+;;;; Purpose:       Load and execute all examples for UFFI
+;;;; Programmer:    Kevin M. Rosenberg
+;;;; Date Started:  Feb 2002
+;;;;
+;;;; $Id: test-examples.cl,v 1.8 2002/03/25 01:24:35 kevin Exp $
+;;;;
+;;;; This file, part of UFFI, is Copyright (c) 2002 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.
+;;;; *************************************************************************
+
 (mk:load-system :uffi)
 
 (pushnew :test-uffi cl:*features*)
@@ -8,8 +26,12 @@
 			       :type "cl"
 			       :directory '(:relative "examples"))
 		*load-truename*))))
-       
+
+  (load-test "c-test-fns")
+  (load-test "arrays")
+  (load-test "union")
   (load-test "strtol")
+  (load-test "atoifl")
   (load-test "gettime")
   (load-test "getenv")
   (load-test "gethostname")