Commit b7dbcd8a authored by Eric Timmons's avatar Eric Timmons
Browse files

Add some missed files

parent 1d13cb10
Pipeline #2964 failed with stages
in 18 minutes and 10 seconds
;;;; Script to test a CLPM executable
;;;;
;;;; This software is part of CLPM. See README.org for more information. See
;;;; LICENSE for license information.
(in-package #:cl-user)
(load (merge-pathnames "common.lisp" *load-truename*))
(in-package #:clpm-scripts)
(defparameter *option-clpm*
(adopt:make-option
:clpm
:help "Specify the clpm executable to test"
:long "clpm"
:initial-value "clpm"
:parameter "CLPM-EXEC"
:reduce #'adopt:last))
(defparameter *ui*
(adopt:make-interface
:name "scripts/build.lisp"
:summary "Build script for CLPM"
:help "Build script for CLPM"
:usage "[options]"
:contents (list *option-help*
*option-clpm*)))
(defvar *args*)
(defvar *opts*)
(multiple-value-setq (*args* *opts*) (adopt:parse-options *ui*))
(when (gethash :help *opts*)
(adopt:print-help-and-exit *ui*))
(asdf:load-system :clpm-test)
(let ((clpm (gethash :clpm *opts*)))
(when (pathname-directory clpm)
(setf clpm (uiop:ensure-absolute-pathname (merge-pathnames clpm (uiop:getcwd)))))
(unless (clpm-test::run-tests-with-server :clpm clpm)
(uiop:quit 1)))
;;;; Script to print the CLPM version number
;;;;
;;;; This software is part of CLPM. See README.org for more information. See
;;;; LICENSE for license information.
(in-package #:cl-user)
(load (merge-pathnames "common.lisp" *load-truename*))
(in-package #:clpm-scripts)
(let ((*standard-output* (make-broadcast-stream))
(*error-output* (make-broadcast-stream)))
(asdf:load-system :clpm-asdf))
(write-string (clpm-asdf::clpm-version))
(terpri)
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment