Перекомпилируйте компоненты в тестовом вызове в ASDF - PullRequest
Новая
       47

Перекомпилируйте компоненты в тестовом вызове в ASDF

0 голосов
/ 19 февраля 2019

Я пытаюсь найти способ всегда перекомпилировать компоненты (test-1, test-2, test-3, test-4) каждый раз, когда я звоню (asdf: test-system: my-system), ноЯ пока не знаю, как это сделать. 

(defsystem :my-system/test
  :author "noloop"
  :description "Test."
  :depends-on (:test-lib :my-system)
  :components ((:module "test"
                :components
                ((:file "test-1")
                 (:file "test-2")
                 (:file "test-3")
                 (:file "test-4"))))
  :perform (test-op (op system)
                      (symbol-call :test-lib '#:run)))

Воображаемая функция, показывающая, куда я хочу пойти: 

:perform (test-op (op system)
                    (progn (recompile-components system)
                           (symbol-call :test-lib '#:run))))

1 Ответ

0 голосов
/ 20 февраля 2019

Я решил вопрос следующим образом:

Сначала я создал файл asdf.lisp с пакетом lib-test-asdf.lisp: 

(in-package #:cl-user)
(defpackage #:lib-test-asdf
  (:nicknames #:lib-test-asdf)
  (:use #:common-lisp
        #:asdf)
  (:export #:test-file
           #:run-lib-test-asdf))
(in-package #:lib-test-asdf)

(defvar *system-test-files* (make-hash-table))

(defclass test-file (asdf:cl-source-file) ())

(defmethod asdf:perform ((op asdf:compile-op) (c test-file))
  ;; do nothing
  )

(defmethod asdf:perform ((op asdf:load-op) (c test-file))
  (pushnew c (gethash (asdf:component-system c) *system-test-files*)
           :key #'asdf:component-pathname
           :test #'equal))

(defun run-lib-test-asdf (system-designator)
  "Runs a testing ASDF system."
  #+quicklisp (ql:quickload (if (typep system-designator 'asdf:system)
                                (asdf:component-name system-designator)
                                system-designator))
  #-quicklisp (asdf:load-system system-designator)
  (restart-case
      (dolist (c (reverse
                  (gethash (asdf:find-system system-designator) *system-test-files*)))
        (restart-case
            (asdf:perform 'asdf:load-source-op c)))))

(import 'test-file :asdf)

, затем импортировал следующую библиотеку lib-test-asdf работает в файле package.lisp, где находится мой пакет пакетов lib-test: 

(:import-from #:lib-test-asdf
                #:test-file
                #:run-lib-test-asdf)

Я создал новое системное определение для lib-test-asdf: 

(defsystem :lib-test-asdf
  :components ((:module "src"
                :components
                ((:file "asdf")))))

With this I can use lib-test like this in my apps:

(defsystem :your-app
  ;; ...
  :in-order-to ((test-op (test-op your-app/test))))

(defsystem :your-app/test
  :author "your <your@youremail.com>"
  :depends-on (:your-app :lib-test)
  :defsystem-depends-on (:lib-test-asdf)
  :components ((:module "test"
                :components
                ((:test-file "your-app-test"))))
  :perform (test-op :after (op c)
                    (progn (funcall (intern #.(string :run-lib-test-asdf) :lib-test) c)
                           (symbol-call :lib-test '#:run))))

Для запуска тестов с ASDF: 

(asdf:test-system :your-app)

I на основе Prove: https://github.com/fukamachi/prove/blob/master/src/asdf.lisp

...