Commit 65446156 authored by Kevin M. Rosenberg's avatar Kevin M. Rosenberg

Improve test suite for modern ASDF

parent ef5afb9e
cl-puri (1:1.5.7.1-1) unstable; urgency=medium
* Rework test suite for newer versions of ASDF
* Upload to Debian (closes: 921508)
-- Kevin M. Rosenberg <kmr@debian.org> Tue, 29 Sep 2020 15:55:37 +0000
cl-puri (1:1.5.7-1) unstable; urgency=medium
* Avoid name collision with zacl and net.uri nickname (thanks Dave Cooper)
......
......@@ -3,7 +3,7 @@ Section: lisp
Priority: optional
Maintainer: Kevin M. Rosenberg <kmr@debian.org>
Build-Depends-Indep: dh-lisp
Build-Depends: debhelper (>= 7.0.0)
Build-Depends: debhelper (>= 11.0.0)
Standards-Version: 3.9.5.0
Homepage: http://files.kpe.io/puri/
Vcs-Git: git://git.kpe.io/puri/
......
......@@ -6,28 +6,20 @@
(defpackage #:puri-system (:use #:cl #:asdf))
(in-package #:puri-system)
(defsystem puri
:name "cl-puri"
:maintainer "Kevin M. Rosenberg <kmr@debian.org>"
:licence "GNU Lesser General Public License"
:description "Portable Universal Resource Indentifier Library"
:components
((:file "src")))
(defmethod perform ((o test-op) (c (eql (find-system 'puri))))
(oos 'load-op 'puri-tests)
(oos 'test-op 'puri-tests))
((:file "src"))
:in-order-to ((test-op (test-op "puri/test"))))
(defsystem puri-tests
:depends-on (:puri :ptester)
(defsystem puri/test
:depends-on (:ptester :puri)
:components
((:file "tests")))
(defmethod perform ((o test-op) (c (eql (find-system 'puri-tests))))
(or (funcall (intern (symbol-name '#:do-tests)
(find-package :puri-tests)))
(error "test-op failed")))
(defmethod operation-done-p ((o test-op) (c (eql (find-system 'puri-tests))))
(values nil))
((:file "tests"))
:perform (test-op (o s)
(or (funcall (intern (symbol-name '#:do-tests)
(find-package '#:puri/test)))
(error "test-op failed"))))
......@@ -23,8 +23,8 @@
;; $Id$
(defpackage #:puri-tests (:use #:puri #:cl #:ptester))
(in-package #:puri-tests)
(defpackage #:puri/test (:use #:puri #:cl #:ptester))
(in-package #:puri/test)
(unintern-uri t)
......@@ -427,5 +427,3 @@
(with-tests (:name "puri")
(gen-test-forms)))
t)
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