1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
--- tests/tests.lisp Sun Jan 5 14:09:18 2003
+++ debian/tests.lisp Thu Mar 6 07:20:17 2003
@@ -23,14 +23,15 @@
(setq *collect-errors* nil)
(time
(sloop with errs = '() for testv in
- '(
- "rtest1" "rtest1a" "rtest2" "rtest3" "rtest4" "rtest5"
- "rtest6" "rtest6a" "rtest6b" "rtest7"
- "rtest8"
- "rtest9"
- "rtest9a" "rtest10" "rtest11" "rtest12" "rtest13" "rtest13s"
- "rtest14" "rtest15" "rexamples" "rtestode" "rtestflatten"
- )
+ (mapcar (lambda (x) (concatenate 'string "/usr/share/maxima/@MVERS@/tests/" x))
+ '(
+ "rtest1" "rtest1a" "rtest2" "rtest3" "rtest4" "rtest5"
+ "rtest6" "rtest6a" "rtest6b" "rtest7"
+ "rtest8"
+ "rtest9"
+ "rtest9a" "rtest10" "rtest11" "rtest12" "rtest13" "rtest13s"
+ "rtest14" "rtest15" "rexamples" "rtestode" "rtestflatten"
+ ))
do
(format t "~%Testing ~a.mac" testv)
(or (errset
|
