|
@@ -0,0 +1,65 @@
|
|
|
|
|
+(ql:quickload :trivial-gray-streams)
|
|
|
|
|
+(ql:quickload :test-grid-agent)
|
|
|
|
|
+(ql:quickload :cl-fad)
|
|
|
|
|
+(in-package :cl-user)
|
|
|
|
|
+
|
|
|
|
|
+(defparameter *abcl* (make-instance 'lisp-exe:abcl
|
|
|
|
|
+ :java-exe-path "C:\\Program Files\\Java\\jdk1.6.0_26\\bin\\java"
|
|
|
|
|
+ :abcl-jar-path "C:\\Users\\anton\\unpacked\\abcl\\abcl-bin-1.1.0\\abcl.jar"))
|
|
|
|
|
+(defparameter *clisp* (make-instance 'lisp-exe:clisp :exe-path "clisp"))
|
|
|
|
|
+(defparameter *ccl-1.8-x86* (make-instance 'lisp-exe:ccl
|
|
|
|
|
+ :exe-path "C:\\Users\\anton\\unpacked\\ccl\\ccl-1.8-windows\\wx86cl.exe"))
|
|
|
|
|
+(defparameter *ccl-1.8-x86-64* (make-instance 'lisp-exe:ccl
|
|
|
|
|
+ :exe-path "C:\\Users\\anton\\unpacked\\ccl\\ccl-1.8-windows\\wx86cl64.exe"))
|
|
|
|
|
+(defparameter *sbcl-1.1.0.45* (make-instance 'lisp-exe:sbcl :exe-path "C:\\Program Files (x86)\\Steel Bank Common Lisp\\1.1.0.45\\run.bat"))
|
|
|
|
|
+(defparameter *sbcl-win-branch-64* (make-instance 'lisp-exe:sbcl :exe-path "C:\\Program Files\\Steel Bank Common Lisp\\1.1.0.36.mswinmt.1201-284e340\\run.bat"))
|
|
|
|
|
+(defparameter *sbcl-win-branch-32* (make-instance 'lisp-exe:sbcl :exe-path "C:\\Program Files (x86)\\Steel Bank Common Lisp\\1.1.0.36.mswinmt.1201-284e340\\run.bat"))
|
|
|
|
|
+(defparameter *ecl-bytecode* (make-instance 'lisp-exe:ecl
|
|
|
|
|
+ :exe-path "C:\\Users\\anton\\projects\\ecl\\bin\\ecl.exe"
|
|
|
|
|
+ :compiler :bytecode))
|
|
|
|
|
+(defparameter *ecl-lisp-to-c* (make-instance 'lisp-exe:ecl
|
|
|
|
|
+ :exe-path "C:\\Users\\anton\\projects\\ecl\\bin\\ecl.exe"
|
|
|
|
|
+ :compiler :lisp-to-c))
|
|
|
|
|
+(defparameter *acl* (make-instance 'lisp-exe:acl :exe-path "C:\\Program Files (x86)\\acl90express\\alisp.exe"))
|
|
|
|
|
+
|
|
|
|
|
+(defun run-on-many-lisps (run-description test-run-dir quicklisp-dir lisps)
|
|
|
|
|
+ (let ((fasl-root (merge-pathnames "fasl/" test-run-dir)))
|
|
|
|
|
+ (labels ((log-name (lisp)
|
|
|
|
|
+ (substitute #\- #\.
|
|
|
|
|
+ ;; Substitute dots by hypens if our main process is CCL, it
|
|
|
|
|
+ ;; prepends the > symbol before dots;
|
|
|
|
|
+ ;; for example: 1.1.0.36.mswinmt.1201-284e340 => 1>.1>.0>.36>.mswinmt.1201-284e340
|
|
|
|
|
+ ;; When we pass such a pathname to another lisps, they can't handle it.
|
|
|
|
|
+ (string-downcase (tg-agent::implementation-identifier lisp))))
|
|
|
|
|
+ (fasl-dir (lisp)
|
|
|
|
|
+ (merge-pathnames (format nil "~A/" (log-name lisp))
|
|
|
|
|
+ fasl-root))
|
|
|
|
|
+ (run (lisp)
|
|
|
|
|
+ (let* ((lib-result (tg-agent::proc-run-libtest lisp
|
|
|
|
|
+ :trivial-gray-streams
|
|
|
|
|
+ run-description
|
|
|
|
|
+ (merge-pathnames (log-name lisp) test-run-dir)
|
|
|
|
|
+ quicklisp-dir
|
|
|
|
|
+ (fasl-dir lisp)))
|
|
|
|
|
+ (status (getf lib-result :status)))
|
|
|
|
|
+ (if (listp status)
|
|
|
|
|
+ (getf status :failed-tests)
|
|
|
|
|
+ status))))
|
|
|
|
|
+ (let ((results (mapcar (lambda (lisp)
|
|
|
|
|
+ (list (tg-agent::implementation-identifier lisp)
|
|
|
|
|
+ (run lisp)))
|
|
|
|
|
+ lisps)))
|
|
|
|
|
+ (tg-utils::write-to-file results (merge-pathnames "resutls.lisp" test-run-dir))
|
|
|
|
|
+ (cl-fad:delete-directory-and-files fasl-root)
|
|
|
|
|
+ results))))
|
|
|
|
|
+
|
|
|
|
|
+(run-on-many-lisps '(:lib-world "quicklisp 2013-02-17 + trivial-gray-streams.head"
|
|
|
|
|
+ :contact-email "avodonosov@yandex.ru")
|
|
|
|
|
+ "C:\\Users\\anton\\projects\\trivial-gray-streams\\test\\"
|
|
|
|
|
+ (merge-pathnames "quicklisp/" (user-homedir-pathname))
|
|
|
|
|
+ (list *sbcl-1.1.0.45* *sbcl-win-branch-64* *sbcl-win-branch-32*
|
|
|
|
|
+ *abcl*
|
|
|
|
|
+ *clisp*
|
|
|
|
|
+ *ccl-1.8-x86* *ccl-1.8-x86-64*
|
|
|
|
|
+ *ecl-bytecode* *ecl-lisp-to-c*
|
|
|
|
|
+ *acl*))
|
Anton Vodonosov