Skip to content
Snippets Groups Projects

Compare revisions

Changes are shown as if the source revision was being merged into the target revision. Learn more about comparing revisions.

Source

Select target project
No results found

Target

Select target project
  • frideau/fare-utils
1 result
Show changes
Commits on Source (1)
;;; -*- 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 ":")
......