[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 03/16: * poker/poker.el (poker-combinations, poker-possible-hands
From: |
Stefan Monnier |
Subject: |
[elpa] 03/16: * poker/poker.el (poker-combinations, poker-possible-hands): Fix tests. |
Date: |
Wed, 15 Oct 2014 21:05:54 +0000 |
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)
- [elpa] branch master updated (25c579d -> e7e02c2), Stefan Monnier, 2014/10/15
- [elpa] 01/16: * packages/register-list/register-list.el (register-list): Pass arg to called-interactively-p., Stefan Monnier, 2014/10/15
- [elpa] 02/16: * packages/rainbow-mode/rainbow-mode.el (ansi-color-context) (xterm-color-current): Declare., Stefan Monnier, 2014/10/15
- [elpa] 03/16: * poker/poker.el (poker-combinations, poker-possible-hands): Fix tests.,
Stefan Monnier <=
- [elpa] 04/16: * packages/num3-mode/num3-mode.el (num3-mode): Use font-lock-flush if available., Stefan Monnier, 2014/10/15
- [elpa] 05/16: * packages/shen-mode/inf-shen.el: Don't require `cl'. (shen-remember-functions): Avoid `flet'., Stefan Monnier, 2014/10/15
- [elpa] 08/16: * packages/uni-confusables/uni-confusables.el: Fix up comment convention. * packages/uni-confusables/gen-confusables.el (gen-confusables-write): Idem., Stefan Monnier, 2014/10/15
- [elpa] 06/16: * packages/trie/trie.el (edebug-prin1, edebug-prin1-to-string): Use advice-add when available., Stefan Monnier, 2014/10/15
- [elpa] 09/16: * GNUmakefile (%-pkg.el): Silence the emacs command line again. (all-in-place): Remove debug message., Stefan Monnier, 2014/10/15
- [elpa] 10/16: * packages/f90-interface-browser/f90-interface-browser.el (f90-fontify-arglist): Use font-lock-ensure when available., Stefan Monnier, 2014/10/15
- [elpa] 11/16: * packages/flylisp/flylisp.el (jit-lock-start): Declare., Stefan Monnier, 2014/10/15
- [elpa] 12/16: * packages/jgraph-mode/jgraph-mode.el: Use lexical-binding. (jgraph-extract-commands): Avoid add-to-list on local var., Stefan Monnier, 2014/10/15
- [elpa] 13/16: * packages/markchars/markchars.el (markchars-mode): Use font-lock-flush when available., Stefan Monnier, 2014/10/15
- [elpa] 14/16: * packages/vlf/vlf-occur.el, vlf-search.el, vlf-write.el (tramp-verbose): Declare., Stefan Monnier, 2014/10/15