diff options
Diffstat (limited to 'lib/all-mills.test.fnl')
-rw-r--r-- | lib/all-mills.test.fnl | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/lib/all-mills.test.fnl b/lib/all-mills.test.fnl deleted file mode 100644 index 7f33ab1..0000000 --- a/lib/all-mills.test.fnl +++ /dev/null @@ -1,41 +0,0 @@ -(let [{: describe - :end test-end} (require :lib.test) - {: all-mills? - : toggle-player - : only-player-moves - : all-moves-are-mills? - } (require :lib.all-mills)] - - (describe "all-mills" (fn [] - (describe "#toggle-player()" (fn [t] - (t {:given "a player" - :should "return the next" - :expected 2 - :actual (toggle-player 1) - }))) - (describe "#only-player-moves()" (fn [t] - (let [moves [ 0 2 0 2 2 2 0 0 0 0 0 0 0 2 0 0 0 2 0 2 0 1 1 1 ] - expected [ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 ] - ] - (t {:given "a bunch of moves and a player" - :should "filter out all the moves not belonging to the player" - : expected - :actual (only-player-moves moves 1) - })))) - (describe "#all-moves-are-mills?()" (fn [t] - (let [moves [ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 ] - ] - (t {:given "a bunch of moves and a player" - :should "return true if all the player moves are mills" - :expected true - :actual (all-moves-are-mills? moves 1) - })) - (let [moves [ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 ] - ] - (t {:given "a bunch of moves and no mill and a player" - :should "return false" - :expected false - :actual (all-moves-are-mills? moves 1) - })))) - (test-end)))) - |