rope.asd

(asdf:defsystem #:rope
  :description "Immutable Ropes for Common Lisp"
  :author "garlic0x1"
  :license "MIT"
  :components ((:file "package")
               (:file "rope"))
  :in-order-to ((test-op (test-op #:rope/test))))

(asdf:defsystem #:rope/test
  :depends-on (#:alexandria #:fiasco #:rope)
  :components ((:module "test"
                :components ((:file "util")
                             (:file "basic")
                             (:file "fuzz"))))
  :perform (asdf:test-op
            (o c)
            (multiple-value-bind (stat result)
                (uiop:symbol-call :fiasco :run-tests
                                  '(:rope/test/basic
                                    :rope/test/fuzz))
              (print result)
              (assert (eql t stat)))))

(asdf:defsystem #:rope/dev
  :depends-on (#:alexandria #:cl-dot #:rope)
  :components ((:module "dev"
                :components ((:file "package")
                             (:file "graphviz")
                             (:file "benchmark")))))