Commit 442fb32f authored by Daniel Kochmański's avatar Daniel Kochmański

restruct: test suites has separate directories

Signed-off-by: Daniel Kochmański's avatarDaniel Kochmański <daniel@turtleware.eu>
parent 8185d3ac
;;; Tests on arrays
(compile-and-load "ANSI-TESTS:AUX;array-aux.lsp")
(compile-and-load "ANSI-TESTS:AUX;bit-aux.lsp")
(let ((*default-pathname-defaults* (pathname *load-pathname*)))
(load "aref.lsp")
(load "array.lsp")
(load "array-t.lsp")
(load "array-as-class.lsp")
(load "simple-array.lsp")
(load "simple-array-t.lsp")
(load "bit-vector.lsp")
(load "simple-bit-vector.lsp")
(load "make-array.lsp")
(load "adjust-array.lsp")
(load "adjustable-array-p.lsp")
(load "array-displacement.lsp")
(load "array-dimension.lsp")
(load "array-dimensions.lsp")
(load "array-element-type.lsp")
(load "array-in-bounds-p.lsp")
(load "array-misc.lsp")
(load "array-rank.lsp")
(load "array-row-major-index.lsp")
(load "array-total-size.lsp")
(load "arrayp.lsp")
(load "fill-pointer.lsp")
(load "row-major-aref.lsp")
(load "simple-vector-p.lsp")
(load "svref.lsp")
(load "upgraded-array-element-type.lsp")
(load "vector.lsp")
(load "vector-pop.lsp")
(load "vector-push.lsp")
(load "vector-push-extend.lsp")
(load "vectorp.lsp")
(load "bit.lsp")
(load "sbit.lsp")
(load "bit-and.lsp")
(load "bit-andc1.lsp")
(load "bit-andc2.lsp")
(load "bit-eqv.lsp")
(load "bit-ior.lsp")
(load "bit-nand.lsp")
(load "bit-nor.lsp")
(load "bit-orc1.lsp")
(load "bit-orc2.lsp")
(load "bit-xor.lsp")
(load "bit-not.lsp")
(load "bit-vector-p.lsp")
(load "simple-bit-vector-p.lsp"))
;;;; Character tests ;;;; Character tests
(compile-and-load "ANSI-TESTS:AUX;char-aux.lsp") (compile-and-load "ANSI-TESTS:AUX;char-aux.lsp")
(load "characters/character.lsp") (let ((*default-pathname-defaults* (pathname *load-pathname*)))
(load "characters/char-compare.lsp") (load "character.lsp")
(load "characters/name-char.lsp") (load "char-compare.lsp")
(load "name-char.lsp")
)
;;; Tests of conditions
(compile-and-load "ANSI-TESTS:AUX;types-aux.lsp")
(compile-and-load "ANSI-TESTS:AUX;define-condition-aux.lsp")
(let ((*default-pathname-defaults* (pathname *load-pathname*)))
(load "condition.lsp")
(load "cell-error-name.lsp")
(load "assert.lsp")
(load "error.lsp")
(load "cerror.lsp")
(load "check-type.lsp")
(load "warn.lsp")
(load "invoke-debugger.lsp")
(load "handler-bind.lsp")
(load "handler-case.lsp")
(load "ignore-errors.lsp")
(load "define-condition.lsp")
(load "compute-restarts.lsp")
(load "restart-bind.lsp")
(load "restart-case.lsp")
(load "with-condition-restarts.lsp")
(load "with-simple-restart.lsp")
(load "abort.lsp")
(load "muffle-warning.lsp")
(load "continue.lsp")
(load "store-value.lsp")
(load "use-value.lsp")
(load "make-condition.lsp")
)
;;; Tests of conses
(compile-and-load "ANSI-TESTS:AUX;cons-aux.lsp")
(let ((*default-pathname-defaults* (pathname *load-pathname*)))
(load "cons.lsp")
(load "consp.lsp")
(load "atom.lsp")
(load "cxr.lsp")
(load "rplaca.lsp")
(load "rplacd.lsp")
(load "copy-tree.lsp")
(load "sublis.lsp")
(load "nsublis.lsp")
(load "subst.lsp")
(load "subst-if.lsp")
(load "subst-if-not.lsp")
(load "nsubst.lsp")
(load "nsubst-if.lsp")
(load "nsubst-if-not.lsp")
(load "tree-equal.lsp")
(load "copy-list.lsp")
(load "list.lsp")
(load "list-length.lsp")
(load "listp.lsp")
(load "make-list.lsp")
(load "push.lsp")
(load "pop.lsp")
(load "pushnew.lsp")
(load "adjoin.lsp")
(load "nth.lsp")
(load "endp.lsp")
(load "nconc.lsp")
(load "append.lsp")
(load "revappend.lsp")
(load "nreconc.lsp")
(load "butlast.lsp")
(load "nbutlast.lsp")
(load "last.lsp")
(load "ldiff.lsp")
(load "tailp.lsp")
(load "nthcdr.lsp")
(load "rest.lsp")
(load "member.lsp")
(load "member-if.lsp")
(load "member-if-not.lsp")
(load "mapc.lsp")
(load "mapcar.lsp")
(load "mapcan.lsp")
(load "mapl.lsp")
(load "maplist.lsp")
(load "mapcon.lsp")
(load "acons.lsp")
(load "assoc.lsp")
(load "assoc-if.lsp")
(load "assoc-if-not.lsp")
(load "rassoc.lsp")
(load "rassoc-if.lsp")
(load "rassoc-if-not.lsp")
(load "copy-alist.lsp")
(load "pairlis.lsp")
(load "get-properties.lsp")
(load "getf.lsp")
(load "remf.lsp")
(load "intersection.lsp")
(load "nintersection.lsp")
(load "union.lsp")
(load "nunion.lsp")
(load "set-difference.lsp")
(load "nset-difference.lsp")
(load "set-exclusive-or.lsp")
(load "nset-exclusive-or.lsp")
(load "subsetp.lsp")
;;; Misc. stuff that should be moved elsewhere
(load "cons-test-01.lsp")
(load "cons-test-03.lsp")
(load "cons-test-05.lsp"))
;;; Tests of data and control flow
(compile-and-load "ANSI-TESTS:AUX;cons-aux.lsp")
(compile-and-load "ANSI-TESTS:AUX;random-aux.lsp")
(compile-and-load "ANSI-TESTS:AUX;types-aux.lsp")
(let ((*default-pathname-defaults* (pathname *load-pathname*)))
(load "data-and-control-flow.lsp")
(load "places.lsp")
(load "psetq.lsp")
(load "psetf.lsp")
(load "shiftf.lsp")
(load "rotatef.lsp")
(load "return.lsp")
(load "return-from.lsp")
(load "defsetf.lsp")
(load "define-setf-expander.lsp")
(load "and.lsp")
(load "apply.lsp")
(load "block.lsp")
(load "call-arguments-limit.lsp")
(load "case.lsp")
(load "catch.lsp")
(load "ccase.lsp")
(load "compiled-function-p.lsp")
(load "complement.lsp")
(load "cond.lsp")
(load "constantly.lsp")
(load "ctypecase.lsp")
(load "defconstant.lsp")
(load "define-modify-macro.lsp")
(load "defparameter.lsp")
(load "defun.lsp")
(load "defvar.lsp")
(load "destructuring-bind.lsp")
(load "ecase.lsp")
(load "eql.lsp")
(load "equal.lsp")
(load "equalp.lsp")
(load "etypecase.lsp")
(load "every.lsp")
(load "fboundp.lsp")
(load "fdefinition.lsp")
(load "flet.lsp")
(load "fmakunbound.lsp")
(load "funcall.lsp")
(load "function-lambda-expression.lsp")
(load "function.lsp")
(load "functionp.lsp")
(load "get-setf-expansion.lsp")
(load "identity.lsp")
(load "if.lsp")
(load "labels.lsp")
(load "lambda-list-keywords.lsp")
(load "lambda-parameters-limit.lsp")
(load "let.lsp")
(load "letstar.lsp")
(load "macrolet.lsp")
(load "multiple-value-bind.lsp")
(load "multiple-value-call.lsp") ;; include multiple-value-list
(load "multiple-value-prog1.lsp")
(load "multiple-value-setq.lsp")
(load "multiple-value-list.lsp")
(load "nil.lsp")
(load "not-and-null.lsp")
(load "notany.lsp")
(load "notevery.lsp")
(load "nth-value.lsp")
(load "or.lsp")
(load "prog.lsp")
(load "prog1.lsp")
(load "prog2.lsp")
(load "progn.lsp")
(load "progv.lsp")
(load "some.lsp")
(load "t.lsp")
(load "tagbody.lsp")
(load "typecase.lsp")
(load "unless.lsp")
(load "unwind-protect.lsp")
(load "values-list.lsp")
(load "values.lsp")
(load "when.lsp"))
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Sun Dec 12 19:43:17 2004
;;;; Contains: Load environment tests (section 25)
(let ((*default-pathname-defaults* (pathname *load-pathname*)))
(load "apropos.lsp")
(load "apropos-list.lsp")
(load "describe.lsp")
(load "disassemble.lsp")
(load "environment-functions.lsp")
(load "room.lsp")
(load "time.lsp")
(load "trace.lsp") ;; and untrace
(load "user-homedir-pathname.lsp")
(load "decode-universal-time.lsp")
(load "encode-universal-time.lsp")
(load "get-universal-time.lsp")
(load "sleep.lsp")
(load "get-internal-time.lsp")
(load "documentation.lsp")
#-lispworks (load "inspect.lsp")
(load "dribble.lsp")
(load "ed.lsp")
)
;;; Tests of evaluation and compilation
(let ((*default-pathname-defaults* (pathname *load-pathname*)))
(load "eval-and-compile/eval.lsp")
(load "eval-and-compile/eval-and-compile.lsp")
(load "eval-and-compile/compile.lsp")
(load "eval-and-compile/compiler-macros.lsp")
(load "eval-and-compile/constantp.lsp")
(load "eval-and-compile/lambda.lsp")
(load "eval-and-compile/eval-when.lsp")
(load "eval-and-compile/define-compiler-macro.lsp")
(load "eval-and-compile/define-symbol-macro.lsp")
(load "eval-and-compile/defmacro.lsp")
(load "eval-and-compile/the.lsp")
(load "eval-and-compile/symbol-macrolet.lsp")
(load "eval-and-compile/proclaim.lsp")
(load "eval-and-compile/declaim.lsp")
(load "eval-and-compile/locally.lsp")
(load "eval-and-compile/ignore.lsp")
(load "eval-and-compile/ignorable.lsp")
(load "eval-and-compile/dynamic-extent.lsp")
(load "eval-and-compile/optimize.lsp")
(load "eval-and-compile/special.lsp")
(load "eval-and-compile/macroexpand.lsp")
(load "eval-and-compile/macroexpand-1.lsp")
(load "eval-and-compile/declaration.lsp")
(load "eval-and-compile/type.lsp")
(load "eval-and-compile/macro-function.lsp"))
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Thu Jan 1 11:59:35 2004
;;;; Contains: Load tests of section 20, 'Files'
(in-package :cl-test)
(let ((*default-pathname-defaults* (pathname *load-pathname*)))
(load "directory.lsp")
(load "probe-file.lsp")
(load "ensure-directories-exist.lsp")
(load "truename.lsp")
(load "file-author.lsp")
(load "file-write-date.lsp")
(load "rename-file.lsp")
(load "delete-file.lsp")
(load "file-error.lsp")
)
...@@ -5,12 +5,13 @@ ...@@ -5,12 +5,13 @@
(in-package :cl-test) (in-package :cl-test)
(load "files/directory.lsp") (let ((*default-pathname-defaults* (pathname *load-pathname*)))
(load "files/probe-file.lsp") (load "directory.lsp")
(load "files/ensure-directories-exist.lsp") (load "probe-file.lsp")
(load "files/truename.lsp") (load "ensure-directories-exist.lsp")
(load "files/file-author.lsp") (load "truename.lsp")
(load "files/file-write-date.lsp") (load "file-author.lsp")
(load "files/rename-file.lsp") (load "file-write-date.lsp")
(load "files/delete-file.lsp") (load "rename-file.lsp")
(load "files/file-error.lsp") (load "delete-file.lsp")
(load "file-error.lsp"))
;;; Load test files ;;; Load test files
;;; Tests of symbols ;;; Tests of symbols
(load "load-symbols.lsp") (load "symbols/load.lsp")
;;; Tests of evaluation and compilation ;;; Tests of evaluation and compilation
(load "load-eval-and-compile.lsp") (load "eval-and-compile/load.lsp")
;;; Tests of data and control flow ;;; Tests of data and control flow
(load "load-data-and-control-flow.lsp") (load "data-and-control-flow/load.lsp")
;;; Tests of iteration forms ;;; Tests of iteration forms
(load "load-iteration.lsp") (load "iteration/load.lsp")
;;; Tests of objects ;;; Tests of objects
(load "load-objects.lsp") (load "objects/load.lsp")
;;; Tests of conditions ;;; Tests of conditions
(load "load-conditions.lsp") (load "conditions/load.lsp")
;;; Tests of conses ;;; Tests of conses
(load "load-cons.lsp") (load "cons/load.lsp")
;;; Tests on arrays ;;; Tests on arrays
(load "load-arrays.lsp") (load "arrays/load.lsp")
;;; Tests of hash tables ;;; Tests of hash tables
(load "load-hash-tables.lsp") (load "hash-tables/load.lsp")
;;; Tests of packages ;;; Tests of packages
(load "load-packages.lsp") (load "packages/load.lsp")
;;; Tests of numbers (section 12) ;;; Tests of numbers (section 12)
(load "load-numbers.lsp") (load "numbers/load.lsp")
;;; Tests of sequences ;;; Tests of sequences
(load "load-sequences.lsp") (load "sequences/load.lsp")
;;; Tests of structures ;;; Tests of structures
(load "load-structures.lsp") (load "structures/load.lsp")
;;; Tests of types and classes ;;; Tests of types and classes
(load "load-types-and-class.lsp") (load "types-and-class/load.lsp")
;;; Tests of strings ;;; Tests of strings
(load "load-strings.lsp") (load "strings/load.lsp")
;;; Tests for character functions ;;; Tests for character functions
(load "load-characters.lsp") (load "characters/load.lsp")
;;; Tests of pathnames ;;; Tests of pathnames
(load "load-pathnames.lsp") (load "pathnames/load.lsp")
;;; Tests of file operations ;;; Tests of file operations
(load "load-files.lsp") (load "files/load.lsp")
;;; Tests of streams ;;; Tests of streams
(load "load-streams.lsp") (load "streams/load.lsp")
;;; Tests of the printer ;;; Tests of the printer
(load "load-printer.lsp") (load "printer/load.lsp")
;;; Tests of the reader ;;; Tests of the reader
(load "load-reader.lsp") (load "reader/load.lsp")
;;; Tests of system construction ;;; Tests of system construction
(load "load-system-construction.lsp") (load "system-construction/load.lsp")
;;; Tests of environment ;;; Tests of environment
(load "load-environment.lsp") (load "environment/load.lsp")
;;; Miscellaneous tests, mostly tests that failed in random testing ;;; Miscellaneous tests, mostly tests that failed in random testing
;;; on various implementations ;;; on various implementations
(load "load-misc.lsp") (load "misc/load.lsp")
(compile-and-load "ANSI-TESTS:AUX;hash-table-aux.lsp")
(let ((*default-pathname-defaults* (pathname *load-pathname*)))
(load "hash-table.lsp")
(load "make-hash-table.lsp")
(load "hash-table-p.lsp")
(load "hash-table-count.lsp")
(load "hash-table-size.lsp")
(load "hash-table-rehash-size.lsp")
(load "hash-table-rehash-threshold.lsp")
(load "hash-table-test.lsp")
(load "gethash.lsp")
(load "remhash.lsp")
(load "clrhash.lsp")
(load "maphash.lsp")
(load "with-hash-table-iterator.lsp")
(load "sxhash.lsp")
)
;;; Tests of iteration forms
(let ((*default-pathname-defaults* (pathname *load-pathname*)))
(load "do.lsp")
(load "dostar.lsp")
(load "dolist.lsp")
(load "dotimes.lsp")
(load "loop.lsp")
(load "loop1.lsp")
(load "loop2.lsp")
(load "loop3.lsp")
(load "loop4.lsp")
(load "loop5.lsp")
(load "loop6.lsp")
(load "loop7.lsp")
(load "loop8.lsp")
(load "loop9.lsp")
(load "loop10.lsp")
(load "loop11.lsp")
(load "loop12.lsp")
(load "loop13.lsp")
(load "loop14.lsp")
(load "loop15.lsp")
(load "loop16.lsp")
(load "loop17.lsp")
)
;;; Tests on arrays
(compile-and-load "ANSI-TESTS:AUX;array-aux.lsp")
(compile-and-load "ANSI-TESTS:AUX;bit-aux.lsp")
(load "arrays/aref.lsp")
(load "arrays/array.lsp")
(load "arrays/array-t.lsp")
(load "arrays/array-as-class.lsp")
(load "arrays/simple-array.lsp")
(load "arrays/simple-array-t.lsp")
(load "arrays/bit-vector.lsp")
(load "arrays/simple-bit-vector.lsp")
(load "arrays/make-array.lsp")
(load "arrays/adjust-array.lsp")
(load "arrays/adjustable-array-p.lsp")
(load "arrays/array-displacement.lsp")
(load "arrays/array-dimension.lsp")
(load "arrays/array-dimensions.lsp")
(load "arrays/array-element-type.lsp")
(load "arrays/array-in-bounds-p.lsp")
(load "arrays/array-misc.lsp")
(load "arrays/array-rank.lsp")
(load "arrays/array-row-major-index.lsp")
(load "arrays/array-total-size.lsp")
(load "arrays/arrayp.lsp")
(load "arrays/fill-pointer.lsp")
(load "arrays/row-major-aref.lsp")
(load "arrays/simple-vector-p.lsp")
(load "arrays/svref.lsp")
(load "arrays/upgraded-array-element-type.lsp")
(load "arrays/vector.lsp")
(load "arrays/vector-pop.lsp")
(load "arrays/vector-push.lsp")
(load "arrays/vector-push-extend.lsp")
(load "arrays/vectorp.lsp")
(load "arrays/bit.lsp")
(load "arrays/sbit.lsp")
(load "arrays/bit-and.lsp")
(load "arrays/bit-andc1.lsp")
(load "arrays/bit-andc2.lsp")
(load "arrays/bit-eqv.lsp")
(load "arrays/bit-ior.lsp")
(load "arrays/bit-nand.lsp")
(load "arrays/bit-nor.lsp")
(load "arrays/bit-orc1.lsp")
(load "arrays/bit-orc2.lsp")
(load "arrays/bit-xor.lsp")
(load "arrays/bit-not.lsp")
(load "arrays/bit-vector-p.lsp")
(load "arrays/simple-bit-vector-p.lsp")
;;; Tests of conditions
(compile-and-load "ANSI-TESTS:AUX;types-aux.lsp")
(compile-and-load "ANSI-TESTS:AUX;define-condition-aux.lsp")
(load "conditions/condition.lsp")
(load "conditions/cell-error-name.lsp")
(load "conditions/assert.lsp")
(load "conditions/error.lsp")
(load "conditions/cerror.lsp")
(load "conditions/check-type.lsp")
(load "conditions/warn.lsp")
(load "conditions/invoke-debugger.lsp")
(load "conditions/handler-bind.lsp")
(load "conditions/handler-case.lsp")
(load "conditions/ignore-errors.lsp")
(load "conditions/define-condition.lsp")
(load "conditions/compute-restarts.lsp")
(load "conditions/restart-bind.lsp")
(load "conditions/restart-case.lsp")
(load "conditions/with-condition-restarts.lsp")
(load "conditions/with-simple-restart.lsp")
(load "conditions/abort.lsp")
(load "conditions/muffle-warning.lsp")
(load "conditions/continue.lsp")
(load "conditions/store-value.lsp")
(load "conditions/use-value.lsp")
(load "conditions/make-condition.lsp")
;;; Tests of conses
(compile-and-load "ANSI-TESTS:AUX;cons-aux.lsp")
(load "cons/cons.lsp")
(load "cons/consp.lsp")
(load "cons/atom.lsp")
(load "cons/cxr.lsp")
(load "cons/rplaca.lsp")
(load "cons/rplacd.lsp")
(load "cons/copy-tree.lsp")
(load "cons/sublis.lsp")
(load "cons/nsublis.lsp")
(load "cons/subst.lsp")
(load "cons/subst-if.lsp")
(load "cons/subst-if-not.lsp")
(load "cons/nsubst.lsp")
(load "cons/nsubst-if.lsp")
(load "cons/nsubst-if-not.lsp")
(load "cons/tree-equal.lsp")
(load "cons/copy-list.lsp")
(load "cons/list.lsp")
(load "cons/list-length.lsp")
(load "cons/listp.lsp")
(load "cons/make-list.lsp")
(load "cons/push.lsp")
(load "cons/pop.lsp")
(load "cons/pushnew.lsp")
(load "cons/adjoin.lsp")
(load "cons/nth.lsp")
(load "cons/endp.lsp")
(load "cons/nconc.lsp")
(load "cons/append.lsp")
(load "cons/revappend.lsp")
(load "cons/nreconc.lsp")
(load "cons/butlast.lsp")
(load "cons/nbutlast.lsp")
(load "cons/last.lsp")
(load "cons/ldiff.lsp")
(load "cons/tailp.lsp")
(load "cons/nthcdr.lsp")
(load "cons/rest.lsp")
(load "cons/member.lsp")
(load "cons/member-if.lsp")
(load "cons/member-if-not.lsp")
(load "cons/mapc.lsp")
(load "cons/mapcar.lsp")
(load "cons/mapcan.lsp")
(load "cons/mapl.lsp")