[inspector] Don't presume all sequential? objects are paged

clojure-emacs · Aug 2, 2023 · 615f61a · 615f61a
1 parent cf95907
commit 615f61a
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 2 deletions.
diff --git a/src/orchard/inspect.clj b/src/orchard/inspect.clj
@@ -379,8 +379,10 @@
         ;; possibly infinite
         :else Integer/MAX_VALUE))
 
+(declare known-types)
+
 (defn- render-page-info [{:keys [current-page page-size] :as inspector} obj]
-  (if-not (sequential? obj)
+  (if-not (#{:coll :array} (known-types inspector obj))
     inspector
     (let [last-page (last-page inspector obj)
           paginate? (not= last-page 0)]

diff --git a/test/orchard/inspect_test.clj b/test/orchard/inspect_test.clj
@@ -910,7 +910,12 @@
                       (:value "\"(0 1 2 3 4 5 6 7 8 9)\"" 1)
                       (:newline)
                       (:newline))
-                    (header rendered)))))))
+                    (header rendered)))))
+
+    (let [rendered (-> (eduction (range 100)) inspect render)]
+      (testing "doesn't render page info section"
+        (is (match? '()
+                    (section "Page Info" rendered)))))))
 
 (deftest tap-current-value
   (testing "tap> current value")