Skip to content
Snippets Groups Projects
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
No related branches found
No related tags found
No related merge requests found
Showing
with 32 additions and 22 deletions
......@@ -3,7 +3,7 @@
;;;; Created: Sat Aug 24 07:22:10 2002
;;;; Contains: Aux. functions for testing SEARCH
(in-package :cl-test)
(defparameter *searched-list*
'(b b a b b b b b b b a b a b b b a b a b b b a a a a b a a b a a a a a
......
......@@ -3,7 +3,7 @@
;;;; Created: Thu Jul 17 06:42:27 2003
;;;; Contains: Routines for testing SORT, NSORT
(in-package :cl-test)
(defun my-numeric-sort (list)
"Sort (nondestructively) a list of reals."
......
......@@ -3,10 +3,10 @@
;;;; Created: Fri Oct 4 06:51:32 2002
;;;; Contains: Auxiliary functions for string testing
(in-package :cl-test)
(eval-when (:compile-toplevel :load-toplevel :execute)
(compile-and-load "random-aux.lsp"))
(compile-and-load "ANSI-TESTS:AUX;random-aux.lsp"))
(defun my-string-compare (string1 string2 comparison
&key (start1 0) end1 (start2 0) end2 case
......
......@@ -3,7 +3,7 @@
;;;; Created: Tue Nov 26 20:01:27 2002
;;;; Contains: Aux. functions for subseq tests
(in-package :cl-test)
(defun subseq-list.4-body ()
(block done
......
......@@ -3,7 +3,7 @@
;;;; Created: Thu Aug 28 11:23:40 2003
;;;; Contains: Auxiliary functions for testing the multiplication operator *
(in-package :cl-test)
(defun integer-times (x y)
(assert (integerp x))
......
......@@ -3,7 +3,7 @@
;;;; Created: Wed Aug 20 05:15:17 2003
;;;; Contains: Aux. functions associated with tests of TRUNCATE
(in-package :cl-test)
(defun truncate.1-fn ()
(loop for n = (- (random 2000000000)
......
......@@ -3,8 +3,6 @@
;;;; Created: Mon Jun 21 20:14:38 2004
;;;; Contains: Aux. functions for types tests
(in-package :cl-test)
(defun classes-are-disjoint (c1 c2)
"If either c1 or c2 is a builtin class or the name of a builtin
class, then check for disjointness. Return a non-NIL list
......
......@@ -3,7 +3,7 @@
;;;; Created: Sat Oct 5 19:36:00 2002
;;;; Contains: Tests of character comparison functions
(in-package :cl-test)
;;; The character comparisons should throw a PROGRAM-ERROR when
;;; safe-called with no arguments
......
......@@ -3,7 +3,7 @@
;;;; Created: Sat Oct 5 12:52:18 2002
;;;; Contains: Tests associated with the class CHARACTER
(in-package :cl-test)
(deftest character-class.1
(subtypep* 'character t)
......
;;;; Character tests
(compile-and-load "ANSI-TESTS:AUX;char-aux.lsp")
(in-package #:cl-test)
(let ((*default-pathname-defaults*
(make-pathname
:directory (pathname-directory *load-pathname*))))
(load "character.lsp")
(load "char-compare.lsp")
(load "name-char.lsp")
)
......@@ -3,9 +3,9 @@
;;;; Created: Sun Aug 29 17:14:03 2004
;;;; Contains: Tests of NAME-CHAR
(in-package :cl-test)
(compile-and-load "char-aux.lsp")
(deftest name-char.1
(name-char.1.body)
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Mar 23 08:25:50 2003
;;;; Contains: Tests of the ABORT restart and function
(in-package :cl-test)
(deftest abort.1
(restart-case
......
......@@ -3,7 +3,7 @@
;;;; Created: Tue Jan 28 06:48:19 2003
;;;; Contains: Tests of ASSERT
(in-package :cl-test)
(deftest assert.1
(assert t)
......
......@@ -3,7 +3,7 @@
;;;; Created: Mon Jan 27 22:36:48 2003
;;;; Contains: Tests of CELL-ERROR-NAME
(in-package :cl-test)
(deftest cell-error-name.1
(handler-case
......
......@@ -4,7 +4,7 @@
;;;; Contains: Tests of CERROR
(in-package :cl-test)
(deftest cerror.1
(let ((fmt "Cerror"))
......
......@@ -3,7 +3,7 @@
;;;; Created: Sat Feb 15 20:12:04 2003
;;;; Contains: Tests of CHECK-TYPE
(in-package :cl-test)
(deftest check-type.1
(let ((x 'a))
......
......@@ -3,7 +3,7 @@
;;;; Created: Sat Mar 22 23:48:53 2003
;;;; Contains: Tests of COMPUTE-RESTARTS
(in-package :cl-test)
(deftest compute-restarts.1
(loop for r in (compute-restarts)
......
......@@ -3,7 +3,7 @@
;;;; Created: Mon Jan 27 22:13:25 2003
;;;; Contains: Tests of class CONDITION
(in-package :cl-test)
(deftest condition.1
(notnot-mv (find-class 'condition nil))
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Mar 23 08:37:15 2003
;;;; Contains: Tests of CONTINUE restart and function
(in-package :cl-test)
(deftest continue.1
(restart-case
......
......@@ -3,7 +3,7 @@
;;;; Created: Sat Mar 8 22:38:53 2003
;;;; Contains: Tests of DEFINE-CONDITION (part 1)
(in-package :cl-test)
;;;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment