2024-05-27 23:46:30 -05:00
|
|
|
|
(require "asdf")
|
|
|
|
|
|
|
|
|
|
|
|
(asdf:defsystem "mirror-img"
|
2024-05-24 20:58:37 -05:00
|
|
|
|
:version "0.1"
|
|
|
|
|
|
:license "GPLv3"
|
|
|
|
|
|
:author "Jaidyn Ann <jadedctrl@posteo.at>"
|
2024-05-31 14:44:33 -05:00
|
|
|
|
:depends-on (:dexador :lquery :pathname-utils :split-sequence)
|
2024-05-27 23:46:30 -05:00
|
|
|
|
:components ((:file "src/mirror-img"))
|
2024-05-27 23:59:55 -05:00
|
|
|
|
:in-order-to ((test-op (test-op "mirror-img/tests"))
|
|
|
|
|
|
(build-op (build-op "mirror-img/unix"))))
|
2024-05-27 23:46:30 -05:00
|
|
|
|
|
|
|
|
|
|
(asdf:defsystem "mirror-img/unix"
|
|
|
|
|
|
:version "0.1"
|
|
|
|
|
|
:license "GPLv3"
|
|
|
|
|
|
:author "Jaidyn Ann <jadedctrl@posteo.at>"
|
|
|
|
|
|
:class asdf:program-system
|
|
|
|
|
|
:build-operation "program-op"
|
|
|
|
|
|
:build-pathname "mirror-img"
|
|
|
|
|
|
:entry-point "mirror-img/unix:main"
|
|
|
|
|
|
:depends-on (:mirror-img :unix-opts :cl-strings)
|
|
|
|
|
|
:components ((:file "src/unix")))
|
2024-05-27 23:59:55 -05:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;; Tests
|
|
|
|
|
|
;;; —————————————————————————————————————
|
|
|
|
|
|
(asdf:defsystem "mirror-img/tests"
|
|
|
|
|
|
:version "0.1"
|
|
|
|
|
|
:license "GPLv3"
|
|
|
|
|
|
:author "Jaidyn Ann <jadedctrl@posteo.at>"
|
|
|
|
|
|
:description "Tests for the the mirror-img package."
|
2024-05-28 15:09:22 -05:00
|
|
|
|
:depends-on (:mirror-img :hunchentoot :lisp-unit2)
|
2024-05-27 23:59:55 -05:00
|
|
|
|
:components ((:file "t/mirror-img")))
|
|
|
|
|
|
|
2024-05-28 15:09:22 -05:00
|
|
|
|
;; Following method tweaked from lisp-unit2’s documentation:
|
2024-05-27 23:59:55 -05:00
|
|
|
|
;; https://github.com/AccelerationNet/lisp-unit2/blob/master/README.md#asdf
|
|
|
|
|
|
(defmethod asdf:perform ((o asdf:test-op) (c (eql (asdf:find-system :mirror-img/tests))))
|
|
|
|
|
|
(eval (read-from-string
|
2024-05-28 15:09:22 -05:00
|
|
|
|
"(mirror-img/tests:run)")))
|
