blob: 7eadb0de7166bd743d9d5a436b0c25714878ea9d (
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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
;;; gnus-util-tests.el --- Selectived tests only. -*- lexical-binding:t -*-
;; Copyright (C) 2015-2020 Free Software Foundation, Inc.
;; Author: Jens Lechtenbörger <jens.lechtenboerger@fsfe.org>
;; This file is not part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 3, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;; Code:
(require 'ert)
(require 'gnus-util)
(ert-deftest gnus-subsetp ()
;; False for non-lists.
(should-not (gnus-subsetp "1" "1"))
(should-not (gnus-subsetp "1" '("1")))
(should-not (gnus-subsetp '("1") "1"))
;; Real tests.
(should (gnus-subsetp '() '()))
(should (gnus-subsetp '() '("1")))
(should (gnus-subsetp '("1") '("1")))
(should (gnus-subsetp '(42) '("1" 42)))
(should (gnus-subsetp '(42) '(42 "1")))
(should (gnus-subsetp '(42) '("1" 42 2)))
(should-not (gnus-subsetp '("1") '()))
(should-not (gnus-subsetp '("1") '(2)))
(should-not (gnus-subsetp '("1" 2) '(2)))
(should-not (gnus-subsetp '(2 "1") '(2)))
(should-not (gnus-subsetp '("1" 2) '(2 3)))
;; Duplicates don't matter for sets.
(should (gnus-subsetp '("1" "1") '("1")))
(should (gnus-subsetp '("1" 2 "1") '(2 "1")))
(should (gnus-subsetp '("1" 2 "1") '(2 "1" "1" 2)))
(should-not (gnus-subsetp '("1" 2 "1" 3) '(2 "1" "1" 2))))
(ert-deftest gnus-setdiff ()
;; False for non-lists.
(should-not (gnus-setdiff "1" "1"))
(should-not (gnus-setdiff "1" '()))
(should-not (gnus-setdiff '() "1"))
;; Real tests.
(should-not (gnus-setdiff '() '()))
(should-not (gnus-setdiff '() '("1")))
(should-not (gnus-setdiff '("1") '("1")))
(should (equal '("1") (gnus-setdiff '("1") '())))
(should (equal '("1") (gnus-setdiff '("1") '(2))))
(should (equal '("1") (gnus-setdiff '("1" 2) '(2))))
(should (equal '("1") (gnus-setdiff '("1" 2 3) '(3 2))))
(should (equal '("1") (gnus-setdiff '(2 "1" 3) '(3 2))))
(should (equal '("1") (gnus-setdiff '(2 3 "1") '(3 2))))
(should (equal '(2 "1") (gnus-setdiff '(2 3 "1") '(3))))
;; Duplicates aren't touched for sets if they are not removed.
(should-not (gnus-setdiff '("1" "1") '("1")))
(should (equal '("1") (gnus-setdiff '(2 "1" 2) '(2))))
(should (equal '("1" "1") (gnus-setdiff '(2 "1" 2 "1") '(2)))))
;;; gnustest-gnus-util.el ends here
|
