* poker/poker.el (poker-combinations, poker-possible-hands): Fix tests.

diff --git a/packages/poker/poker.el b/packages/poker/poker.el
index c7a33a5208b740fa7a9a05619eca9431c8a8c91e..55f22bea2b09594a3f725f1d451af18fe1b78fba 100644 (file)
--- 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)