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