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,9 +3,9 @@
;;;; Created: Sun Jan 26 19:01:38 2003
;;;; Contains: Tests of BIT-ANDC2
(in-package :cl-test)
(compile-and-load "bit-aux.lsp")
(deftest bit-andc2.1
(let* ((s1 (make-array nil :initial-element 0 :element-type 'bit))
......
......@@ -4,9 +4,9 @@
;;;; Contains: Tests of BIT-EQV
(in-package :cl-test)
(compile-and-load "bit-aux.lsp")
(deftest bit-eqv.1
(let* ((s1 (make-array nil :initial-element 0 :element-type 'bit))
......
......@@ -3,9 +3,9 @@
;;;; Created: Sun Jan 26 19:13:34 2003
;;;; Contains: Tests of BIT-IOR
(in-package :cl-test)
(compile-and-load "bit-aux.lsp")
(deftest bit-ior.1
(let* ((s1 (make-array nil :initial-element 0 :element-type 'bit))
......
......@@ -3,9 +3,9 @@
;;;; Created: Sun Jan 26 19:16:15 2003
;;;; Contains: Tests for BIT-NAND
(in-package :cl-test)
(compile-and-load "bit-aux.lsp")
(deftest bit-nand.1
(let* ((s1 (make-array nil :initial-element 0 :element-type 'bit))
......
......@@ -3,9 +3,9 @@
;;;; Created: Sun Jan 26 19:20:40 2003
;;;; Contains: Tests for BIT-NOR
(in-package :cl-test)
(compile-and-load "bit-aux.lsp")
(deftest bit-nor.1
(let* ((s1 (make-array nil :initial-element 0 :element-type 'bit))
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 19:40:13 2003
;;;; Contains: Tests of BIT-NOT
(in-package :cl-test)
(deftest bit-not.1
(let ((a1 (make-array nil :element-type 'bit :initial-element 0)))
......
......@@ -3,9 +3,9 @@
;;;; Created: Sun Jan 26 19:25:28 2003
;;;; Contains: Tests of BIT-ORC1
(in-package :cl-test)
(compile-and-load "bit-aux.lsp")
(deftest bit-orc1.1
(let* ((s1 (make-array nil :initial-element 0 :element-type 'bit))
......
......@@ -3,9 +3,9 @@
;;;; Created: Sun Jan 26 19:31:35 2003
;;;; Contains: Tests of BIT-ORC2
(in-package :cl-test)
(compile-and-load "bit-aux.lsp")
(deftest bit-orc2.1
(let* ((s1 (make-array nil :initial-element 0 :element-type 'bit))
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 20:16:50 2003
;;;; Contains: Tests of BIT-VECTOR-P
(in-package :cl-test)
(deftest bit-vector-p.2
(notnot-mv (bit-vector-p #*))
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 13:03:22 2003
;;;; Contains: Tests of type BIT-VECTOR
(in-package :cl-test)
(deftest bit-vector.1
(notnot-mv (find-class 'bit-vector))
......
......@@ -3,9 +3,9 @@
;;;; Created: Sun Jan 26 19:35:46 2003
;;;; Contains: Tests of BIT-XOR
(in-package :cl-test)
(compile-and-load "bit-aux.lsp")
(deftest bit-xor.1
(let* ((s1 (make-array nil :initial-element 0 :element-type 'bit))
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 13:22:59 2003
;;;; Contains: Tests for accessor BIT
(in-package :cl-test)
(deftest bit.1
(bit #*0010 2)
......
......@@ -3,7 +3,7 @@
;;;; Created: Tue Jan 21 22:14:23 2003
;;;; Contains: Tests of FILL-POINTER
(in-package :cl-test)
;;; More tests are in make-array.lsp
......
;;; Tests on arrays
(compile-and-load "ANSI-TESTS:AUX;array-aux.lsp")
(compile-and-load "ANSI-TESTS:AUX;bit-aux.lsp")
(in-package #:cl-test)
(let ((*default-pathname-defaults*
(make-pathname
:directory (pathname-directory *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-has-fill-pointer-p.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"))
......@@ -3,9 +3,9 @@
;;;; Created: Fri Sep 20 06:47:37 2002
;;;; Contains: Tests for MAKE-ARRAY
(in-package :cl-test)
(compile-and-load "array-aux.lsp")
(deftest make-array.1
(let ((a (make-array-with-checks 10)))
......
......@@ -3,7 +3,7 @@
;;;; Created: Wed Jan 22 20:16:38 2003
;;;; Contains: Tests of ROW-MAJOR-AREF
(in-package :cl-test)
;;; ROW-MAJOR-AREF is also used by equalp-with-case (see rt/rt.lsp)
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 15:30:31 2003
;;;; Contains: Tests for SBIT
(in-package :cl-test)
(deftest sbit.1
(sbit #*0010 2)
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 07:23:45 2003
;;;; Contains: Tests of SIMPLE-ARRAY on T element type
(in-package :cl-test)
;;; Tests of (simple-array t)
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 07:20:31 2003
;;;; Contains: Tests of SIMPLE-ARRAY
(in-package :cl-test)
;;; Tests of simple-array by itself
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 20:20:27 2003
;;;; Contains: Tests of SIMPLE-BIT-VECTOR-P
(in-package :cl-test)
(deftest simple-bit-vector-p.2
(notnot-mv (simple-bit-vector-p #*))
......
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