commit: 62419f9179e0d69dc513ac4e02e62e10ff3b98cd Author: Raymond Wong <infiwang <AT> pm <DOT> me> AuthorDate: Wed Apr 27 15:14:13 2022 +0000 Commit: Jakov Smolić <jsmolic <AT> gentoo <DOT> org> CommitDate: Wed Apr 27 15:54:08 2022 +0000 URL: https://gitweb.gentoo.org/repo/gentoo.git/commit/?id=62419f91
dev-lisp/asdf: Fix "test-utilities.script" test Patch is already done upstream, drop on next version bump. Closes: https://bugs.gentoo.org/841335 Signed-off-by: Raymond Wong <infiwang <AT> pm.me> Closes: https://github.com/gentoo/gentoo/pull/25226 Signed-off-by: Jakov Smolić <jsmolic <AT> gentoo.org> dev-lisp/asdf/asdf-3.3.5.ebuild | 5 ++++ .../asdf/files/asdf-3.3.5-test-utilities.patch | 27 ++++++++++++++++++++++ 2 files changed, 32 insertions(+) diff --git a/dev-lisp/asdf/asdf-3.3.5.ebuild b/dev-lisp/asdf/asdf-3.3.5.ebuild index b1153ce7066e..f33fc8a4e2a2 100644 --- a/dev-lisp/asdf/asdf-3.3.5.ebuild +++ b/dev-lisp/asdf/asdf-3.3.5.ebuild @@ -22,6 +22,11 @@ DEPEND="!dev-lisp/cl-${PN} PDEPEND="virtual/commonlisp ~dev-lisp/uiop-${PV}" +PATCHES=( + # bug 841335, drop on next version bump + "${FILESDIR}"/${PN}-3.3.5-test-utilities.patch +) + install_docs() { ( cd doc || die diff --git a/dev-lisp/asdf/files/asdf-3.3.5-test-utilities.patch b/dev-lisp/asdf/files/asdf-3.3.5-test-utilities.patch new file mode 100644 index 000000000000..d8529d16823d --- /dev/null +++ b/dev-lisp/asdf/files/asdf-3.3.5-test-utilities.patch @@ -0,0 +1,27 @@ +https://bugs.gentoo.org/841335 +Taken from https://github.com/roswell/asdf/commit/fd289d99d1c76601fb310f8ca26a48f807337c8d + +From fd289d99d1c76601fb310f8ca26a48f807337c8d Mon Sep 17 00:00:00 2001 +From: "Robert P. Goldman" <rpgold...@sift.net> +Date: Fri, 2 Jul 2021 15:57:34 -0500 +Subject: [PATCH] Fix garbled test. + +By accident a bad test slipped into a commit: this was due to my not +understanding how `with-expected-failure` works. +--- + test/test-utilities.script | 2 +- + 1 file changed, 1 insertion(+), 1 deletion(-) + +diff --git a/test/test-utilities.script b/test/test-utilities.script +index 09a03347..b1e00fa5 100644 +--- a/test/test-utilities.script ++++ b/test/test-utilities.script +@@ -342,7 +342,7 @@ + ;; (assert (directory-exists-p oddball-pathname)) + ;; (pathname oddball-namestring) + ;; (assert-equal nil (uiop:subdirectories oddball-namestring)) +-(with-expected-failure ("UIOP:SUBDIRECTORIES does not handle non-standard pathnames.") ++(with-expected-failure (#+(or sbcl cmucl) t) + (assert-equal nil (uiop:subdirectories "/[foo"))) + + (DBG "check to make sure WITH-CURRENT-DIRECTORY checks its parameter for directory pathname")
