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: Mon Sep 1 07:57:02 2003
;;;; Contains: Aux. functions for testing /
(in-package :cl-test)
(defun divide-by-zero-test (&rest args)
(handler-case
......
......@@ -3,7 +3,7 @@
;;;; Created: Mon Sep 1 21:30:38 2003
;;;; Contains: Aux. functions for testing EXP, EXPT
(in-package :cl-test)
(defun my-exp (x n)
"Compute e^x in the appropriate float result type, summing
......
......@@ -3,7 +3,7 @@
;;;; Created: Wed Aug 20 06:24:45 2003
;;;; Contains: Tests of FCEILING
(in-package :cl-test)
(defun fceiling.1-fn ()
(loop for n = (- (random 200000)
......
......@@ -3,7 +3,7 @@
;;;; Created: Tue Aug 12 07:02:07 2003
;;;; Contains: Aux. functions used in FFLOOR tests
(in-package :cl-test)
(defun ffloor.1-fn ()
(loop for n = (- (random 200000)
......
......@@ -3,7 +3,7 @@
;;;; Created: Sat Aug 9 08:08:00 2003
;;;; Contains: Aux. functions used in FLOOR tests
(in-package :cl-test)
(defun floor.1-fn ()
(loop for n = (- (random 2000000000)
......
......@@ -3,7 +3,7 @@
;;;; Created: Thu Aug 21 16:08:55 2003
;;;; Contains: Aux. functions for testing FROUND
(in-package :cl-test)
(defun fround.1-fn ()
(loop for n = (- (random 200000)
......
......@@ -3,7 +3,7 @@
;;;; Created: Wed Aug 20 06:37:01 2003
;;;; Contains: Aux. functions for testing FTRUNCATE
(in-package :cl-test)
(defun ftruncate.1-fn ()
(loop for n = (- (random 200000)
......
......@@ -3,7 +3,7 @@
;;;; Created: Wed Sep 3 06:57:22 2003
;;;; Contains: Aux. functions for testing GCD
(in-package :cl-test)
(defun my-gcd (x y)
(cond
......
......@@ -3,10 +3,10 @@
;;;; Created: Sat Oct 4 09:24:24 2003
;;;; Contains: Aux. functions for testing hash tables
(in-package :cl-test)
(eval-when (:load-toplevel :compile-toplevel :execute)
(compile-and-load "random-aux.lsp"))
(compile-and-load "ANSI-TESTS:AUX;random-aux.lsp"))
(defparameter *hash-table-test-iters* 1000)
......
......@@ -3,10 +3,10 @@
;;;; Created: Mon Apr 7 07:24:43 2003
;;;; Contains: Auxiliary functions for number tests
(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"))
;;; Binary search on reals
......
......@@ -3,7 +3,7 @@
;;;; Created: Mon Jun 21 20:59:17 2004
;;;; Contains: Aux. functions for package tests
(in-package :cl-test)
(defmacro test-with-package-iterator (package-list-expr &rest symbol-types)
"Build an expression that tests the with-package-iterator form."
......
......@@ -3,7 +3,7 @@
;;;; Created: Sat Apr 25 08:07:31 1998
;;;; Contains: Package test code (common code)
(in-package :cl-test)
(declaim (optimize (safety 3)))
(report-and-ignore-errors
......
......@@ -3,7 +3,7 @@
;;;; Created: Sat Dec 6 15:05:05 2003
;;;; Contains: Functions associated with pathname tests
(in-package :cl-test)
(defun could-be-pathname-designator (x)
(or (stringp x)
......
......@@ -3,9 +3,10 @@
;;;; Created: Mon Feb 23 06:20:00 2004
;;;; Contains: Auxiliary functions and macros for printer tests
(in-package :cl-test)
(eval-when (:compile-toplevel :load-toplevel :execute) (compile-and-load "random-aux.lsp"))
(eval-when (:compile-toplevel :load-toplevel :execute)
(compile-and-load "ANSI-TESTS:AUX;random-aux.lsp"))
(defmacro def-print-test (name form result &rest bindings)
`(deftest ,name
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Jun 8 06:56:15 2003
;;;; Contains: Aux. functions and macros used for randomization
(in-package :cl-test)
(declaim (special +standard-chars+ *cl-symbols-vector*))
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Oct 10 07:14:30 2004
;;;; Contains: Aux. functions for random tests on classes
(in-package :cl-test)
(defun random-class-1-fn (&key (n 10) (rep 1000))
"Randomly break and recreate a linear chain of class definitions"
......
......@@ -3,7 +3,7 @@
;;;; Created: Fri Jan 14 07:43:48 2005
;;;; Contains: Auxiliary functions and macros for reader tests
(in-package :cl-test)
;;; Define a test using standard io syntax
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Sep 15 07:42:36 2002
;;;; Contains: Auxiliary functions for testing REMOVE and related functions
(in-package :cl-test)
(defun make-random-element (type)
(cond
......
......@@ -3,7 +3,7 @@
;;;; Created: Mon Sep 23 20:59:10 2002
;;;; Contains: Aux. functions for testing REMOVE-DUPLICATES/DELETE-DUPLICATES
(in-package :cl-test)
(defun my-remove-duplicates (orig-sequence
&key from-end test test-not (start 0) end key)
......
......@@ -3,7 +3,7 @@
;;;; Created: Thu Aug 21 14:21:07 2003
;;;; Contains: Aux. functions for testing ROUND
(in-package :cl-test)
(defun round.1-fn ()
(loop for n = (- (random 2000000000)
......
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