[clhp-cvs] CVS update: clhp/tests/clhp-test.lisp clhp/tests/test-suite.lisp clhp/tests/cgi-test.lisp clhp/tests/Makefile clhp/tests/.cvsignore

[Anthony Ventimiglia]

Update of /project/clhp/cvsroot/clhp/tests
In directory common-lisp.net:/tmp/cvs-serv1115/tests

Modified Files:
	test-suite.lisp cgi-test.lisp Makefile .cvsignore 
Added Files:
	clhp-test.lisp 
Log Message:
* tests/clhp-test.lisp (*CLHP-TESTS*): Wrote tests for most of
:CLHP

* clhp.lisp (FIND-PI-START, FIND-PI-END): Made 0 a default value
for START.

Date: Thu Oct 16 12:57:25 2003
Author: aventimiglia



Index: clhp/tests/test-suite.lisp
diff -u clhp/tests/test-suite.lisp:1.2 clhp/tests/test-suite.lisp:1.3
--- clhp/tests/test-suite.lisp:1.2	Thu Oct 16 00:00:42 2003
+++ clhp/tests/test-suite.lisp	Thu Oct 16 12:57:25 2003
@@ -160,7 +160,7 @@
     (call-if-function (test-data-post-function data))))
     
 ;; Example
-;(defvar list-test (make-instance 'function-test-data
+;(defparameter list-test (make-instance 'function-test-data
 ;                                :symbol 'list
 ;                                :test-args '(1 2 3 4 5)
 ;                                :result-form '(1 2 3 4 5)))


Index: clhp/tests/cgi-test.lisp
diff -u clhp/tests/cgi-test.lisp:1.9 clhp/tests/cgi-test.lisp:1.10
--- clhp/tests/cgi-test.lisp:1.9	Thu Oct 16 00:00:42 2003
+++ clhp/tests/cgi-test.lisp	Thu Oct 16 12:57:25 2003
@@ -23,19 +23,15 @@
 ;; Test suite to for the :CGI package.  The aim of this is to test all
 ;; external, and possibly internal symbols in the package
 
-;; These classes and methods should be a separate package
-
 (eval-when (:load-toplevel :compile-toplevel)
   (unless (find-package :cgi)
-    (load "library:cgi"))
+    (load "../cgi"))
   (unless (find-package :net.common-lisp.aventimiglia.test-suite)
     (load "test-suite"))
   (when (find-package :clhp) (delete-package :clhp)))
 
 (use-package :test-suite)
 
-(defvar *cgi-tests*)
-
 ;; Still to be tested
 ;; Functions which have side effects and no return values
 ;; INIT
@@ -45,7 +41,7 @@
 
 ;;  Use the following to run-tests
 ;; (mapcar #'run-test *cgi-tests*)
-(setf *cgi-tests*
+(defparameter *cgi-tests*
   (list
    (make-instance 'function-test-data
 		  :symbol 'cgi::explode-string


Index: clhp/tests/Makefile
diff -u clhp/tests/Makefile:1.1 clhp/tests/Makefile:1.2
--- clhp/tests/Makefile:1.1	Wed Oct 15 10:05:57 2003
+++ clhp/tests/Makefile	Thu Oct 16 12:57:25 2003
@@ -1,4 +1,4 @@
-# $Id: Makefile,v 1.1 2003/10/15 14:05:57 aventimiglia Exp $
+# $Id: Makefile,v 1.2 2003/10/16 16:57:25 aventimiglia Exp $
 #
 # CLHP the Common Lisp Hypertext Preprocessor
 # (C) 2003 Anthony J Ventimiglia
@@ -31,7 +31,7 @@
 LISPC=$(LISP) -noinit -load ../config/lispc -core $(CORE) -eval '(make)'
 TEST=$(LISP) -core $(CORE) -load 
 PKGS=test-suite.x86f
-TESTS=cgi-test.x86f
+TESTS=cgi-test.x86f clhp-test.x86f
 
 all: $(TESTS)
 


Index: clhp/tests/.cvsignore
diff -u clhp/tests/.cvsignore:1.1 clhp/tests/.cvsignore:1.2
--- clhp/tests/.cvsignore:1.1	Tue Oct 14 00:33:40 2003
+++ clhp/tests/.cvsignore	Thu Oct 16 12:57:25 2003
@@ -1 +1,3 @@
 cgi-test.x86f
+clhp-test.x86f
+test-suite.x86f