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

Implement test for rank->int

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

15
tests/model.lisp
View File

@@ -44,6 +44,21 @@
(append (range 2 11)) (append (range 2 11))
(mapcar (lambda (rank) (assoc rank mapping)))))))) (mapcar (lambda (rank) (assoc rank mapping))))))))
(define-test (model-test rank->int)
:depends-on ((cantedraw/tests/macros ->>))
:compile-at :execute
(fail (rank->int nil))
(fail (rank->int 1738))
(fail (rank->int "not a rank"))
(fail (rank->int :still-not-a-rank))
;; Prove ranks are mapped to unique positive integers
(let ((res (->> (list :jack :queen :king :ace)
(append (range 2 11))
(mapcar #'rank->int))))
(true (every #'integerp res))
(true (every #'(lambda (x) (<= 0 x)) res))
(is equal (length res) (length (remove-duplicates res)))))
(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))