Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

91 lines (79 sloc) 4.715 kb
;;;; -*- Mode: LISP; Syntax: COMMON-LISP; indent-tabs-mode: nil; coding: utf-8; show-trailing-whitespace: t -*-
;;;; Copyright (C) 2011 Anton Vodonosov (avodonosov@yandex.ru)
;;;; See LICENSE for details.
;;;;
;;;; Example file for how to configure and run cl-test-grid agent.
;;;; This file supposes that Quicklisp is available.
;;;; Load it the file by:
;;;; (load "run-agent.lisp")
;;;;
;; Put the directory containing this file
;; into ASDF:*CENTRAL-REGISTRY*
;; so that ASDF can find the test-grid-agent.asd
(let* ((this-file (load-time-value (or *load-truename* #.*compile-file-pathname*)))
(this-file-dir (make-pathname :directory (pathname-directory this-file))))
(pushnew this-file-dir asdf:*central-registry* :test #'equal))
(ql:quickload :test-grid-agent)
;; ensure this script is not outdated in respect to
;; the agent public API
(let ((api-version-required '(1 . 1)))
(when (not (test-grid-agent:api-compatible-p api-version-required))
(error "The agent public API has changed in an incompatible way:
current agent API version is ~A. We use version ~A.
It's necessary to adjust the run-agent.lisp script (see
run-agent.sample.lisp for a fresh example)."
test-grid-agent:+api-version+ api-version-required)))
;; create agent instance
(defparameter *agent* (test-grid-agent:make-agent))
;;; Now inform the *AGENT* about the lisp implementations
;;; we have on this machine.
(defparameter *abcl* (make-instance 'lisp-exe:abcl
:java-exe-path "java"
:abcl-jar-path "/home/testgrid/lisps/abcl-1.0.1\\abcl.jar"))
(defparameter *clisp* (make-instance 'lisp-exe:clisp :exe-path "/home/testgrid/lisps/clisp-2.49/clisp"))
(defparameter *ccl-1.8-x86* (make-instance 'lisp-exe:ccl
:exe-path "/home/testgrid/lisps/ccl-1.8/wx86cl"))
(defparameter *ccl-1.8-x86-64* (make-instance 'lisp-exe:ccl
:exe-path "/home/testgrid/lisps/ccl-1.8/wx86cl64"))
(defparameter *sbcl* (make-instance 'lisp-exe:sbcl :exe-path "/home/testgrid/lisps/sbcl-1.0.57/bin/sbcl"))
(defparameter *cmucl* (make-instance 'lisp-exe:cmucl :exe-path "/home/testgrid/lisps/cmucl-20c/bin/lisp"))
;; ECL provides two compilers: bytecode compiler and lisp to C compiler.
;; What compiler to test is specified explicitly as a parameter
;; to lisp-exe:ecl constructor.
(defparameter *ecl-bytecode* (make-instance 'lisp-exe:ecl
:exe-path "/home/testgrid/lisps/ecl/bin/ecl"
:compiler :bytecode))
;; Note, if you are specifying ECL to use lisp-to-c
;; compiler, you should have a C compiler available
;; in PATH.
(defparameter *ecl-lisp-to-c* (make-instance 'lisp-exe:ecl
:exe-path "/home/testgrid/lisps/ecl/bin/ecl"
:compiler :lisp-to-c))
(defparameter *acl* (make-instance 'lisp-exe:acl :exe-path "/home/testgrid/lisps/acl82express/alisp"))
(setf (test-grid-agent:lisps *agent*) (list *abcl* *clisp* *ccl-1.8-x86*
*ccl-1.8-x86-64* *sbcl*
*ecl-bytecode*
*ecl-lisp-to-c*
*acl*)
;; Preferred lisp is the lisp implementation the agent
;; uses when it needs to perform some auxiliary
;; task in a separate lisp process (for example, updating
;; the private quicklisp installation we run tests on).
;; Almost always preferred lisp is the same lisp that runs
;; the agent process itselft (i.e. the lisp which runs this script).
(test-grid-agent:preferred-lisp *agent*) *ccl-1.8-x86*
;; Please provide your email so that we know who is submitting the test results.
;; Also the email will be published in the online reports, and the library
;; authors can later contact you in case of questions about this test run,
;; your environment, etc.
;;
;; If you are strongly opposed to publishing you email, please provide
;; just some nickname.
(test-grid-agent:user-email *agent*) "avodonosov@yandex.ru"
;;; --- the settings below are not required ---
;; You may specify custom working directory for
;; the agent. By default it is <source-code-base>/work-dir/agent/
;;(test-grid-agent:work-dir *agent*) #P"/my/cl-test-grid/work-dir/agent/"
)
;;; Ask agent to do it's work
(test-grid-agent:main *agent*)
Jump to Line
Something went wrong with that request. Please try again.