source: trunk/abcl/test/lisp/cl-bench/wrapper.lisp @ 12335

Last change on this file since 12335 was 12335, checked in by Mark Evenson, 12 years ago

Initial fix for support for running cl-bench test suite from Ant build via ASDF.

This probably doesn't work on win32 without 'make' in your path.

Running the cl-bench suite now works via the 'test.cl-bench' target if
the test suite has been downloaded from
"http://www.chez.com/emarsden/downloads/cl-bench.tar.gz" and placed in
a sibling directory (#p../cl-bench/) to ABCL root.

Move the cl-bench ASDF description into 'abcl.asd' now that I have
finally understood (?) the correct CLOS method invocation.

File size: 1.0 KB
Line 
1(defpackage :abcl.test.cl-bench
2  (:use :cl :asdf)
3  (:nicknames "cl-bench")
4  (:export run))
5
6(in-package :abcl.test.cl-bench)
7
8(defparameter *cl-bench-master-source-location*
9  "<http://www.chez.com/emarsden/downloads/cl-bench.tar.gz>")
10
11(defparameter *cl-bench-directory*
12  (merge-pathnames #p"../cl-bench/"
13                   (component-pathname (find-system :abcl))))
14
15(defun run ()
16  (unless (probe-file *cl-bench-directory*)
17    (format t "Failed to find the cl-bench test suite in '~A'. ~
18Please manually download and extract the cl-bench tool suite from ~A to run the tests."
19            *cl-bench-directory*
20            *cl-bench-master-source-location*))
21  (let ((*default-pathname-defaults* *cl-bench-directory*))
22    (if (find :unix *features*)
23        (run-shell-command 
24         (format nil "cd ~A; make clean optimize-files" *cl-bench-directory*))
25        (run-shell-command "cd ~A && make clean optimize-files" *cl-bench-directory*))
26    (load "generate.lisp")
27    (load "do-compilation-script.lisp")
28    (load "do-execute-script.lisp")))
29 
Note: See TracBrowser for help on using the repository browser.