From ac8860e1d71188badfb63c7fa678f1502455723d Mon Sep 17 00:00:00 2001
From: Aryadev Chavali <aryadev@aryadevchavali.com>
Date: Mon, 24 Feb 2025 23:38:11 +0000
Subject: Implement test for rank->int and int->rank being complete inverses

---
 tests/model.lisp | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'tests')

diff --git a/tests/model.lisp b/tests/model.lisp
index 316e920..359c6ee 100644
--- a/tests/model.lisp
+++ b/tests/model.lisp
@@ -59,6 +59,16 @@
     (true (every #'(lambda (x) (<= 0 x)) 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)
   :depends-on ((cantedraw/tests/macros ->>)
                (cantedraw/tests/functions rev-map))
-- 
cgit v1.2.3-13-gbd6f