blob: 30ae58c6bb84b2f5ed72991a94c48d0ac6998eea (
plain)
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
;;; test-local-repository--car-member.el --- Tests for localrepo--car-member -*- lexical-binding: t -*-
;;; Commentary:
;; Tests for `localrepo--car-member' in local-repository.el — the predicate
;; localrepo-initialize uses to check whether an archive id is already
;; registered in package-archives / package-archive-priorities.
;;; Code:
(require 'ert)
(require 'local-repository)
;;; Normal Cases
(ert-deftest test-local-repository-localrepo--car-member-found ()
"Normal: VALUE present as a car returns the matching tail (non-nil)."
(should (equal (localrepo--car-member 'b '((a . 1) (b . 2) (c . 3)))
'(b c))))
(ert-deftest test-local-repository-localrepo--car-member-not-found ()
"Normal: VALUE absent from every car returns nil."
(should-not (localrepo--car-member 'z '((a . 1) (b . 2)))))
(ert-deftest test-local-repository-localrepo--car-member-string-car ()
"Normal: car comparison uses `equal', so string keys match by value."
(should (localrepo--car-member "localrepo"
'(("gnu" . "url1") ("localrepo" . "url2")))))
;;; Boundary Cases
(ert-deftest test-local-repository-localrepo--car-member-empty-list ()
"Boundary: an empty list never matches."
(should-not (localrepo--car-member 'a nil)))
(ert-deftest test-local-repository-localrepo--car-member-single-match ()
"Boundary: a single-element list whose car matches returns non-nil."
(should (localrepo--car-member 'only '((only . 1)))))
(ert-deftest test-local-repository-localrepo--car-member-single-no-match ()
"Boundary: a single-element list whose car differs returns nil."
(should-not (localrepo--car-member 'x '((only . 1)))))
(ert-deftest test-local-repository-localrepo--car-member-nil-value-with-nil-car ()
"Boundary: a nil VALUE matches a cons whose car is nil."
(should (localrepo--car-member nil '((nil . 1) (a . 2)))))
(ert-deftest test-local-repository-localrepo--car-member-nil-value-no-nil-car ()
"Boundary: a nil VALUE with no nil car returns nil."
(should-not (localrepo--car-member nil '((a . 1) (b . 2)))))
;;; Error Cases
(ert-deftest test-local-repository-localrepo--car-member-non-cons-element ()
"Error: a non-cons element makes `car' signal wrong-type-argument."
(should-error (localrepo--car-member 'x '(1 2)) :type 'wrong-type-argument))
(provide 'test-local-repository--car-member)
;;; test-local-repository--car-member.el ends here
|
