amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: emacs-kv: Fix build.

Browse source 
Build fails with emacs-next cause of copypasted test defined two times.

* gnu/packages/patches/emacs-kv-fix-tests.patch: New file.
* gnu/packages/emacs-xyz.scm (emacs-kv): Use it here.
* gnu/local.mk (dist_patch_DATA): Register it here.
This commit is contained in:
Andrew Tropin 2022-09-14 09:21:32 +03:00
parent 6cdde65bb5
commit 0336372296
No known key found for this signature in database
GPG key ID: 2208D20958C1DEB0
3 changed files with 34 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

30
gnu/packages/patches/emacs-kv-fix-tests.patch Normal file
View file

@ -0,0 +1,30 @@
From 4702849bfe7462fb6c6303786dac1b670c8f0f8f Mon Sep 17 00:00:00 2001
From: Andrew Tropin <andrew@trop.in>
Date: Wed, 14 Sep 2022 09:17:31 +0300
Subject: [PATCH] remove copypasted kvaq test
---
kv-tests.el | 7 -------
1 file changed, 7 deletions(-)
diff --git a/kv-tests.el b/kv-tests.el
index 1713e5e..abd6a24 100644
--- a/kv-tests.el
+++ b/kv-tests.el
@@ -105,13 +105,6 @@
(should-not (equal "b" (kvaq "a" '((:a . :b)("a" . "b")))))
(should-not (kvaq "b" '((:a . :b)("a" . "b")))))
-(ert-deftest kvaq ()
- "Test the simple assq."
- (should (equal :b (kvaq :a '((:a . :b)("a" . "b")))))
- (should (equal 2 (kvaq 1 '((1 . 2)("a" . "b")))))
- (should-not (equal "b" (kvaq "a" '((:a . :b)("a" . "b")))))
- (should-not (kvaq "b" '((:a . :b)("a" . "b")))))
-
(ert-deftest kvaqc ()
"Test the simple assq."
(should (equal :b (kvaqc :a '((:a . :b)("a" . "b")))))
--
2.37.3