{"messages":[{"content":"You are a constitutional council ranking individual git commits for ownership allocation.\n\nCompare these two commits. Decide which contributed more lasting value to the project.\n\nJudge substance, not spectacle:\n- Prefer correct, lasting design and real bugfixes over churn, formatting, renames, or generated noise.\n- Prefer clarity and necessity over sheer line count. A small precise change can beat a large diffuse one.\n- Do not favor a side merely because its patch is longer or noisier.\n- Weight what the change does for the project, not the contributor's name.\n\nReturn ONLY a JSON object: {\"winner\": \"A\" or \"B\", \"ratio\": \"N:M\", \"explanation\": \"...\"}\nThe explanation must cite concrete differences in the patches (1-3 sentences).\n\nSide A — contributor: tommy-mor\nSide A — commit message:\n[0728c06a] Vote pool: use display_path in hrefs; test all 45 pairs + assert ranking.\n\n- vote_compare_href and vote_pool_href now encode ~/… and -/… as their\n  short display forms (not the full https://slug.social/… storage URL),\n  matching what users see in the item display and DSL.\n- Rewrite browser_vote_pool test to vote all C(10,2)=45 pairs in the\n  pool, always preferring the alphabetically-earlier letter, then query\n  GetGardenRank and assert the 10 items form one component ranked a→j.\n\nCo-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>\n\nSide A — unified diff (full patch):\ndiff --git a/server/src/html/garden/vote.rs b/server/src/html/garden/vote.rs\nindex 2682cfcbd2f834b56459a02831aa225cffe67c58..d0ec78cd675eae284d056fb3b8eaf5cc853d6263 100644\n--- a/server/src/html/garden/vote.rs\n+++ b/server/src/html/garden/vote.rs\n@@ -234,8 +234,10 @@ pub(super) fn vote_compare_href(\n     thread_override: Option<&str>,\n     pool: Option<&ItemId>,\n ) -> String {\n-    let left_q = urlencoding::encode(left.as_str());\n-    let right_q = urlencoding::encode(right.as_str());\n+    let left_dp = left.display_path();\n+    let right_dp = right.display_path();\n+    let left_q = urlencoding::encode(&left_dp);\n+    let right_q = urlencoding::encode(&right_dp);\n     let mut base = format!(\n         \"{}/vote?left={}&right={}\",\n         nav.room_path_prefix_for_vote_compare(),\n@@ -246,16 +248,20 @@ pub(super) fn vote_compare_href(\n         base = format!(\"{}&thread={}\", base, urlencoding::encode(t));\n     }\n     if let Some(p) = pool {\n-        base = format!(\"{}&pool={}\", base, urlencoding::encode(p.as_str()));\n+        let pool_dp = p.display_path();\n+        base = format!(\"{}&pool={}\", base, urlencoding::encode(&pool_dp));\n     }\n     base\n }\n \n pub(super) fn vote_pool_href(nav: &ThreadNav, pool_item_str: &str) -> String {\n+    let display = ItemId::parse(pool_item_str)\n+        .map(|i| i.display_path())\n+        .unwrap_or_else(|| pool_item_str.to_string());\n     format!(\n         \"{}/vote?pool={}\",\n         nav.room_path_prefix_for_vote_compare(),\n-        urlencoding::encode(pool_item_str)\n+        urlencoding::encode(&display)\n     )\n }\n \ndiff --git a/test/browser_vote_pool.clj b/test/browser_vote_pool.clj\nindex d51f05db47dc3cb013e56e65f3a1edfbbcbd96ab..23d0bd80b02bd8b1b48853454bed02793296550e 100644\n--- a/test/browser_vote_pool.clj\n+++ b/test/browser_vote_pool.clj\n@@ -1,6 +1,8 @@\n (ns test.browser-vote-pool\n-  \"Pool-scoped voting: seed ~/pool/a-j, enter via /vote?pool=~/pool, follow\n-   the vote → next-pair → vote sequence until no next pair or 15 iterations.\"\n+  \"Pool-scoped voting: seed ~/pool/a-j (10 letters), follow the\n+   vote → next-pair sequence for all C(10,2)=45 pairs voting the\n+   alphabetically-earlier item each time, then assert the garden\n+   ranking is a…j in order.\"\n   (:require [babashka.fs :as fs]\n             [cheshire.core :as json]\n             [clojure.string :as str]\n@@ -11,26 +13,38 @@\n             [test.common :as common]\n             [test.oauth :as oauth]))\n \n+(def letters [\"a\" \"b\" \"c\" \"d\" \"e\" \"f\" \"g\" \"h\" \"i\" \"j\"])\n+(def total-pairs (/ (* (count letters) (dec (count letters))) 2)) ; C(10,2) = 45\n+\n (defn- wait-for-text [pg selector expected timeout-ms]\n   (let [deadline (+ (System/currentTimeMillis) timeout-ms)]\n     (loop []\n-      (let [text (locator/text-content (page/locator pg selector))]\n+      (let [text (try (locator/text-content (page/locator pg selector)) (catch Exception _ nil))]\n         (if (and (string? text) (str/includes? text expected))\n           true\n           (if (< (System/currentTimeMillis) deadline)\n-            (do (Thread/sleep 200) (recur))\n+            (do (Thread/sleep 150) (recur))\n             false))))))\n \n (defn- element-text [pg selector]\n-  (try (locator/text-content (page/locator pg selector)) (catch Exception _ nil)))\n+  (try (locator/text-content (page/locator pg selector)) (catch Exception _ \"\")))\n \n (defn- enc [^String s]\n   (java.net.URLEncoder/encode s \"UTF-8\"))\n \n-(def letters [\"a\" \"b\" \"c\" \"d\" \"e\" \"f\" \"g\" \"h\" \"i\" \"j\"])\n+;; Extract the terminal path segment, e.g. \"~/pool/c\" → \"c\".\n+(defn- leaf [path] (last (str/split path #\"/\")))\n+\n+;; Set the hidden ratio inputs so the alphabetically-earlier item wins.\n+(defn- set-ratio! [pg left-text right-text]\n+  (let [[rl rr] (if (neg? (compare (leaf left-text) (leaf right-text)))\n+                  [100 0]   ; left is earlier → prefer left\n+                  [0 100])] ; right is earlier → prefer right\n+    (page/evaluate pg (str \"document.getElementById('vote-ratio-left').value='\" rl \"'\"))\n+    (page/evaluate pg (str \"document.getElementById('vote-ratio-right').value='\" rr \"'\"))))\n \n (defn vote-pool-flow! []\n-  (println \"\\n━━━ browser vote pool (/vote?pool= seeds + follow next-pair sequence) ━━━\\n\")\n+  (println (str \"\\n━━━ browser vote pool (all \" total-pairs \" pairs → sorted ranking) ━━━\\n\"))\n \n   (common/letlocals\n    (bind build (common/run-cargo-build-release! [\"slugsocial-server\"]))\n@@ -54,7 +68,6 @@\n \n      (let [alice-token (oauth/fetch-bearer-token! base-url :username \"alice\")\n            thread-tag  \"browser-vote-pool\"\n-           ;; seed ~/pool/a through ~/pool/j as items with bodies\n            item-lines  (str/join \"\\n\"\n                                  (map (fn [l] (str \"~/pool/\" l \" {\" l \"}\")) letters))\n            raw         (str \"# \" thread-tag \"\\n\\n~/pool {root}\\n\" item-lines \"\\n\")\n@@ -77,51 +90,57 @@\n                (page/navigate pg (str base-url \"/login\"))\n                (is (wait-for-text pg \"body\" \"@alice\" 15000) \"alice session after login\")\n \n-               ;; Enter via pool URL — page picks first pair automatically.\n                (page/navigate pg pool-url)\n                (is (wait-for-text pg \"body.view-vote-compare\" \"compare\" 15000)\n                    \"pool entry: vote compare page loads\")\n \n-               ;; Verify the initial pair is within the pool.\n-               (let [pair-text (element-text pg \".vote-compare-pair\")]\n-                 (is (and (string? pair-text) (str/includes? pair-text \"~/pool/\"))\n-                     (str \"initial pair is within ~/pool: \" pair-text)))\n-\n-               ;; Follow vote → next-pair sequence up to 15 iterations.\n-               (let [votes-cast\n-                     (loop [i 0]\n-                       (if (>= i 15)\n-                         i\n-                         (let [explanation (str \"pool vote \" i \" reason\")]\n-                           (locator/fill (page/locator pg \"#vote-explain\") explanation)\n-                           (locator/click (page/locator pg \"#vote-compare-form button[type=submit]\"))\n-                           ;; Wait for edge history morph confirming the vote landed.\n-                           (if-not (wait-for-text pg \"ul.vote-edge-history\" explanation 20000)\n-                             (do (println \"  vote\" i \"history morph timed out — stopping\")\n-                                 i)\n-                             (let [has-next (wait-for-text pg \"[data-testid=\\\"vote-next-pair\\\"]\"\n-                                                           \"next pair\" 8000)]\n-                               (if-not has-next\n-                                 ;; \"no next pair\" — pool exhausted.\n-                                 (do (println \"  no next pair after vote\" i \" — pool exhausted\")\n-                                     (inc i))\n-                                 (do\n-                                   ;; Verify the pair on this page is within the pool before advancing.\n-                                   (let [pt (element-text pg \".vote-compare-pair\")]\n-                                     (is (and (string? pt) (str/includes? pt \"~/pool/\"))\n-                                         (str \"pair at vote \" i \" is within ~/pool: \" pt)))\n-                                   (locator/click (page/locator pg \"[data-testid=\\\"vote-next-pair\\\"]\"))\n-                                   ;; Wait for next pair to load.\n-                                   (wait-for-text pg \"body.view-vote-compare\" \"compare\" 10000)\n-                                   (recur (inc i)))))))))]\n-\n-                 (is (>= votes-cast 1) (str \"cast at least 1 vote, got: \" votes-cast))\n-                 (println (str \"  pool voting sequence complete: \" votes-cast \" vote(s) cast\")))\n-\n-               ;; After the sequence, the current page is still a pool-scoped vote page.\n-               (let [url (page/url pg)]\n-                 (is (str/includes? (or url \"\") \"/vote\")\n-                     (str \"still on /vote after sequence: \" url))))))))\n+               ;; Vote all 45 pairs, always preferring the alphabetically-earlier item.\n+               (loop [votes-cast 0]\n+                 (when (< votes-cast total-pairs)\n+                   (let [left-text  (element-text pg \".vote-compare-left code\")\n+                         right-text (element-text pg \".vote-compare-right code\")]\n+                     (is (str/includes? left-text \"~/pool/\")\n+                         (str \"vote \" votes-cast \": left is in pool: \" left-text))\n+                     (is (str/includes? right-text \"~/pool/\")\n+                         (str \"vote \" votes-cast \": right is in pool: \" right-text))\n+                     (set-ratio! pg left-text right-text)\n+                     (let [winner (if (neg? (compare (leaf left-text) (leaf right-text)))\n+                                    (leaf left-text) (leaf right-text))]\n+                       (locator/fill (page/locator pg \"#vote-explain\")\n+                                     (str \"prefer \" winner)))\n+                     (locator/click (page/locator pg \"#vote-compare-form button[type=submit]\"))\n+                     (is (wait-for-text pg \"ul.vote-edge-history\" \"prefer \" 20000)\n+                         (str \"vote \" votes-cast \" appears in edge history\"))\n+                     (when (< (inc votes-cast) total-pairs)\n+                       (is (wait-for-text pg \"[data-testid=\\\"vote-next-pair\\\"]\" \"next pair\" 8000)\n+                           (str \"next pair available after vote \" votes-cast))\n+                       (locator/click (page/locator pg \"[data-testid=\\\"vote-next-pair\\\"]\"))\n+                       (is (wait-for-text pg \"body.view-vote-compare\" \"compare\" 10000)\n+                           (str \"vote page loaded for pair \" (inc votes-cast))))\n+                     (recur (inc votes-cast)))))\n+\n+               (println (str \"  cast all \" total-pairs \" votes\"))\n+\n+               ;; Query the ranking via RPC and assert alphabetical order.\n+               (let [rank-resp  (oauth/http-post-json\n+                                 (str base-url \"/api/v0/rpc\")\n+                                 [{\"GetGardenRank\" {\"room\"        \"public\"\n+                                                    \"parent_path\" \"~/pool\"}}]\n+                                 :headers {\"Authorization\" (str \"Bearer \" alice-token)})\n+                     rank-json  (json/parse-string (:body rank-resp) true)\n+                     result     (get-in rank-json [:results 0 :result :GardenRank])\n+                     components (:components result)\n+                     unranked   (:unranked_items result)\n+                     ranked     (mapv :item (mapcat :ranking components))\n+                     ranked-leaves (mapv #(last (str/split % #\"[/~]+\")) ranked)]\n+                 (is (= 1 (count components))\n+                     (str \"all 10 items form one connected component (got \" (count components) \")\"))\n+                 (is (empty? unranked)\n+                     (str \"no unranked items (got \" (count unranked) \")\"))\n+                 (is (= 10 (count ranked))\n+                     (str \"10 items ranked (got \" (count ranked) \")\"))\n+                 (is (= letters ranked-leaves)\n+                     (str \"ranking is alphabetical a→j (got \" ranked-leaves \")\"))))))))\n \n      (finally\n        (when-some [s @!server] (common/kill-server s))\n\n\nSide B — contributor: tommy-mor\nSide B — commit message:\n[993d359c] Fix Reddit children import wiring and unranked child labels.\n\nListing imports attach posts directly under the subreddit without ensure_path\npulling comment-path segments in, and the ranking panel shows imported titles.\nUpdate integration tests for JS SSE morphs and children fetch.\n\nCo-authored-by: Cursor <cursoragent@cursor.com>\n\nSide B — unified diff (full patch):\ndiff --git a/server/src/api/ui_html.rs b/server/src/api/ui_html.rs\nindex d1defd28242fd2ca3b886adc91a7070bef75e653..e649a7d192feade465e19ce6187a829f6ec74372 100644\n--- a/server/src/api/ui_html.rs\n+++ b/server/src/api/ui_html.rs\n@@ -58,7 +58,7 @@ pub async fn post_ui_html(\n             let tree = state.tree.read().await;\n             let empty = crate::reducer::NodeState::default();\n             let node = tree.get(&parent).unwrap_or(&empty);\n-            let panel = ranking_panel(&parent, node);\n+            let panel = ranking_panel(&parent, node, &tree);\n             JsBuilder::new()\n                 .morph_selector(\"#ranking-panel\", panel)\n                 .into_response()\ndiff --git a/server/src/fetch/mod.rs b/server/src/fetch/mod.rs\nindex 0177bb161cea1b72a100b52efdfc5e710271c9eb..35f968c21c69ca557bab7951413e3cfbbccfebfd 100644\n--- a/server/src/fetch/mod.rs\n+++ b/server/src/fetch/mod.rs\n@@ -107,7 +107,7 @@ pub fn fetch_entity_stream(\n                 let mut b = JsBuilder::new()\n                     .morph_selector(\"#entity-section\", html::entity_section(&id, node, false));\n                 if kind == FetchKind::Children {\n-                    b = b.morph_selector(\"#ranking-panel\", ranking_panel(&id, node));\n+                    b = b.morph_selector(\"#ranking-panel\", ranking_panel(&id, node, &tree));\n                 }\n                 yield Ok(js_event(b.build()));\n             }\ndiff --git a/server/src/html/mod.rs b/server/src/html/mod.rs\nindex 27ce9118c73ec5643e04363ab1a36cf5da6101bf..e88cc43ddc9d8100f7994be6f5960ec4d8f22c55 100644\n--- a/server/src/html/mod.rs\n+++ b/server/src/html/mod.rs\n@@ -15,7 +15,7 @@ use crate::{\n     ranking::{\n         connected_components_from_voted_pairs, ranked_items_subset, RankedItem, MAX_ITERS, TOL,\n     },\n-    reducer::NodeState,\n+    reducer::{GlobalTree, NodeState},\n     state::AppState,\n     ui_action::UI_RPC_FIELD,\n };\n@@ -182,8 +182,15 @@ fn display_label(id: &ItemId) -> String {\n         .to_string()\n }\n \n+fn child_label(tree: &GlobalTree, id: &ItemId) -> String {\n+    tree.get(id)\n+        .and_then(|n| n.data.as_ref())\n+        .map(|d| d.title.clone())\n+        .unwrap_or_else(|| display_label(id))\n+}\n+\n /// Plain (unscored) list of children that have no votes yet.\n-fn unranked_list(label: &str, items: &[ItemId]) -> Markup {\n+fn unranked_list(label: &str, items: &[ItemId], tree: &GlobalTree) -> Markup {\n     html! {\n         @if !items.is_empty() {\n             h3 class=\"rank-heading muted small\" { (label) }\n@@ -191,7 +198,7 @@ fn unranked_list(label: &str, items: &[ItemId]) -> Markup {\n                 @for it in items {\n                     li {\n                         a href=(item_href(it)) {\n-                            strong { (display_label(it)) }\n+                            strong { (child_label(tree, it)) }\n                         }\n                     }\n                 }\n@@ -200,7 +207,7 @@ fn unranked_list(label: &str, items: &[ItemId]) -> Markup {\n     }\n }\n \n-pub fn ranking_panel(item: &ItemId, node: &NodeState) -> Markup {\n+pub fn ranking_panel(item: &ItemId, node: &NodeState, tree: &GlobalTree) -> Markup {\n     let group = &node.local_ranking;\n     let n = group.idx_to_item.len();\n     let (comps, _isolates) =\n@@ -248,7 +255,7 @@ pub fn ranking_panel(item: &ItemId, node: &NodeState) -> Markup {\n                     @let label = if multi { format!(\"Ranking group {}\", gi + 1) } else { \"Ranking\".to_string() };\n                     (rank_list(&label, ranked, 1))\n                 }\n-                (unranked_list(\"Unranked\", &unranked))\n+                (unranked_list(\"Unranked\", &unranked, tree))\n             }\n         }\n     }\n@@ -297,7 +304,7 @@ async fn item_page(state: AppState, uri: Uri, item: ItemId) -> Markup {\n         (input_panel(\"\", None))\n         (breadcrumb_path(&item))\n         (entity_section(&item, node, false))\n-        (ranking_panel(&item, node))\n+        (ranking_panel(&item, node, &tree))\n     };\n     layout(\"sorter2\", body, views)\n }\ndiff --git a/server/src/reddit.rs b/server/src/reddit.rs\nindex a0eb688709478ee0185b953b41a5d26cc354764d..69d979bc7e4a1cb078f70114dc539bdc1986b574 100644\n--- a/server/src/reddit.rs\n+++ b/server/src/reddit.rs\n@@ -300,9 +300,16 @@ async fn reddit_worker(\n                     }\n                     {\n                         let mut tree = tree.write().await;\n-                        apply_entity_import(&mut tree, &child_id, child_payload);\n                         if kind == FetchKind::Children {\n-                            tree.link_child(&fetch_id, &child_id);\n+                            let view = entity_view_from_payload(&child_id, &child_payload);\n+                            tree.apply_entity_under_parent(\n+                                &fetch_id,\n+                                &child_id,\n+                                child_payload,\n+                                view,\n+                            );\n+                        } else {\n+                            apply_entity_import(&mut tree, &child_id, child_payload);\n                         }\n                     }\n                     written += 1;\ndiff --git a/server/src/reducer.rs b/server/src/reducer.rs\nindex a36cd5c9287d61536f9f4a3f6b0df2342388857a..4e42d0369dab50bb2f8ca664aa69b628292f6c07 100644\n--- a/server/src/reducer.rs\n+++ b/server/src/reducer.rs\n@@ -209,14 +209,24 @@ impl GlobalTree {\n         }\n     }\n \n-    /// Directly attach `child` under `parent`, bypassing path-based nesting.\n-    /// Used for imported listings (e.g. a subreddit's posts) so they show up\n-    /// as children of the subreddit rather than a deep `…/comments/<id>` path.\n-    pub fn link_child(&mut self, parent: &ItemId, child: &ItemId) {\n+    /// Import entity data for `id` and attach it as a direct child of `parent`\n+    /// without running [`Self::ensure_path`] on `id` (avoids Reddit `/comments/`\n+    /// parent rules pulling intermediate path segments into the subreddit).\n+    pub fn apply_entity_under_parent(\n+        &mut self,\n+        parent: &ItemId,\n+        id: &ItemId,\n+        payload: Value,\n+        view: Option<EntityData>,\n+    ) {\n         self.ensure_path(parent);\n-        self.ensure_path(child);\n+        self.ensure_node(id);\n+        if let Some(node) = self.nodes.get_mut(id) {\n+            node.entity_raw = Some(payload);\n+            node.data = view;\n+        }\n         if let Some(p) = self.nodes.get_mut(parent) {\n-            p.children.insert(child.clone());\n+            p.children.insert(id.clone());\n         }\n     }\n }\ndiff --git a/test/reddit_import.clj b/test/reddit_import.clj\nindex 84cbdcf7965e50290313cbce2243a16b583d2097..45a2a19f20799d77e84d8aa64735ab5e7e45f97c 100644\n--- a/test/reddit_import.clj\n+++ b/test/reddit_import.clj\n@@ -67,6 +67,36 @@\n           (do (Thread/sleep 200) (recur))\n           false)))))\n \n+(defn- run-reddit-fetch-assertions [app-base data-dir]\n+  (let [browse-url (str app-base \"/~/https://reddit.com/r/rust\")\n+        log-path (str data-dir \"/events.jsonl\")\n+        before (:out (process/shell {:out :string :err :string}\n+                                    \"curl\" \"-sf\" browse-url))]\n+    (is (str/includes? before \"Fetch from Reddit\"))\n+    (is (not (str/includes? before \"The Rust Programming Language\")))\n+    (let [sse (curl-fetch-ui-sse app-base \"reddit.com/r/rust\" \"self\")]\n+      (is (zero? (:exit sse)) \"POST /ui fetch_entity (self) SSE succeeds\")\n+      (is (str/includes? (:out sse) \"Idiomorph.morph\"))\n+      (is (str/includes? (:out sse) \"The Rust Programming Language\"))\n+      (is (wait-event-log log-path 2000) \"event log written\"))\n+    (let [after (:out (process/shell {:out :string :err :string}\n+                                     \"curl\" \"-sf\" browse-url))\n+          log (slurp (io/file log-path))]\n+      (is (str/includes? after \"The Rust Programming Language\"))\n+      (is (str/includes? log \"\\\"type\\\":\\\"entity_imported\\\"\"))\n+      (is (str/includes? log \"\\\"subscribers\\\":350000\"))\n+      (is (str/includes? log \"\\\"display_name\\\":\\\"rust\\\"\")))\n+    (let [children-sse (curl-fetch-ui-sse app-base \"reddit.com/r/rust\" \"children\")]\n+      (is (zero? (:exit children-sse)) \"POST /ui fetch_entity (children) SSE succeeds\")\n+      (is (str/includes? (:out children-sse) \"Idiomorph.morph\"))\n+      (is (str/includes? (:out children-sse) \"Announcing Rust 1.99\")))\n+    (let [after-children (:out (process/shell {:out :string :err :string}\n+                                              \"curl\" \"-sf\" browse-url))\n+          log2 (slurp (io/file log-path))]\n+      (is (str/includes? after-children \"Announcing Rust 1.99\"))\n+      (is (str/includes? after-children \"Unranked\"))\n+      (is (str/includes? log2 \"announcing_rust_199\")))))\n+\n (deftest reddit-fetch-via-mock-api\n   (testing \"Fetch more queues import; event log stores full payload; page shows title\"\n     (let [root (repo-root)\n@@ -102,24 +132,7 @@\n                                     bin)]\n           (try\n             (is (wait-health app-base 20000) \"app healthz\")\n-            (let [browse-url (str app-base \"/~/https://reddit.com/r/rust\")\n-                  before (:out (process/shell {:out :string :err :string}\n-                                              \"curl\" \"-sf\" browse-url))]\n-              (is (str/includes? before \"Fetch from Reddit\"))\n-              (is (not (str/includes? before \"The Rust Programming Language\")))\n-              (let [log-path (str data-dir \"/events.jsonl\")\n-                    sse (curl-fetch-ui-sse app-base \"reddit.com/r/rust\")]\n-                (is (zero? (:exit sse)) \"POST /ui fetch_entity SSE succeeds\")\n-                (is (str/includes? (:out sse) \"event: complete\"))\n-                (is (str/includes? (:out sse) \"The Rust Programming Language\"))\n-                (is (wait-event-log log-path 2000) \"event log written\")\n-                (let [after (:out (process/shell {:out :string :err :string}\n-                                                 \"curl\" \"-sf\" browse-url))\n-                      log (slurp (io/file log-path))]\n-                  (is (str/includes? after \"The Rust Programming Language\"))\n-                  (is (str/includes? log \"\\\"type\\\":\\\"entity_imported\\\"\"))\n-                  (is (str/includes? log \"\\\"subscribers\\\":350000\"))\n-                  (is (str/includes? log \"\\\"display_name\\\":\\\"rust\\\"\")))))\n+            (run-reddit-fetch-assertions app-base data-dir)\n             (finally\n               (process/destroy proc))))\n         (finally\ndiff --git a/test/smoke.clj b/test/smoke.clj\nindex 11887c48282088e140d823a88ba616f6325835b3..ce9f958c84b9a89ae55e215ab519f1df6435e24b 100644\n--- a/test/smoke.clj\n+++ b/test/smoke.clj\n@@ -49,7 +49,7 @@\n           (is (wait-health base 15000) \"server responds to /healthz\")\n           (let [home (:out (process/shell {:out :string :err :string}\n                                          \"curl\" \"-sf\" (str base \"/\")))]\n-            (is (str/includes? home \"vote-panel\"))\n+            (is (str/includes? home \"entity-section\"))\n             (is (str/includes? home \"ranking-panel\"))\n             (is (str/includes? home \"parser-panel\"))\n             (is (str/includes? home \"__rpc__\")))\n","role":"user"}],"model":"openai/gpt-chat-latest"}