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

restruct: structurize


Signed-off-by: Daniel Kochmański's avatarDaniel Kochmański <daniel@turtleware.eu>
parent 442fb32f
*.fas
ansi-aux-macros.fas
ansi-aux.fas
array-aux.fas
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Feb 15 07:27:22 2004
;;;; Contains: Tests of ADJUST-ARRAY
(in-package :cl-test)
(defun listify-form (form)
(cond
......
......@@ -3,7 +3,7 @@
;;;; Created: Mon Jan 20 21:25:22 2003
;;;; Contains: Tests for ADJUSTABLE-ARRAY-P
(in-package :cl-test)
(deftest adjustable-array-p.1
(notnot (adjustable-array-p (make-array '(5) :adjustable t)))
......
......@@ -3,7 +3,7 @@
;;;; Created: Tue Feb 11 17:33:24 2003
;;;; Contains: Tests for AREF
(in-package :cl-test)
;;; AREF is also tested in many other places
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 07:45:25 2003
;;;; Contains: Tests for ARRAY as a class
(in-package :cl-test)
(deftest array-as-class.1
(notnot-mv (typep #() (find-class 'array)))
......
......@@ -3,7 +3,7 @@
;;;; Created: Tue Jan 21 06:55:14 2003
;;;; Contains: Tests of ARRAY-DIMENSION
(in-package :cl-test)
;;; array-dimension is also tested by the tests in make-array.lsp
......
......@@ -3,7 +3,7 @@
;;;; Created: Tue Jan 21 06:59:37 2003
;;;; Contains: Tests of ARRAY-DIMENSIONS
(in-package :cl-test)
;;; The tests in make-array.lsp also test this function
......
......@@ -3,7 +3,7 @@
;;;; Created: Tue Jan 21 06:20:51 2003
;;;; Contains: Tests for ARRAY-DISPLACEMENT
(in-package :cl-test)
;;; The tests in make-array.lsp also test array-displacement
......
......@@ -2,7 +2,7 @@
;;;; Author: Paul Dietz
;;;; Contains: Tests of the function ARRAY-ELEMENT-TYPE
(in-package :cl-test)
;;; Mosts tests are in other files, incidental to testing of
;;; other things
......
......@@ -3,7 +3,7 @@
;;;; Created: Tue Jan 21 19:57:29 2003
;;;; Contains: Tests for ARRAY-IN-BOUNDS-P
(in-package :cl-test)
(deftest array-in-bounds-p.1
(array-in-bounds-p #() 0)
......
......@@ -3,7 +3,7 @@
;;;; Created: Wed Jan 22 21:17:25 2003
;;;; Contains: Misc. tests of array features
(in-package :cl-test)
(deftest array-dimension-limit.1
(and (<= 1024 array-dimension-limit) t)
......
......@@ -3,7 +3,7 @@
;;;; Created: Tue Jan 21 20:32:57 2003
;;;; Contains: Tests for ARRAY-RANK
(in-package :cl-test)
;;; Most tests for ARRAY-RANK are in make-array.lsp
......
......@@ -3,7 +3,7 @@
;;;; Created: Tue Jan 21 21:37:03 2003
;;;; Contains: Tests of ARRAY-ROW-MAJOR-INDEX
(in-package :cl-test)
;;; More array-row-major-index tests are in make-array.lsp
......
......@@ -3,7 +3,7 @@
;;;; Created: Sat Jan 25 11:55:48 2003
;;;; Contains: Tests of (array t ...) type specifiers
(in-package :cl-test)
;;; Tests of (array t)
......
......@@ -3,7 +3,7 @@
;;;; Created: Tue Jan 21 22:01:09 2003
;;;; Contains: Tests of ARRAY-TOTAL-SIZE
(in-package :cl-test)
;;; More tests of ARRAY-TOTAL-SIZE are in make-array.lsp
......
......@@ -3,7 +3,7 @@
;;;; Created: Sat Jan 25 08:46:58 2003
;;;; Contains: Tests of the ARRAY type specifier
(in-package :cl-test)
;;; Tests of array by itself
......
......@@ -3,7 +3,7 @@
;;;; Created: Tue Jan 21 22:08:21 2003
;;;; Contains: Tests of ARRAYP
(in-package :cl-test)
;;; Also tested by make-array.lsp
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 18:18:47 2003
;;;; Contains: Tests of BIT-AND
(in-package :cl-test)
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 18:56:39 2003
;;;; Contains: Tests of BIT-ANDC1
(in-package :cl-test)
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 19:01:38 2003
;;;; Contains: Tests of BIT-ANDC2
(in-package :cl-test)
......
  • This removes all "in-package" from test files. Each file load.lsp in subdirectories has (in-package #:cl-test). If we'll want to move separate test suites to different packages, it should be more managable. Basically it's code deduplication.

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