~ruther/guix-local

ref: 64668f7c15fa639831209f25e313c99a1047de7b guix-local/gnu/packages/patches/emacs-kv-fix-tests.patch -rw-r--r-- 893 bytes
64668f7c — Rutherther etc: release: Add spare space to the release VM image. a month ago 
                                                                                
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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