unofficial mirror of guix-devel@gnu.org 
 help / color / mirror / code / Atom feed
blob 35a6bf004c4d82c6a1ccaae17930c827f9c449db 893 bytes (raw)
name: packages/patches/emacs-kv-fix-tests.patch 	 # note: path name is non-authoritative(*)

 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


debug log:

solving 35a6bf004c4d82c6a1ccaae17930c827f9c449db ...
found 35a6bf004c4d82c6a1ccaae17930c827f9c449db in https://git.savannah.gnu.org/cgit/guix.git

(*) Git path names are given by the tree(s) the blob belongs to.
    Blobs themselves have no identifier aside from the hash of its contents.^

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/guix.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).