Commit af5dccef authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

Added test systems and test files in tools.

parent 2c7c60aa
;;;; -*- mode:lisp;coding:utf-8 -*-
;;;;**************************************************************************
;;;;FILE: asdf-file-test.lisp
;;;;LANGUAGE: Common-Lisp
;;;;SYSTEM: Common-Lisp
;;;;USER-INTERFACE: NONE
;;;;DESCRIPTION
;;;;
;;;; Test asdf-file.lisp
;;;;
;;;;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/>.
;;;;**************************************************************************
(defpackage "COM.INFORMATIMAGO.TOOLS.ASDF-FILE.TEST"
(:use "COMMON-LISP"
"COM.INFORMATIMAGO.COMMON-LISP.CESARUM.SIMPLE-TEST"
"COM.INFORMATIMAGO.TOOLS.ASDF-FILE")
(:export "TEST/ALL"))
(in-package "COM.INFORMATIMAGO.TOOLS.ASDF-FILE.TEST")
(define-test test/all ()
:success)
;;;; THE END ;;;;
......@@ -350,6 +350,12 @@ found. DEFPACKAGE and IN-PACKAGE forms are evaluated.
defsystem-form)
(defun initials (name)
(coerce (loop
:for word :in (split-sequence #\space name :remove-empty-subseqs t)
:while (alpha-char-p (aref word 0))
:collect (aref word 0)) 'string))
(defun default-headers-for-system (pathname defsystem-form
&key
(default-author "Pascal J. Bourguignon")
......@@ -372,23 +378,27 @@ RETURN: A p-list containing a default source file header for the
:system "None"
:user-interface "None"
:description (append
(list (format nil "This file defines the ~A system." (ref :name)))
(ensure-list (ref :description))
(or (and (ref :long-description)
(split-sequence #\Newline (ref :long-description)))
(list (format nil "This file defines the ~A system." (ref :name)))))
(and (ref :long-description)
(split-sequence #\Newline (ref :long-description))))
:usage '()
:authors (if (ref :author)
(if (ref :maintainer)
(if (string-equal (ref :author) (ref :maintainer))
(ensure-list (ref :author))
(list (ref :author) (ref :maintainer)))
(ensure-list (ref :author)))
(if (ref :maintainer)
(ensure-list (ref :maintainer))
(list (format nil "<~A> ~A <~A>"
default-initials
default-author
default-email))))
:authors (flet ((add-initials (name)
(format nil "<~A> ~A" (initials name) name)))
(if (ref :author)
(mapcar (function add-initials)
(if (ref :maintainer)
(if (string-equal (ref :author) (ref :maintainer))
(ensure-list (ref :author))
(list (ref :author) (ref :maintainer)))
(ensure-list (ref :author))))
(if (ref :maintainer)
(mapcar (function add-initials)
(ensure-list (ref :maintainer)))
(list (format nil "<~A> ~A <~A>"
default-initials
default-author
default-email)))))
:modifications (list
(format nil "~4,'0D-~2,'0D-~2,'0D <~A> Created."
ye mo da default-initials))
......@@ -468,9 +478,9 @@ RETURN: A defsystem form for a test system for the system defined by
(tested-system-name (ref :name))
(test-system-name (format nil "~A.test" tested-system-name))
(output-directory (format nil "/tmp/documentation/~A/" test-system-name)))
`(asdf:defsystem ,(ref :name)
`(asdf:defsystem ,test-system-name
;; system attributes:
:description ,(format nil "Test the ~A system." tested-system-name)
:description ,(format nil "Tests the ~A system." tested-system-name)
:long-description ,(or (ref :long-decription) (ref :decription))
:author ,(ref :author)
:maintainer ,(ref :maintainer)
......@@ -488,6 +498,7 @@ RETURN: A defsystem form for a test system for the system defined by
:depends-on (,(ref :name)
"com.informatimago.common-lisp.cesarum") ; simple-test
:perform (asdf:test-op (cl-user::operation cl-user::system)
(declare (ignore cl-user::operation cl-user::system))
;; template:
(let ((*package* (find-package "TESTED-PACKAGE")))
(uiop:symbol-call "TESTED-PACKAGE" "TEST/ALL")))
......@@ -501,20 +512,28 @@ Writes asd files defining test systems for each system found in the
asdf file at ASDF-SYSTEM-PATHNAME, unless such a file already exists.
"
(with-open-file (stream asdf-system-pathname)
(when verbose
(format *trace-output* "~&;; Reading system asd file ~A~%" asdf-system-pathname))
(dolist (defsys (read-asdf-system-definitions stream))
(unless (test-system-p defsys)
(let* ((test-defsys (test-system-for-system defsys))
(test-pathname (merge-pathnames (make-pathname :name (second test-defsys)
:type "asd"
:version nil
:case :local)
asdf-system-pathname
nil)))
(unless (probe-file test-pathname)
(when verbose
(format *trace-output* "~&;; Generating test system asd file ~A~%" test-pathname))
(save-asdf-system-file test-pathname test-defsys
:headers (default-headers-for-system test-pathname test-defsys))))))))
(if (test-system-p defsys)
(when verbose
(format *trace-output* "~&;; Already a test system.~%"))
(let* ((test-defsys (test-system-for-system defsys))
(test-pathname (merge-pathnames
(make-pathname :name (string-downcase (second test-defsys))
:type "asd"
:version nil
:case :local)
asdf-system-pathname
nil)))
(if (probe-file test-pathname)
(when verbose
(format *trace-output* "~&;; Test system file ~A already exists.~%" test-pathname))
(progn
(when verbose
(format *trace-output* "~&;; Generating test system asd file ~A~%" test-pathname))
(save-asdf-system-file test-pathname test-defsys
:headers (default-headers-for-system test-pathname test-defsys)))))))))
......
;;;; -*- mode:lisp;coding:utf-8 -*-
;;;;**************************************************************************
;;;;FILE: asdf-test.lisp
;;;;LANGUAGE: Common-Lisp
;;;;SYSTEM: Common-Lisp
;;;;USER-INTERFACE: NONE
;;;;DESCRIPTION
;;;;
;;;; Test asdf.lisp
;;;;
;;;;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/>.
;;;;**************************************************************************
(defpackage "COM.INFORMATIMAGO.TOOLS.ASDF.TEST"
(:use "COMMON-LISP"
"COM.INFORMATIMAGO.COMMON-LISP.CESARUM.SIMPLE-TEST"
"COM.INFORMATIMAGO.TOOLS.ASDF")
(:export "TEST/ALL"))
(in-package "COM.INFORMATIMAGO.TOOLS.ASDF.TEST")
(define-test test/all ()
:success)
;;;; THE END ;;;;
;;;; -*- mode:lisp;coding:utf-8 -*-
;;;;**************************************************************************
;;;;FILE: check-asdf-test.lisp
;;;;LANGUAGE: Common-Lisp
;;;;SYSTEM: Common-Lisp
;;;;USER-INTERFACE: NONE
;;;;DESCRIPTION
;;;;
;;;; Test check-asdf.lisp
;;;;
;;;;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/>.
;;;;**************************************************************************
(defpackage "COM.INFORMATIMAGO.TOOLS.CHECK-ASDF.TEST"
(:use "COMMON-LISP"
"COM.INFORMATIMAGO.COMMON-LISP.CESARUM.SIMPLE-TEST"
"COM.INFORMATIMAGO.TOOLS.CHECK-ASDF")
(:export "TEST/ALL"))
(in-package "COM.INFORMATIMAGO.TOOLS.CHECK-ASDF.TEST")
(define-test test/all ()
:success)
;;;; THE END ;;;;
;;;; -*- mode:lisp;coding:utf-8 -*-
;;;;***************************************************************************
;;;;FILE: com.informatimago.tools.check-asdf.test.asd
;;;;LANGUAGE: Common-Lisp
;;;;SYSTEM: None
;;;;USER-INTERFACE: None
;;;;DESCRIPTION:
;;;;
;;;; This file defines the com.informatimago.tools.check-asdf.test system.
;;;; Tests the com.informatimago.tools.check-asdf system.
;;;;
;;;;USAGE:
;;;;
;;;;AUTHORS:
;;;; <PJB> Pascal J. Bourguignon
;;;;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.tools.check-asdf.test"
;; system attributes:
:description "Tests the com.informatimago.tools.check-asdf system."
:author "Pascal J. Bourguignon"
:maintainer "Pascal J. Bourguignon"
:licence "AGPL3"
;; component attributes:
:version "1.0.0"
:properties ((#:author-email . "pjb@informatimago.com")
(#:date . "Winter 2015")
((#:albert #:output-dir)
. "/tmp/documentation/com.informatimago.tools.check-asdf.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.tools.check-asdf")
:components ((:file "script-test" :depends-on nil)
(:file "dependency-cycles-test" :depends-on nil))
:perform (asdf/lisp-action:test-op
(operation system)
(declare (ignore operation system))
(let ((*package* (find-package "COM.INFORMATIMAGO.TOOLS.DEPENDENCY-CYCLES.TEST")))
(uiop/package:symbol-call "COM.INFORMATIMAGO.TOOLS.DEPENDENCY-CYCLES.TEST"
"TEST/ALL"))
(let ((*package* (find-package "COM.INFORMATIMAGO.TOOLS.CHECK-ASDF.TEST")))
(uiop/package:symbol-call "COM.INFORMATIMAGO.TOOLS.CHECK-ASDF.TEST"
"TEST/ALL"))
(let ((*package* (find-package "COM.INFORMATIMAGO.TOOLS.SCRIPT.TEST")))
(uiop/package:symbol-call "COM.INFORMATIMAGO.TOOLS.SCRIPT.TEST"
"TEST/ALL"))))
;;;; THE END ;;;;
;;;; -*- mode:lisp;coding:utf-8 -*-
;;;;***************************************************************************
;;;;FILE: com.informatimago.tools.make-depends.test.asd
;;;;LANGUAGE: Common-Lisp
;;;;SYSTEM: None
;;;;USER-INTERFACE: None
;;;;DESCRIPTION:
;;;;
;;;; This file defines the com.informatimago.tools.make-depends.test system.
;;;; Tests the com.informatimago.tools.make-depends 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.tools.make-depends.test"
;; system attributes:
:description "Tests the com.informatimago.tools.make-depends 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.tools.make-depends.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.tools.make-depends")
:components ((:file "make-depends-test" :depends-on nil))
:perform (asdf/lisp-action:test-op
(operation system)
(declare (ignore operation system))
(let ((*package* (find-package "COM.INFORMATIMAGO.TOOLS.MAKE-DEPENDS.TEST")))
(uiop/package:symbol-call "COM.INFORMATIMAGO.TOOLS.MAKE-DEPENDS.TEST"
"TEST/ALL"))))
;;;; THE END ;;;;
;;;; -*- mode:lisp;coding:utf-8 -*-
;;;;***************************************************************************
;;;;FILE: com.informatimago.tools.manifest.test.asd
;;;;LANGUAGE: Common-Lisp
;;;;SYSTEM: None
;;;;USER-INTERFACE: None
;;;;DESCRIPTION:
;;;;
;;;; This file defines the com.informatimago.tools.manifest.test system.
;;;; Tests the com.informatimago.tools.manifest system.
;;;;
;;;;USAGE:
;;;;
;;;;AUTHORS:
;;;; <PJB> Pascal J. Bourguignon
;;;;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.tools.manifest.test"
;; system attributes:
:description "Tests the com.informatimago.tools.manifest system."
:author "Pascal J. Bourguignon"
:maintainer "Pascal J. Bourguignon"
:licence "AGPL3"
;; component attributes:
:version "1.0.0"
:properties ((#:author-email . "pjb@informatimago.com")
(#:date . "Winter 2015")
((#:albert #:output-dir)
. "/tmp/documentation/com.informatimago.tools.manifest.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.tools.manifest")
:components ((:file "manifest-test" :depends-on nil))
:perform (asdf/lisp-action:test-op
(operation system)
(declare (ignore operation system))
(let ((*package* (find-package "COM.INFORMATIMAGO.TOOLS.MANIFEST.TEST")))
(uiop/package:symbol-call "COM.INFORMATIMAGO.TOOLS.MANIFEST.TEST"
"TEST/ALL"))))
;;;; THE END ;;;;
;;;; -*- mode:lisp;coding:utf-8 -*-
;;;;***************************************************************************
;;;;FILE: com.informatimago.tools.pathname.test.asd
;;;;LANGUAGE: Common-Lisp
;;;;SYSTEM: None
;;;;USER-INTERFACE: None
;;;;DESCRIPTION:
;;;;
;;;; This file defines the com.informatimago.tools.pathname.test system.
;;;; Tests the com.informatimago.tools.pathname system.
;;;;
;;;;USAGE:
;;;;
;;;;AUTHORS:
;;;; <PJB> Pascal J. Bourguignon
;;;;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.tools.pathname.test"
;; system attributes:
:description "Tests the com.informatimago.tools.pathname system."
:author "Pascal J. Bourguignon"
:maintainer "Pascal J. Bourguignon"
:licence "GPL3"
;; component attributes:
:version "1.0.0"
:properties ((#:author-email . "pjb@informatimago.com")
(#:date . "Winter 2015")
((#:albert #:output-dir)
. "/tmp/documentation/com.informatimago.tools.pathname.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.tools.pathname")
:components ((:file "pathname-test" :depends-on nil))
:perform (asdf/test-op
(operation system)
(declare (ignore operation system))
(let ((*package* (find-package "COM.INFORMATIMAGO.TOOLS.PATHNAME.TEST")))
(uiop/package:symbol-call "COM.INFORMATIMAGO.TOOLS.PATHNAME.TEST"
"TEST/ALL"))))
;;;; THE END ;;;;
;;;; -*- mode:lisp;coding:utf-8 -*-
;;;;***************************************************************************
;;;;FILE: com.informatimago.tools.quicklisp.test.asd
;;;;LANGUAGE: Common-Lisp
;;;;SYSTEM: None
;;;;USER-INTERFACE: None
;;;;DESCRIPTION:
;;;;
;;;; This file defines the com.informatimago.tools.quicklisp.test system.
;;;; Tests the com.informatimago.tools.quicklisp system.
;;;;
;;;;USAGE:
;;;;
;;;;AUTHORS:
;;;; <PJB> Pascal J. Bourguignon
;;;;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.tools.quicklisp.test"
;; system attributes:
:description "Tests the com.informatimago.tools.quicklisp system."
:author "Pascal J. Bourguignon"
:maintainer "Pascal J. Bourguignon"
:licence "GPL3"
;; component attributes:
:version "1.0.0"
:properties ((#:author-email . "pjb@informatimago.com")
(#:date . "Winter 2015")
((#:albert #:output-dir)
. "/tmp/documentation/com.informatimago.tools.quicklisp.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.tools.quicklisp")
:components ((:file "quicklisp-test" :depends-on ())
(:file "asdf-test" :depends-on ()))
:perform (asdf:test-op
(operation system)
(declare (ignore operation system))
(let ((*package* (find-package "COM.INFORMATIMAGO.TOOLS.QUICKLISP.TEST")))
(uiop/package:symbol-call "COM.INFORMATIMAGO.TOOLS.QUICKLISP.TEST"
"TEST/ALL"))
(let ((*package* (find-package "COM.INFORMATIMAGO.TOOLS.ASDF.TEST")))
(uiop/package:symbol-call "COM.INFORMATIMAGO.TOOLS.ASDF.TEST"
"TEST/ALL"))))
;;;; THE END ;;;;
;;;; -*- mode:lisp;coding:utf-8 -*-
;;;;***************************************************************************
;;;;FILE: com.informatimago.tools.source.test.asd
;;;;LANGUAGE: Common-Lisp
;;;;SYSTEM: None
;;;;USER-INTERFACE: None
;;;;DESCRIPTION:
;;;;
;;;; This file defines the com.informatimago.tools.source.test system.
;;;; Tests the com.informatimago.tools.source system.
;;;;
;;;;USAGE:
;;;;
;;;;AUTHORS:
;;;; <PJB> Pascal J. Bourguignon
;;;;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.tools.source.test"
;; system attributes:
:description "Tests the com.informatimago.tools.source system."
:author "Pascal J. Bourguignon"
:maintainer "Pascal J. Bourguignon"
:licence "GPL3"
;; component attributes:
:version "1.0.0"
:properties ((#:author-email . "pjb@informatimago.com")
(#:date . "Winter 2015")
((#:albert #:output-dir)
. "/tmp/documentation/com.informatimago.tools.source.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.tools.source")
:components ((:file "source-test" :depends-on ())
(:file "asdf-file-test" :depends-on ()))
:perform (asdf/lisp-action:test-op
(operation system)
(declare (ignore operation system))
(let ((*package* (find-package "COM.INFORMATIMAGO.TOOLS.SOURCE.TEST")))
(uiop/package:symbol-call "COM.INFORMATIMAGO.TOOLS.SOURCE.TEST"
"TEST/ALL"))
(let ((*package* (find-package "COM.INFORMATIMAGO.TOOLS.ASDF-FILE.TEST")))
(uiop/package:symbol-call "COM.INFORMATIMAGO.TOOLS.ASDF-FILE.TEST"
"TEST/ALL"))))
;;;; THE END ;;;;
;;;; -*- mode:lisp;coding:utf-8 -*-
;;;;***************************************************************************
;;;;FILE: com.informatimago.tools.summary.test.asd
;;;;LANGUAGE: Common-Lisp
;;;;SYSTEM: None
;;;;USER-INTERFACE: None
;;;;DESCRIPTION:
;;;;
;;;; This file defines the com.informatimago.tools.summary.test system.
;;;; Tests the com.informatimago.tools.summary 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.