Commit 40bbbb5e authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

Extracted test functions from sources to -test.lisp sources. Added test...

Extracted test functions from sources to -test.lisp sources.  Added test system for each asdf system.
parent 2355aa26
......@@ -105,8 +105,7 @@
(let ((list (list 2 3 4)))
(assert-true (equal '(1 2 3 4) (add-new-element list 1 :lessp (function <)))))
(let ((list (list 2 3 4)))
(assert-true (equal '(1 2 3 4) (add-new-element list 1 :lessp (function <)))))
:success)
(assert-true (equal '(1 2 3 4) (add-new-element list 1 :lessp (function <))))))
(defun test/multiplicity ()
......@@ -122,8 +121,7 @@
(0 *) (0 *) (1 *) (4 *) ; (34 2)
(0 1) (1 1) (0 4) (2 4)
(0 *) (0 *) (1 *) (4 *) ; (34 2)
)))
:success)
))))
(define-test test/all ()
......
This diff is collapsed.
......@@ -32,7 +32,7 @@
;;;; along with this program. If not, see http://www.gnu.org/licenses/
;;;;**************************************************************************
(asdf:defsystem :com.informatimago.clext
(asdf:defsystem "com.informatimago.clext"
;; system attributes:
:description "Informatimago Common Lisp Extensions"
:long-description "
......@@ -59,8 +59,9 @@ specifications, like GRAY or other portability libraries.
"com.informatimago.clext.association")
:components ((:file "character-sets")
#+(or allegro ccl clisp sbcl cmu)
(:file "closer-weak")))
(:file "closer-weak"))
:in-order-to ((test-op (test-op "com.informatimago.clext.test")
(test-op "com.informatimago.clext.association.test"))))
;;;; THE END ;;;;
......@@ -32,7 +32,7 @@
;;;; along with this program. If not, see http://www.gnu.org/licenses/
;;;;**************************************************************************
(asdf:defsystem :com.informatimago.clext.association
(asdf:defsystem "com.informatimago.clext.association"
;; system attributes:
:description "Informatimago Common Lisp Extensions: Associations."
:long-description "
......@@ -55,8 +55,8 @@ CLOS associations. It uses CLOSER-MOP.
((#:albert #:docbook #:textcolor) . "black"))
#+asdf-unicode :encoding #+asdf-unicode :utf-8
:depends-on ("closer-mop")
:in-order-to ((test-op (test-op "com.informatimago.clext.association.test")))
:components ((:file "association")))
:components ((:file "association"))
:in-order-to ((test-op (test-op "com.informatimago.clext.association.test"))))
;;;; THE END ;;;;
......
......@@ -32,7 +32,7 @@
;;;; along with this program. If not, see http://www.gnu.org/licenses/
;;;;**************************************************************************
(asdf:defsystem :com.informatimago.clext.association.test
(asdf:defsystem "com.informatimago.clext.association.test"
;; system attributes:
:description "Informatimago Common Lisp Extensions: Associations - Tests."
:long-description "
......@@ -56,11 +56,11 @@ to define CLOS associations. It uses CLOSER-MOP.
#+asdf-unicode :encoding #+asdf-unicode :utf-8
:depends-on ("closer-mop"
"com.informatimago.clext.association")
:components ((:file "association-test"))
:perform (asdf:test-op
(o s)
(let ((*package* (find-package "COM.INFORMATIMAGO.CLEXT.ASSOCIATION")))
(uiop:symbol-call "COM.INFORMATIMAGO.CLEXT.ASSOCIATION.TEST" "TEST/ALL")))
:components ((:file "association-test")))
(uiop:symbol-call "COM.INFORMATIMAGO.CLEXT.ASSOCIATION.TEST" "TEST/ALL"))))
;;;; THE END ;;;;
......
;;;; -*- mode:lisp;coding:utf-8 -*-
;;;;***************************************************************************
;;;;FILE: com.informatimago.clext.test.asd
;;;;LANGUAGE: Common-Lisp
;;;;SYSTEM: None
;;;;USER-INTERFACE: None
;;;;DESCRIPTION:
;;;;
;;;; This file defines the com.informatimago.clext.test system.
;;;; Tests the com.informatimago.clext system.
;;;;
;;;;USAGE:
;;;;
;;;;AUTHORS:
;;;; <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
;;;;MODIFICATIONS:
;;;; 2015-02-23 <PJB> Created.
;;;;BUGS:
;;;;
;;;;LEGAL:
;;;;
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2015 - 2015
;;;;
;;;; This program is free software: you can redistribute it and/or modify
;;;; it under the terms of the GNU Affero General Public License as published by
;;;; the Free Software Foundation, either version 3 of the License, or
;;;; (at your option) any later version.
;;;;
;;;; This program is distributed in the hope that it will be useful,
;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;;; GNU Affero General Public License for more details.
;;;;
;;;; You should have received a copy of the GNU Affero General Public License
;;;; along with this program. If not, see <http://www.gnu.org/licenses/>
;;;;
;;;;***************************************************************************
(asdf:defsystem "com.informatimago.clext.test"
;; system attributes:
:description "Tests the com.informatimago.clext system."
:author "Pascal J. Bourguignon <pjb@informatimago.com>"
:maintainer "Pascal J. Bourguignon <pjb@informatimago.com>"
:licence "AGPL3"
;; component attributes:
:version "1.0.0"
:properties ((#:author-email . "pjb@informatimago.com")
(#:date . "Winter 2015")
((#:albert #:output-dir)
. "/tmp/documentation/com.informatimago.clext.test/")
((#:albert #:formats) "docbook")
((#:albert #:docbook #:template) . "book")
((#:albert #:docbook #:bgcolor) . "white")
((#:albert #:docbook #:textcolor) . "black"))
#+asdf-unicode :encoding #+asdf-unicode :utf-8
:depends-on ("com.informatimago.common-lisp.cesarum"
"com.informatimago.clext")
:components ((:file "closer-weak-test" :depends-on nil))
:perform (asdf/lisp-action:test-op
(operation system)
(declare (ignore operation system))
(let ((*package* (find-package "COM.INFORMATIMAGO.CLEXT.CLOSER-WEAK.TEST")))
(uiop/package:symbol-call "COM.INFORMATIMAGO.CLEXT.CLOSER-WEAK.TEST"
"TEST/ALL"))))
;;;; THE END ;;;;
This diff is collapsed.
......@@ -35,8 +35,17 @@
(eval-when (:compile-toplevel :load-toplevel :execute)
#+clisp (when (find-package "LINUX") (pushnew :linux *features*)))
#-clisp
(asdf:defsystem "com.informatimago.clisp"
:description "Informatimago Common Lisp Clisp Specific Packages"
:long-description "There's nothing here for non-clisp implementations."
:license "AGPL3"
:version "1.2.2"
:depends-on ()
:components ())
(asdf:defsystem :com.informatimago.clisp
#+clisp
(asdf:defsystem "com.informatimago.clisp"
;; system attributes:
:description "Informatimago Common Lisp Clisp Specific Packages"
:long-description "
......@@ -59,27 +68,26 @@ should be made into implementation independant packages).
((#:albert #:docbook #:textcolor) . "black"))
#+asdf-unicode :encoding #+asdf-unicode :utf-8
:depends-on ("com.informatimago.common-lisp.cesarum")
:components
#+clisp ((:file "syslog")
(:file "disk")
;; (:file "objc")
(:file "string")
(:file "fifo-stream")
(:file "iotask")
(:file "rfc1413" :depends-on ("iotask"))
;; :shared-object is not known of asdf, but is defined by clg-tools…
;; (:shared-object "libraw-memory"
;; :components ((:c-source-file "raw-memory-lib"))
;; :depends-on ())
;; (:file "raw-memory" :depends-on ("libraw-memory"))
#+linux (:file "susv3")
#+linux (:file "susv3-mc3" :depends-on ("susv3"))
#+linux (:file "susv3-xsi" :depends-on ("susv3"))
#+linux (:file "script" :depends-on ("string"))
#+linux (:file "shell")
#+linux (:file "xterm" :depends-on ("susv3"))
#+linux (:file "make-volumes" :depends-on ("susv3")))
#-clisp ())
:components ((:file "syslog")
(:file "disk")
;; (:file "objc")
(:file "string")
(:file "fifo-stream")
(:file "iotask")
(:file "rfc1413" :depends-on ("iotask"))
;; :shared-object is not known of asdf, but is defined by clg-tools…
;; (:shared-object "libraw-memory"
;; :components ((:c-source-file "raw-memory-lib"))
;; :depends-on ())
;; (:file "raw-memory" :depends-on ("libraw-memory"))
#+linux (:file "susv3")
#+linux (:file "susv3-mc3" :depends-on ("susv3"))
#+linux (:file "susv3-xsi" :depends-on ("susv3"))
#+linux (:file "script" :depends-on ("string"))
#+linux (:file "shell")
#+linux (:file "xterm" :depends-on ("susv3"))
#+linux (:file "make-volumes" :depends-on ("susv3")))
:in-order-to ((asdf:test-op (asdf:test-op "com.informatimago.clisp.test"))))
(eval-when (:compile-toplevel :load-toplevel :execute)
......
;;;; -*- mode:lisp;coding:utf-8 -*-
;;;;***************************************************************************
;;;;FILE: com.informatimago.clisp.test.asd
;;;;LANGUAGE: Common-Lisp
;;;;SYSTEM: None
;;;;USER-INTERFACE: None
;;;;DESCRIPTION:
;;;;
;;;; This file defines the com.informatimago.clisp.test system.
;;;; Tests the com.informatimago.clisp system.
;;;;
;;;;USAGE:
;;;;
;;;;AUTHORS:
;;;; <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
;;;;MODIFICATIONS:
;;;; 2015-02-23 <PJB> Created.
;;;;BUGS:
;;;;
;;;;LEGAL:
;;;;
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2015 - 2015
;;;;
;;;; This program is free software: you can redistribute it and/or modify
;;;; it under the terms of the GNU Affero General Public License as published by
;;;; the Free Software Foundation, either version 3 of the License, or
;;;; (at your option) any later version.
;;;;
;;;; This program is distributed in the hope that it will be useful,
;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;;; GNU Affero General Public License for more details.
;;;;
;;;; You should have received a copy of the GNU Affero General Public License
;;;; along with this program. If not, see <http://www.gnu.org/licenses/>
;;;;
;;;;***************************************************************************
(asdf:defsystem "com.informatimago.clisp.test"
;; system attributes:
:description "Tests the com.informatimago.clisp system."
:author "Pascal J. Bourguignon <pjb@informatimago.com>"
:maintainer "Pascal J. Bourguignon <pjb@informatimago.com>"
:licence "AGPL3"
;; component attributes:
:version "1.0.0"
:properties ((#:author-email . "pjb@informatimago.com")
(#:date . "Winter 2015")
((#:albert #:output-dir)
. "/tmp/documentation/com.informatimago.clisp.test/")
((#:albert #:formats) "docbook")
((#:albert #:docbook #:template) . "book")
((#:albert #:docbook #:bgcolor) . "white")
((#:albert #:docbook #:textcolor) . "black"))
#+asdf-unicode :encoding #+asdf-unicode :utf-8
:depends-on ("com.informatimago.common-lisp.cesarum"
"com.informatimago.clisp")
:components ((:file "string-test" :depends-on ()))
:perform (asdf/lisp-action:test-op
(operation system)
(declare (ignore operation system))
(let ((*package* (find-package "COM.INFORMATIMAGO.CLISP.STRING.TEST")))
(uiop/package:symbol-call "COM.INFORMATIMAGO.CLISP.STRING.TEST"
"TEST/ALL"))))
;;;; THE END ;;;;
;;;; -*- mode:lisp;coding:utf-8 -*-
;;;;**************************************************************************
;;;;FILE: string-test.lisp
;;;;LANGUAGE: Common-Lisp
;;;;SYSTEM: Common-Lisp
;;;;USER-INTERFACE: NONE
;;;;DESCRIPTION
;;;;
;;;; Test string.lisp
;;;;
;;;;AUTHORS
;;;; <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
;;;;MODIFICATIONS
;;;; 2015-02-25 <PJB> Extracted from string.lisp
;;;;BUGS
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2015 - 2015
;;;;
;;;; This program is free software: you can redistribute it and/or modify
;;;; it under the terms of the GNU Affero General Public License as published by
;;;; the Free Software Foundation, either version 3 of the License, or
;;;; (at your option) any later version.
;;;;
;;;; This program is distributed in the hope that it will be useful,
;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;;; GNU Affero General Public License for more details.
;;;;
;;;; You should have received a copy of the GNU Affero General Public License
;;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;;;**************************************************************************
(defpackage "COM.INFORMATIMAGO.CLISP.STRING.TEST"
(:use "COMMON-LISP"
"COM.INFORMATIMAGO.COMMON-LISP.CESARUM.SIMPLE-TEST"
"COM.INFORMATIMAGO.CLISP.STRING")
(:export "TEST/ALL"))
(in-package "COM.INFORMATIMAGO.CLISP.STRING.TEST")
(defun rris-result (test-case res)
"Common-Lisp"
(if (or (and (eq :error res) (eq res (car test-case)))
(string= (car test-case) res))
(progn
(format t "Ok ~50W --> ~W~%" (cdr test-case) res)
(progress-success))
(progress-failure-message (cdr test-case)
"~& expected ~W~% got ~W~%"
(car test-case) res)))
(defun rris-test ()
"
Test cases for REPLACE-REGEXP-IN-STRING
"
(let ((*case-fold-search* t))
(do* ((test-cases
;; We use basic POSIX regexps, so no 're+'.
;; result regexp replac string fix lit sub start
'( ("xy" "" "x" "y" t t)
("xyxyxyxy" "" "x" "yyyy" t t)
("" "." "x" "" t t)
("x" "." "x" "y" t t)
("xxxx" "." "x" "yyyy" t t)
("xxxx" "." "x" "yaya" t t)
("good" "a" "bad" "good" t t)
("good" "bad" "good" "bad" t t)
("good rest" "bad" "good" "bad rest" t t)
("rest good" "bad" "good" "rest bad" t t)
("good" "bad" (lambda (x) "good") "bad" t t)
("good rest" "bad" (lambda (x) "good") "bad rest" t t)
("rest good" "bad" (lambda (x) "good") "rest bad" t t)
("test" "r\\(e\\)g" "good" "test" nil nil 2)
(:error "r\\(e\\)g" "good" "reg" nil nil 2)
("rgoodg" "r\\(e\\)g" "good" "reg" nil nil 1)
("BOC NEW VALUE hoc" "pattern" "nEW VAlue" "BOC PATTERN hoc")
("BOC nEW VAlue hoc" "pattern" "nEW VAlue" "BOC pattern hoc")
("BOC new value hoc" "pattern" "new value" "BOC pattern hoc")
("BOC NEW VAlue hoc" "pattern" "nEW VAlue" "BOC Pattern hoc")
("BOC New Value hoc" "pattern" "new value" "BOC Pattern hoc")
("BOC nEW VAlue hoc" "pattern" "nEW VAlue" "BOC pATteRN hoc")
("BOC New1value hoc" "pattern" "new1value" "BOC Pattern hoc")
("BOC New-Value hoc" "pattern" "new-value" "BOC Pattern hoc")
("rrrr-www-bb rr-w-bbb"
"\\(bb*\\) \\(ww*\\) \\(rr*\\)"
"\\3-\\2-\\1" "bb www rrrr bbb w rr")
("\\4-www-bb \\4-w-bbb"
"\\(bb*\\) \\(ww*\\) \\(rr*\\)"
"\\4-\\2-\\1" "bb www rrrr bbb w rr")
(:error "blue" "\\\\b\\l\\&" "blue box and bluetooth")
("\\bblue box and \\bbluetooth"
"blue" "\\\\b\\&" "blue box and bluetooth"))
(cdr test-cases))
(test-case (car test-cases) (car test-cases))
(tc test-case test-case)
(all-ok t))
((null test-cases) all-ok)
(when (listp (nth 2 tc))
(setq tc (copy-seq tc))
(setf (nth 2 tc) (coerce (nth 2 tc) 'function)))
(let ((res (handler-case
(apply (function replace-regexp-in-string) (cdr tc))
(error () :error))) )
(if (eq :error res)
(unless (eq res (car test-case)) (setq all-ok nil))
(unless (string= (car test-case) res) (setq all-ok nil)))
(rris-result test-case res)))))
;; (rris-test)
;;; (let ((start 0) (case-sensitive nil) (extended nil) (newline nil) (nosub nil))
;;; (REGEXP:MATCH "blue" "blue box and bluetooth"
;;; :START START :IGNORE-CASE (NOT CASE-SENSITIVE)
;;; :EXTENDED EXTENDED :NEWLINE NEWLINE :NOSUB NOSUB) )
;; (replace-regexp-in-string "blue" "\\\\b\\X\\&" "blue box and bluetooth")
(define-test test/rris ()
(rris-test))
(define-test test/all ()
(test/rris))
;;;; THE END ;;;;
......@@ -36,12 +36,14 @@
(defpackage "COM.INFORMATIMAGO.CLISP.STRING"
(:documentation "This module exports string functions.")
(:use "COMMON-LISP"
"REGEXP"
#+clisp "REGEXP"
#-clisp "CL-PPCRE"
"COM.INFORMATIMAGO.COMMON-LISP.CESARUM.LIST"
"COM.INFORMATIMAGO.COMMON-LISP.CESARUM.STRING")
(:export "SPLIT-STRING" "UNSPLIT-STRING"
"STRING-MATCH" "STRING-TO-NUMBER"
"CAPITALIZATION" "REPLACE-REGEXP-IN-STRING"
"CAPITALIZATION"
"*CASE-FOLD-SEARCH*" "REPLACE-REGEXP-IN-STRING"
"SUBSTRING"))
(in-package "COM.INFORMATIMAGO.CLISP.STRING")
......@@ -373,97 +375,6 @@ since only regular expressions have distinguished subexpressions.
(setq done t) ))))
;;; (defun rris-result (test-case res)
;;; "Emacs"
;;; (if (or (and (eq :error res) (eq res (car test-case)))
;;; (string= (car test-case) res))
;;; (insert (format "Ok %-50S --> %S\n" (cdr test-case) res))
;;; (insert
;;; (format "Unexpected result for %S\n expected %S\n got %S\n"
;;; (cdr test-case) (car test-case) res))))
(defun rris-result (test-case res)
"Common-Lisp"
(if (or (and (eq :error res) (eq res (car test-case)))
(string= (car test-case) res))
(format t "Ok ~50W --> ~W~%" (cdr test-case) res)
(format t "Unexpected result for ~W~% expected ~W~% got ~W~%"
(cdr test-case) (car test-case) res)))
(defun rris-test ()
"
Test cases for REPLACE-REGEXP-IN-STRING
"
(let ((*case-fold-search* t))
(do* ((test-cases
;; We use basic POSIX regexps, so no 're+'.
;; result regexp replac string fix lit sub start
'( ("xy" "" "x" "y" t t)
("xyxyxyxy" "" "x" "yyyy" t t)
("" "." "x" "" t t)
("x" "." "x" "y" t t)
("xxxx" "." "x" "yyyy" t t)
("xxxx" "." "x" "yaya" t t)
("good" "a" "bad" "good" t t)
("good" "bad" "good" "bad" t t)
("good rest" "bad" "good" "bad rest" t t)
("rest good" "bad" "good" "rest bad" t t)
("good" "bad" (lambda (x) "good") "bad" t t)
("good rest" "bad" (lambda (x) "good") "bad rest" t t)
("rest good" "bad" (lambda (x) "good") "rest bad" t t)
("test" "r\\(e\\)g" "good" "test" nil nil 2)
(:error "r\\(e\\)g" "good" "reg" nil nil 2)
("rgoodg" "r\\(e\\)g" "good" "reg" nil nil 1)
("BOC NEW VALUE hoc" "pattern" "nEW VAlue" "BOC PATTERN hoc")
("BOC nEW VAlue hoc" "pattern" "nEW VAlue" "BOC pattern hoc")
("BOC new value hoc" "pattern" "new value" "BOC pattern hoc")
("BOC NEW VAlue hoc" "pattern" "nEW VAlue" "BOC Pattern hoc")
("BOC New Value hoc" "pattern" "new value" "BOC Pattern hoc")
("BOC nEW VAlue hoc" "pattern" "nEW VAlue" "BOC pATteRN hoc")
("BOC New1value hoc" "pattern" "new1value" "BOC Pattern hoc")
("BOC New-Value hoc" "pattern" "new-value" "BOC Pattern hoc")
("rrrr-www-bb rr-w-bbb"
"\\(bb*\\) \\(ww*\\) \\(rr*\\)"
"\\3-\\2-\\1" "bb www rrrr bbb w rr")
("\\4-www-bb \\4-w-bbb"
"\\(bb*\\) \\(ww*\\) \\(rr*\\)"
"\\4-\\2-\\1" "bb www rrrr bbb w rr")
(:error "blue" "\\\\b\\l\\&" "blue box and bluetooth")
("\\bblue box and \\bbluetooth"
"blue" "\\\\b\\&" "blue box and bluetooth")
)
(cdr test-cases))
(test-case (car test-cases) (car test-cases))
(tc test-case test-case)
(all-ok t))
((null test-cases) all-ok)
(when (listp (nth 2 tc))
(setq tc (copy-seq tc))
(setf (nth 2 tc) (coerce (nth 2 tc) 'function)))
(let ((res (handler-case
(apply (function replace-regexp-in-string) (cdr tc))
(error () :error))) )
(if (eq :error res)
(unless (eq res (car test-case)) (setq all-ok nil))
(unless (string= (car test-case) res) (setq all-ok nil)))
(rris-result test-case res)))))
;; (rris-test)
;;; (let ((start 0) (case-sensitive nil) (extended nil) (newline nil) (nosub nil))
;;; (REGEXP:MATCH "blue" "blue box and bluetooth"
;;; :START START :IGNORE-CASE (NOT CASE-SENSITIVE)
;;; :EXTENDED EXTENDED :NEWLINE NEWLINE :NOSUB NOSUB) )
;; (replace-regexp-in-string "blue" "\\\\b\\X\\&" "blue box and bluetooth")
(defun string-to-number (string &key (base 10) (start 0) (end nil))
"
DO: Converts the string to a number.
......
......@@ -32,10 +32,10 @@
;;;; along with this program. If not, see http://www.gnu.org/licenses/
;;;;**************************************************************************
(asdf:defsystem :com.informatimago.clmisc
;; system attributes:
:description "Informatimago Common Lisp Miscellaneous"
:long-description "
(asdf:defsystem "com.informatimago.clmisc"
;; system attributes:
:description "Informatimago Common Lisp Miscellaneous"
:long-description "
Various Common Lisp packages.
For now, only provides com.informatimago.clmisc.resource-utilization,
......@@ -43,21 +43,22 @@ a package to gather resource utilization statistics and report then in
a format similar to what is used by LISTSERV.
"
:author "Pascal J. Bourguignon <pjb@informatimago.com>"
:maintainer "Pascal J. Bourguignon <pjb@informatimago.com>"
:licence "AGPL3"
;; component attributes:
:version "1.2.1"
:properties ((#:author-email . "pjb@informatimago.com")
(#:date . "Autumn 2010")
((#:albert #:output-dir) . "/tmp/documentation/com.informatimago.clmisc/")
((#:albert #:formats) . ("docbook"))
((#:albert #:docbook #:template) . "book")
((#:albert #:docbook #:bgcolor) . "white")
((#:albert #:docbook #:textcolor) . "black"))
#+asdf-unicode :encoding #+asdf-unicode :utf-8
:depends-on ()
:components ((:file "resource-utilization")))
:author "Pascal J. Bourguignon <pjb@informatimago.com>"
:maintainer "Pascal J. Bourguignon <pjb@informatimago.com>"
:licence "AGPL3"
;; component attributes:
:version "1.2.1"
:properties ((#:author-email . "pjb@informatimago.com")
(#:date . "Autumn 2010")
((#:albert #:output-dir) . "/tmp/documentation/com.informatimago.clmisc/")
((#:albert #:formats) . ("docbook"))
((#:albert #:docbook #:template) . "book")
((#:albert #:docbook #:bgcolor) . "white")
((#:albert #:docbook #:textcolor) . "black"))
#+asdf-unicode :encoding #+asdf-unicode :utf-8
:depends-on ()
:components ((:file "resource-utilization"))
:in-order-to ((asdf:test-op (asdf:test-op "com.informatimago.clmisc.test"))))
;;;; THE END ;;;;
......
;;;; -*- mode:lisp;coding:utf-8 -*-
;;;;***************************************************************************
;;;;FILE: com.informatimago.clmisc.test.asd
;;;;LANGUAGE: Common-Lisp
;;;;SYSTEM: None
;;;;USER-INTERFACE: None
;;;;DESCRIPTION:
;;;;
;;;; This file defines the com.informatimago.clmisc.test system.
;;;; Tests the com.informatimago.clmisc system.
;;;;
;;;;USAGE:
;;;;
;;;;AUTHORS:
;;;; <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
;;;;MODIFICATIONS:
;;;; 2015-02-23 <PJB> Created.
;;;;BUGS:
;;;;
;;;;LEGAL:
;;;;
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2015 - 2015
;;;;
;;;; This program is free software: you can redistribute it and/or modify
;;;; it under the terms of the GNU Affero General Public License as published by
;;;; the Free Software Foundation, either version 3 of the License, or
;;;; (at your option) any later version.
;;;;
;;;; This program is distributed in the hope that it will be useful,
;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;;; GNU Affero General Public License for more details.
;;;;
;;;; You should have received a copy of the GNU Affero General Public License
;;;; along with this program. If not, see <http://www.gnu.org/licenses/>
;;;;
;;;;***************************************************************************
(asdf:defsystem "com.informatimago.clmisc.test"
;; system attributes:
:description "Tests the com.informatimago.clmisc system."