[nongnu] elpa/buttercup 06c9699 104/340: Merge pull request #58 from Fuco1/to-equal-as-set

[ELPA Syncer]

branch: elpa/buttercup
commit 06c9699d6a1af54c08a4a164b40b87ba4a873f31
Merge: 657acef 553ff83
Author: Jorgen Schäfer <Jorgen.Schaefer@gmail.com>
Commit: Jorgen Schäfer <Jorgen.Schaefer@gmail.com>

    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")