[elpa] 03/16: * poker/poker.el (poker-combinations, poker-possible-hands): Fix tests.

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit 8f49e7e80bee0212f403ba5d77d14a66c4f33618
Author: Stefan Monnier <address@hidden>
Date:   Wed Oct 15 16:27:12 2014 -0400

    * poker/poker.el (poker-combinations, poker-possible-hands): Fix tests.
---
 packages/poker/poker.el |   12 ++++++------
 1 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/packages/poker/poker.el b/packages/poker/poker.el
index c7a33a5..55f22be 100644
--- a/packages/poker/poker.el
+++ b/packages/poker/poker.el
@@ -839,14 +839,14 @@ FCR-FN specifies a function to use when a fold-call-raise 
decision is required."
 ;;; Tests:
 
 (ert-deftest poker-combinations ()
-  (equal 21 (length (poker-combinations 5 (last poker-deck 7))))
-  (equal 1326 (length (poker-combinations 2 poker-deck))))
+  (should (equal 21 (length (poker-combinations 5 (last poker-deck 7)))))
+  (should (equal 1326 (length (poker-combinations 2 poker-deck)))))
 
 (ert-deftest poker-possible-hands ()
-  (equal (poker-possible-hands '(1 2 3 4 5 6 7))
-        (poker-combinations 5 '(1 2 3 4 5 6 7)))
-  (equal (poker-possible-hands '(1 2 3 4 5 6))
-        (poker-combinations 5 '(1 2 3 4 5 6))))
+  (should (equal (poker-possible-hands '(1 2 3 4 5 6 7))
+                 (poker-combinations 5 '(1 2 3 4 5 6 7))))
+  (should (equal (poker-possible-hands '(1 2 3 4 5 6))
+                 (poker-combinations 5 '(1 2 3 4 5 6)))))
 
 (ert-deftest poker ()
   (let ((players (list (poker-make-player "Angela" #'poker-automatic-fcr)