oreodave/cantedraw
Archived
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Implement test for rank->int and int->rank being complete inverses

Browse Source
This commit is contained in:
Aryadev Chavali
2025-02-24 23:38:11 +00:00
parent 7c7bbd3361
commit ac8860e1d7
1 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
tests/model.lisp
View File

@@ -59,6 +59,16 @@
(true (every #'(lambda (x) (<= 0 x)) res)) (true (every #'(lambda (x) (<= 0 x)) res))
(is equal (length res) (length (remove-duplicates res))))) (is equal (length res) (length (remove-duplicates res)))))
(define-test (model-test "int->rank and rank->int are complete inverses")
:depends-on (rank->int int->rank)
(let ((int-range (range 0 13))
(rank-range (->> (list :ace :jack :queen :king)
(append (range 2 11)))))
(is equal rank-range
(mapcar ($>> rank->int int->rank) rank-range))
(is equal int-range
(mapcar ($>> int->rank rank->int) int-range))))
(define-test (model-test int->suit) (define-test (model-test int->suit)
:depends-on ((cantedraw/tests/macros ->>) :depends-on ((cantedraw/tests/macros ->>)
(cantedraw/tests/functions rev-map)) (cantedraw/tests/functions rev-map))