home *** CD-ROM | disk | FTP | other *** search
/ Enter 2004 January / enter-2004-01.iso / files / maxima-5.9.0.exe / {app} / share / maxima / 5.9.0 / tests / tests.lisp < prev   
Encoding:
Text File  |  2003-02-09  |  1.6 KB  |  57 lines

  1. (in-package "MAXIMA") 
  2.  
  3. (set-pathnames)
  4.  
  5.  
  6. #+gmp (si::set-gmp-allocate-relocatable t)
  7.  
  8. (setf (get 'maxima::%cosh 'maxima::translated) t);;so that kill won't remprop.
  9.  
  10. ;(dolist (v  '(|nusum| |ode2| |elim| |trgsmp|)) (aload v))
  11.  
  12. ;; bang on sgc if we have it.
  13. ;#+sgc (si::sgc-on t)
  14. ;; allocate some more space..
  15. ;#+gcl (progn (si::allocate-relocatable-pages 2000 t) (si::allocate 'cfun 200 t)  (si::allocate 'fixnum 200 t) (si::allocate 'cons 400 t) (si::allocate 'symbol 100 t))
  16.  
  17.  
  18. ;; bang on relocatable bignums
  19. #+gmp(si::set-gmp-allocate-relocatable t)
  20.  
  21. ;;we won't bother collecting the errors
  22.  
  23. (setq *collect-errors* nil)
  24. (time 
  25.  (sloop with errs = '() for testv in 
  26.     '(
  27.       "rtest1" "rtest1a" "rtest2" "rtest3" "rtest4" "rtest5"
  28.       "rtest6" "rtest6a" "rtest6b" "rtest7"
  29.       "rtest8"
  30.       "rtest9"
  31.       "rtest9a" "rtest10" "rtest11" "rtest12" "rtest13" "rtest13s"
  32.       "rtest14" "rtest15" "rexamples" "rtestode" "rtestflatten"
  33.       )
  34.     do
  35.     (format t "~%Testing ~a.mac" testv)
  36.     (or (errset
  37.          (progn
  38.            (setq testresult (rest (test-batch
  39.                        (format nil
  40.                            "~a~a.mac"
  41.                            (if (boundp 'doc-path)
  42.                            doc-path "")
  43.                            testv))))
  44.          (if testresult
  45.          (setq errs (append errs (list testresult))))))
  46.         (progn
  47.           (setq error-break-file (format nil "~a.mac" testv))
  48.           (setq errs (append errs (list (list error-break-file "error break"))))
  49.           (format t "~%Caused an error break: ~a.mac~%" testv)))
  50.     finally (cond ((null errs) (format t "~%No Errors Found"))
  51.               (t (format t "~%Error summary:~%")
  52.              (mapcar
  53.               #'(lambda (x)
  54.                   (format t "Error(s) found in ~a: ~a~%"
  55.                       (first x) (sort (rest x) #'<)))
  56.               errs)))))
  57.