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

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

cl-bench now runs correctly from UNIX systems.

Increment the abcl.asd version to note the inclusion of cl-bench.

The absence of the cl-build source is not as well reported, but we now
load the cl-bench/defpackage code to define the cl-bench packages as
part of the ASDF step.

File size: 1.3 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;;; cl-bench defines BENCH-GC and WITH-SPAWNED-THREAD in
16;;; '*cl-bench-directory*/sysdep/setup-ablisp.lisp'. 
17(defun cl-bench::bench-gc () (ext:gc))
18(defmacro cl-bench::with-spawned-thread (&body body)
19  `(progn ,@body))
20
21(defun run ()
22  (unless (probe-file *cl-bench-directory*)
23    (error "Failed to find the cl-bench test suite in '~A'.~%
24Please manually download and extract the cl-bench tool suite~%
25from ~A to run the tests."
26           *cl-bench-directory*
27           *cl-bench-master-source-location*))
28  (let ((*default-pathname-defaults* *cl-bench-directory*))
29    (if (find :unix *features*)
30        (run-shell-command 
31         (format nil "cd ~A; make clean optimize-files" *cl-bench-directory*))
32        (run-shell-command "cd ~A && make clean optimize-files" *cl-bench-directory*))
33    (load "generate.lisp")
34    (load "do-compilation-script.lisp")
35    (load "do-execute-script.lisp")))
36 
Note: See TracBrowser for help on using the repository browser.