3rdparties/software/cl+ssl-20200427-git/test/run-on-many-lisps-and-openssls/run-on-server.lisp (3806 bytes)
1 (defparameter *this-dir* 2 (if *load-truename* 3 (make-pathname :name nil :type nil :defaults *load-truename*) 4 ;; for slime: 5 #P"/home/testgrid/cl+ssl/cl-plus-ssl/test/run-on-many-lisps-and-openssls/")) 6 7 (pushnew "/home/testgrid/cl-test-grid/" asdf:*central-registry* :test #'equal) 8 9 (load (merge-pathnames "run-on-many-lisps-and-openssls.lisp" *this-dir*)) 10 11 12 (defparameter *abcl-1.5.0* 13 (make-instance 'lisp-exe:abcl 14 :java-exe-path "java" 15 :abcl-jar-path "/home/testgrid/lisps/abcl-bin-1.5.0/abcl.jar")) 16 17 (defparameter *acl-10.0* 18 (make-instance 'lisp-exe:acl 19 :exe-path "/home/testgrid/lisps/acl100/alisp")) 20 21 (defparameter *acl-10.0m* 22 (make-instance 'lisp-exe:acl 23 :exe-path "/home/testgrid/lisps/acl100/mlisp")) 24 25 (defparameter *acl-10.0-smp* 26 (make-instance 'lisp-exe:acl 27 :exe-path "/home/testgrid/lisps/acl100-smp/alisp")) 28 29 (defparameter *acl-10.0m-smp* 30 (make-instance 'lisp-exe:acl 31 :exe-path "/home/testgrid/lisps/acl100-smp/mlisp")) 32 33 (defparameter *ccl-1.11.5* 34 (make-instance 'lisp-exe:ccl 35 :exe-path "/home/testgrid/lisps/ccl-1.11.5/lx86cl")) 36 37 (defparameter *sbcl-1.3.21* 38 (make-instance 'lisp-exe:sbcl 39 :exe-path "/home/testgrid/lisps/sbcl-bin-1.3.21/run.sh")) 40 41 (defparameter *cmucl-2016-12* 42 (make-instance 'lisp-exe:cmucl 43 :exe-path "/home/testgrid/lisps/cmucl-2016-12/bin/lisp")) 44 45 (defparameter *cmucl-2016-12* 46 (make-instance 'lisp-exe:cmucl 47 :exe-path "/home/testgrid/lisps/cmucl-2016-12/bin/lisp")) 48 49 (defparameter *cmucl-21d* 50 (make-instance 'lisp-exe:cmucl 51 :exe-path "/home/testgrid/lisps/cmucl-21d/bin/lisp")) 52 53 (defparameter *ecl-16.1.2-bytecode* 54 (make-instance 'lisp-exe:ecl 55 :exe-path "/home/testgrid/lisps/ecl-bin-16.1.2/bin/ecl" 56 :compiler :bytecode)) 57 58 (defparameter *ecl-16.1.2-lisp-to-c* 59 (make-instance 'lisp-exe:ecl 60 :exe-path "/home/testgrid/lisps/ecl-bin-16.1.2/bin/ecl" 61 :compiler :lisp-to-c)) 62 63 (defparameter *clisp* 64 (make-instance 'lisp-exe:clisp :exe-path "/usr/bin/clisp")) 65 66 (run-on-many-lisps-and-openssls:clean-fasls (merge-pathnames "workdir/" *this-dir*)) 67 68 (let ((*print-pretty* t)) 69 (format t "~%~S~%" 70 (time 71 (run-on-many-lisps-and-openssls:run 72 :test-run-description '(:lib-world "quicklisp 2019-01-07 + cl+ssl.head" 73 :contact-email "avodonosov@yandex.ru") 74 :test-run-dir (merge-pathnames "workdir/" *this-dir*) 75 :quicklisp-dir (merge-pathnames "quicklisp/" (user-homedir-pathname)) 76 ;; if we want the cl+ssl from the parent folder 77 :cl+ssl-location (uiop:pathname-parent-directory-pathname 78 (uiop:pathname-parent-directory-pathname *this-dir*)) 79 ;; if we want the cl+ssl version from quicklisp 80 ;:cl+ssl-location nil 81 82 :lisps (list *sbcl-1.3.21* 83 *ccl-1.11.5* 84 *abcl-1.5.0* 85 *acl-10.0* *acl-10.0m* *acl-10.0-smp* *acl-10.0m-smp* 86 *clisp* 87 *ecl-16.1.2-bytecode* 88 *ecl-16.1.2-lisp-to-c* 89 *cmucl-21d* 90 ) 91 92 :openssl-releases '("openssl-0.9.8zh" 93 "openssl-1.0.0s" 94 "openssl-1.0.2q" 95 "openssl-1.1.0j" 96 "openssl-1.1.1a" 97 ) 98 :openssl-releases-dir (merge-pathnames "openssl-releases/bin/" 99 *this-dir*))))) 100