[inspect] Display identity hashcode for objects

Author: alexander-yakushev

CHANGELOG.md

@@ -2,6 +2,10 @@
 
 ## master (unreleased)
 
+* [#328](https://github.com/clojure-emacs/orchard/pull/328): Inspector: display identity hashcode for Java objects.
+
+## 0.31.1 (2025-03-19)
+
 * [#325](https://github.com/clojure-emacs/orchard/pull/325): Add `ex-str`-formatted message to analyzed causes.
 
 ## 0.31.0 (2025-03-14)

src/orchard/inspect.clj

@@ -640,10 +640,17 @@
                           (into (sorted-map)))
                      false)
                     (unindent))
-                inspector))]
+                inspector))
+            (render-ident-hashcode [inspector]
+              (let [code (System/identityHashCode obj)]
+                (-> inspector
+                    (render-indent "Identity hash code: " (str code) " "
+                                   (format "(0x%s)" (Integer/toHexString code)))
+                    (render-ln))))]
       (cond-> inspector
         true                           (render-labeled-value "Class" (class obj))
         true                           (render-labeled-value "Value" obj {:display-value printed})
+        true                           (render-ident-hashcode)
         (seq non-static-accessible)    (render-fields "Instance fields" non-static-accessible)
         (seq static-accessible)        (render-fields "Static fields" static-accessible)
         (seq non-static-nonaccessible) (render-fields "Private instance fields" non-static-nonaccessible)

test/orchard/inspect_test.clj

@@ -849,21 +849,25 @@
 
 (deftest inspect-java-object-test
   (testing "inspecting any Java object prints its fields"
-    (is (match? '("Class: "
-                  (:value "clojure.lang.TaggedLiteral" 0)
-                  (:newline)
-                  "Value: " (:value "#foo ()" 1)
-                  (:newline)
-                  (:newline)
-                  "--- Instance fields:"
-                  (:newline) "  " (:value "form" 2) " = " (:value "()" 3)
-                  (:newline) "  " (:value "tag" 4) " = " (:value "foo" 5)
-                  (:newline)
-                  (:newline)
-                  "--- Static fields:"
-                  (:newline) "  " (:value "FORM_KW" 6) " = " (:value ":form" 7)
-                  (:newline) "  " (:value "TAG_KW" 8) " = " (:value ":tag" 9)
-                  (:newline))
+    (is (match? (resolve-syms
+                 '("Class: "
+                   (:value "clojure.lang.TaggedLiteral" 0)
+                   (:newline)
+                   "Value: " (:value "#foo ()" 1)
+                   (:newline)
+                   "Identity hash code: "
+                   string? " " string?
+                   (:newline)
+                   (:newline)
+                   "--- Instance fields:"
+                   (:newline) "  " (:value "form" 2) " = " (:value "()" 3)
+                   (:newline) "  " (:value "tag" 4) " = " (:value "foo" 5)
+                   (:newline)
+                   (:newline)
+                   "--- Static fields:"
+                   (:newline) "  " (:value "FORM_KW" 6) " = " (:value ":form" 7)
+                   (:newline) "  " (:value "TAG_KW" 8) " = " (:value ":tag" 9)
+                   (:newline)))
                 (render (inspect (clojure.lang.TaggedLiteral/create 'foo ())))))))
 
 (deftest inspect-path
@@ -1357,13 +1361,17 @@
   (testing "inspecting eduction shows its object fields"
     (let [rendered (-> (eduction (range 10)) inspect render)]
       (testing "renders the header section"
-        (is (match? '("Class: "
-                      (:value "clojure.core.Eduction" 0)
-                      (:newline)
-                      "Value: "
-                      (:value "(0 1 2 3 4 ...)" 1)
-                      (:newline)
-                      (:newline))
+        (is (match? (resolve-syms
+                     '("Class: "
+                       (:value "clojure.core.Eduction" 0)
+                       (:newline)
+                       "Value: "
+                       (:value "(0 1 2 3 4 ...)" 1)
+                       (:newline)
+                       "Identity hash code: "
+                       string? " " string?
+                       (:newline)
+                       (:newline)))
                     (header rendered)))))
 
     (let [rendered (-> (eduction (range 100)) inspect render)]