[elpa] externals/poker 2e12d6b 03/12: * poker/poker.el (poker-combinations, poker-possible-hands): Fix tests.

[Stefan Monnier]

branch: externals/poker
commit 2e12d6bd56a1418abfbc5bfc00fbcb9ebdda3cad
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

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

diff --git a/poker.el b/poker.el
index c7a33a5..55f22be 100644
--- a/poker.el
+++ b/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)