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.
		
			
				
	
	
		
			30 lines
		
	
	
	
		
			893 B
		
	
	
	
		
			Diff
		
	
	
	
	
	
			
		
		
	
	
			30 lines
		
	
	
	
		
			893 B
		
	
	
	
		
			Diff
		
	
	
	
	
	
| 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
 | |
| 
 |