[PATCH] Work around testsuite failures
- Subject: [PATCH] Work around testsuite failures
- From: David.Billinghurst at riotinto
- Date: Mon, 17 Mar 2003 00:59:04 -0600
This patch rearranges the testsuite to work around the testsuite
interaction problems. With it I can enable a number of tests
in rtestode.mac.
Tested on cygwin/clisp and windows/gcl.
OK to commit?
--- tests.lisp.0 2002-12-03 17:47:58.000000000 +1100
+++ tests.lisp 2003-03-15 20:13:49.000000000 +1100
@@ -24,12 +24,12 @@
(time
(sloop with errs = '() for testv in
'(
- "rtest1" "rtest1a" "rtest2" "rtest3" "rtest4" "rtest5"
+ "rtest1" "rtest1a" "rtest2" "rtest4" "rtest5"
"rtest6" "rtest6a" "rtest6b" "rtest7"
- "rtest8"
"rtest9"
- "rtest9a" "rtest10" "rtest11" "rtest12" "rtest13" "rtest13s"
- "rtest14" "rtest15" "rexamples" "rtestode" "rtestflatten"
+ "rtest9a" "rtest10" "rtest11" "rtest13" "rtest13s"
+ "rtest14" "rtest15" "rtestode" "rtestflatten"
+ "rtest3" "rtest8" "rtest12" "rexamples"
)
do
(format t "~%Testing ~a.mac" testv)
--- rtest13.mac.0 2000-05-08 16:09:42.000000000 +1000
+++ rtest13.mac 2003-02-25 21:42:05.000000000 +1100
@@ -5,7 +5,8 @@
*** All rights reserved *****
***************************************************************************/
-
+kill(all);
+done;
X^2*'DIFF(Y,X,1)+3*X*Y = SIN(X)/X;
X^2*'DIFF(Y,X,1)+3*X*Y = SIN(X)/X$
SOLN1:ODE2(%,Y,X);