branch: elpa/buttercup
commit 06c9699d6a1af54c08a4a164b40b87ba4a873f31
Merge: 657acef 553ff83
Author: Jorgen Schäfer <[email protected]>
Commit: Jorgen Schäfer <[email protected]>
Merge pull request #58 from Fuco1/to-equal-as-set
Add :to-equal-as-set to compare lists as sets.
---
buttercup-compat.el | 3 +++
buttercup.el | 5 +++++
docs/writing-tests.md | 9 +++++++++
3 files changed, 17 insertions(+)
diff --git a/buttercup-compat.el b/buttercup-compat.el
index c509c68..be33d88 100644
--- a/buttercup-compat.el
+++ b/buttercup-compat.el
@@ -35,6 +35,9 @@
(when (not (fboundp 'cl-defstruct))
(defalias 'cl-defstruct 'defstruct))
+(when (not (fboundp 'cl-every))
+ (defalias 'cl-every 'every))
+
;;;;;;;;;;;;;;;;;;;;;
;; Introduced in 24.4
diff --git a/buttercup.el b/buttercup.el
index cffc182..6d5a130 100644
--- a/buttercup.el
+++ b/buttercup.el
@@ -161,6 +161,11 @@ MATCHER is either a matcher defined with
(cons t (format "Expected %S not to `equal' %S" a b))
(cons nil (format "Expected %S to `equal' %S" a b))))
+(buttercup-define-matcher :to-have-same-items-as (a b)
+ (if (cl-every (lambda (x) (member x b)) a)
+ (cons t (format "Expected %S not to have same items as %S" a b))
+ (cons nil (format "Expected %S to have same items as %S" a b))))
+
(buttercup-define-matcher :to-match (text regexp)
(if (string-match regexp text)
(cons t (format "Expected %S not to match the regexp %S"
diff --git a/docs/writing-tests.md b/docs/writing-tests.md
index 07b0dc4..b2caafb 100644
--- a/docs/writing-tests.md
+++ b/docs/writing-tests.md
@@ -103,6 +103,15 @@ that are not included below.
(bar '((a . 12) (b . 34))))
(expect foo :to-equal bar))))
+ (it "The :to-have-same-items-as matcher compares two lists as sets"
+ (let ((first (list "a" "b" "c"))
+ (second (list "c" "a" "b"))
+ (third (list "a" "c" "d")))
+ (expect first :to-have-same-items-as second)
+ (expect second :to-have-same-items-as first)
+ (expect first :not :to-have-same-items-as third)
+ (expect third :not :to-have-same-items-as second)))
+
(it "The :to-match matcher is for regular expressions"
(let ((message "foo bar baz"))
(expect message :to-match "bar")
