diff --git a/test/rustint/core_test.clj b/test/rustint/core_test.clj
index ca0443d..2cc839d 100644
--- a/test/rustint/core_test.clj
+++ b/test/rustint/core_test.clj
@@ -61,3 +61,9 @@
     (is (= (pasar-a-int [10]) [10]))
   )
 )
+
+(deftest compatibles-test01
+  (testing "Test 01 compatibles?"
+    (is (= (compatibles? 'i64 5) true))
+  )
+)