Commit 71f965fe authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

1.0.0.1: update .asd files, fix tests.

parent f9c7f881
;;; -*- Mode: Lisp ; Base: 10 ; Syntax: ANSI-Common-Lisp -*-
(defsystem :fare-utils
(defsystem "fare-utils"
:version "1.0.0.1"
:description "Basic functions and macros, interfaces, pure and stateful datastructures"
:long-description "fare-utilities is a small collection of utilities.
It contains a lot of basic everyday functions and macros,
but also a library of pure and stateful datastructures,
and Lisp extensions for memoization and reader interception."
:depends-on (#-asdf3 :asdf-driver)
:version "1.0.0"
:license "MIT" ;; also BSD or bugroff
:author "Francois-Rene Rideau"
:depends-on ((:version "asdf" "3.0"))
:components
((:file "package")
......@@ -45,8 +47,5 @@ and Lisp extensions for memoization and reader interception."
(:file "binomial-heap" :depends-on ("container"))
|#
(:file "dllist" :depends-on ("container"))
#|(:file "sorting" :depends-on ("binary-heap" "binomial-heap"))|#))))
(defmethod perform ((op test-op) (system (eql (find-system :fare-utils))))
(asdf:load-system :fare-utils-test)
(funcall (read-from-string "fare-utils-test:test-suite")))
#|(:file "sorting" :depends-on ("binary-heap" "binomial-heap"))|#)))
:in-order-to ((test-op (test-op "fare-utils-test"))))
;;; -*- Mode: Lisp ; Base: 10 ; Syntax: ANSI-Common-Lisp -*-
(asdf:defsystem :fare-utils-test
:depends-on (:fare-utils :hu.dwim.stefil)
(defsystem "fare-utils-test"
:version "1.0.0.1"
:description "Tests for fare-utils"
:license "MIT" ;; also BSD or bugroff
:author "Francois-Rene Rideau"
:depends-on ("fare-utils" "hu.dwim.stefil")
:components
((:file "package")
(:file "strings" :depends-on ("package"))))
(:file "strings" :depends-on ("package")))
:perform (test-op (o c) (symbol-call :fare-utils-test :test-suite)))
#+xcvb (module ())
(defpackage :fare-utils-test
(:use :fare-utils
:interface :eq :order :pure
:reader-interception
:cl :hu.dwim.stefil)
(:use :cl :fare-utils :uiop :hu.dwim.stefil)
(:export #:test-suite))
(in-package :fare-utils-test)
......
......@@ -6,7 +6,7 @@
:documentation "Test string functions"))
(deftest test-strcat ()
(is (equal (asdf:strcat "foo" "bar" "baz") "foobarbaz")))
(is (equal (strcat "foo" "bar" "baz") "foobarbaz")))
(deftest test-join-strings ()
(is (equal (join-strings '("/bin" "/usr/bin" "/usr/local/bin") :separator ":")
......
Markdown is supported
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