Commit e93ee420 authored by Daniel Kochmański's avatar Daniel Kochmański
Browse files

Merge branch 'restructure-wip' into 'master'

restructure

I've moved parts around ansi-cl-tests - flat directory structure makes it unintelligible and I think that if we want to modernize it a little, then such change is necessary. I might accidently screw something up and it's too drastical change to just push it to master, hence merge-request.

See merge request !1
parents 8412195b 94e25073
......@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 13:12:07 2003
;;;; Contains: Tests for type SIMPLE-BIT-VECTOR
(in-package :cl-test)
(deftest simple-bit-vector.2
(notnot-mv (typep #* 'simple-bit-vector))
......
......@@ -3,7 +3,7 @@
;;;; Created: Wed Jan 22 21:23:45 2003
;;;; Contains: Tests for SIMPLE-VECTOR-P
(in-package :cl-test)
;;; More tests for this are in make-array.lsp
......
......@@ -3,7 +3,7 @@
;;;; Created: Wed Jan 22 21:39:30 2003
;;;; Contains: Tests of SVREF
(in-package :cl-test)
(deftest svref.1
(let ((a (vector 1 2 3 4)))
......
......@@ -3,7 +3,7 @@
;;;; Created: Wed Jan 22 20:43:55 2003
;;;; Contains: Tests of UPGRADED-ARRAY-ELEMENT-TYPE
(in-package :cl-test)
(deftest upgraded-array-element-type.1
(let ((upgraded-bit (upgraded-array-element-type 'bit)))
......
......@@ -3,7 +3,7 @@
;;;; Created: Fri Jan 24 07:46:29 2003
;;;; Contains: Tests for VECTOR-POP
(in-package :cl-test)
(deftest vector-pop.1
(let ((v (make-array '(5) :initial-contents '(a b c d e)
......
......@@ -3,7 +3,7 @@
;;;; Created: Sat Jan 25 08:04:35 2003
;;;; Contains: Tests for VECTOR-PUSH-EXTEND
(in-package :cl-test)
(deftest vector-push-extend.1
(let ((a (make-array '(5) :fill-pointer 2
......
......@@ -3,7 +3,7 @@
;;;; Created: Sat Jan 25 00:55:43 2003
;;;; Contains: Tests for VECTOR-PUSH
(in-package :cl-test)
(deftest vector-push.1
(let ((a (make-array '(5) :fill-pointer 2
......
......@@ -3,7 +3,7 @@
;;;; Created: Thu Jan 23 06:32:02 2003
;;;; Contains: Tests of VECTOR (type and function)
(in-package :cl-test)
;;; More tests of type vector in make-array.lsp
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 13:17:05 2003
;;;; Contains: Tests for VECTORP
(in-package :cl-test)
(deftest vectorp.1
(vectorp 1)
......
......@@ -3,7 +3,7 @@
;;;; Created: Wed Jul 2 07:05:41 2003
;;;; Contains: Macros used in ansi-aux and elsewhere.
(in-package :cl-test)
(declaim (optimize (safety 3)))
......
......@@ -3,7 +3,7 @@
;;;; Created: Sat Mar 28 17:10:18 1998
;;;; Contains: Aux. functions for CL-TEST
(in-package :cl-test)
(declaim (optimize (safety 3)))
......
......@@ -3,7 +3,7 @@
;;;; Created: Tue Jan 21 05:11:31 2003
;;;; Contains: Auxiliary functions for array tests
(in-package :cl-test)
(defun make-array-check-upgrading (type)
(subtypep* type (array-element-type (make-array 0 :element-type type))))
......
......@@ -3,7 +3,7 @@
;;;; Created: Fri Jun 11 08:04:23 2004
;;;; Contains: Aux. functions associated with backquote tests
(in-package :cl-test)
;;; Not yet finished
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Jul 24 19:25:39 2005
;;;; Contains: Aux file for BIT-* tests
(in-package :cl-test)
(defun bit-random-test-fn (bit-fn log-fn &key (reps 5000) (maxlen 100))
(assert (typep maxlen '(integer 1)))
......
......@@ -3,7 +3,7 @@
;;;; Created: Tue Aug 19 06:52:02 2003
;;;; Contains: Aux. functions for CEILING
(in-package :cl-test)
(defun ceiling.1-fn ()
(loop for n = (- (random 2000000000)
......
......@@ -3,7 +3,7 @@
;;;; Created: Sat Oct 5 20:15:55 2002
;;;; Contains: Auxiliary functions for character tests
(in-package :cl-test)
(defun is-ordered-by (seq fn)
(declare (type function fn))
......
......@@ -3,7 +3,7 @@
;;;; Created: Thu Nov 28 06:43:51 2002
;;;; Contains: Aux. functions for cl-symbols.lsp
(in-package :cl-test)
(declaim (optimize (safety 3)))
......
......@@ -3,7 +3,7 @@
;;;; Created: Thu Mar 6 17:45:42 2003
;;;; Contains: Auxiliary functions for cons-related tests
(in-package :cl-test)
;;;
;;; A scaffold is a structure that is used to remember the object
......
......@@ -3,7 +3,7 @@
;;;; Created: Mon Mar 24 03:40:24 2003
;;;; Contains: Auxiliary functions for testing CLOS
(in-package :cl-test)
(defun make-defclass-test-name (&rest args)
(intern (apply #'concatenate 'string (mapcar #'string args))
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Mar 9 05:40:13 2003
;;;; Contains: Auxiliary functions for testing DEFINE-CONDITION
(in-package :cl-test)
(defun make-def-cond-name (name &rest suffixes)
(intern (apply #'concatenate 'string (string name) "/"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment