Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
16e65dce
Commit
16e65dce
authored
Aug 31, 2015
by
Daniel Kochmański
Browse files
restruct: use logical pathname for auxiliary modules
Signed-off-by:
Daniel Kochmański
<
daniel@turtleware.eu
>
parent
18869291
Changes
255
Hide whitespace changes
Inline
Side-by-side
arrays/bit-and.lsp
View file @
16e65dce
...
...
@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "bit-aux.lsp")
(deftest bit-and.1
(let* ((s1 (make-array nil :initial-element 0 :element-type 'bit))
...
...
arrays/bit-andc1.lsp
View file @
16e65dce
...
...
@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "bit-aux.lsp")
(deftest bit-andc1.1
(let* ((s1 (make-array nil :initial-element 0 :element-type 'bit))
...
...
arrays/bit-andc2.lsp
View file @
16e65dce
...
...
@@ -5,7 +5,7 @@
(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))
...
...
arrays/bit-eqv.lsp
View file @
16e65dce
...
...
@@ -6,7 +6,7 @@
(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))
...
...
arrays/bit-ior.lsp
View file @
16e65dce
...
...
@@ -5,7 +5,7 @@
(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))
...
...
arrays/bit-nand.lsp
View file @
16e65dce
...
...
@@ -5,7 +5,7 @@
(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))
...
...
arrays/bit-nor.lsp
View file @
16e65dce
...
...
@@ -5,7 +5,7 @@
(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))
...
...
arrays/bit-orc1.lsp
View file @
16e65dce
...
...
@@ -5,7 +5,7 @@
(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))
...
...
arrays/bit-orc2.lsp
View file @
16e65dce
...
...
@@ -5,7 +5,7 @@
(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))
...
...
arrays/bit-xor.lsp
View file @
16e65dce
...
...
@@ -5,7 +5,7 @@
(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))
...
...
arrays/make-array.lsp
View file @
16e65dce
...
...
@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "array-aux.lsp")
(deftest make-array.1
(let ((a (make-array-with-checks 10)))
...
...
auxiliary/hash-table-aux.lsp
View file @
16e65dce
...
...
@@ -6,7 +6,7 @@
(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)
...
...
auxiliary/numbers-aux.lsp
View file @
16e65dce
...
...
@@ -6,7 +6,7 @@
(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
...
...
packages
-
00.lsp
→
auxiliary/
packages00
-aux
.lsp
View file @
16e65dce
File moved
auxiliary/printer-aux.lsp
View file @
16e65dce
...
...
@@ -5,7 +5,8 @@
(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
...
...
auxiliary/string-aux.lsp
View file @
16e65dce
...
...
@@ -6,7 +6,7 @@
(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
...
...
characters/name-char.lsp
View file @
16e65dce
...
...
@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "char-aux.lsp")
(deftest name-char.1
(name-char.1.body)
...
...
cons/acons.lsp
View file @
16e65dce
...
...
@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest acons.1
(let* ((x (copy-tree '((c . d) (e . f))))
...
...
cons/adjoin.lsp
View file @
16e65dce
...
...
@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest adjoin.1
(adjoin 'a nil)
...
...
cons/append.lsp
View file @
16e65dce
...
...
@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest append.1
(append)
...
...
Prev
1
2
3
4
5
…
13
Next
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment