{"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[5350388a] Add pool-scoped voting: /vote?pool=<parent> picks pairs from children.\n\n- /vote now accepts an optional `pool` param (parent item path). When\n  provided without left/right, it picks the first unvoted pair from the\n  pool's children. When provided alongside left/right, it constrains\n  \"next pair\" navigation to siblings within the pool.\n- \"vote on children\" button appears on item pages with ≥2 children,\n  linking to /vote?pool=<item>.\n- Pool is threaded through VoteComparePost → success JS so in-page\n  morph after voting keeps the pool context for next-pair navigation.\n\nCo-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>\n\nSide A — unified diff (full patch):\ndiff --git a/server/src/api/ui_html.rs b/server/src/api/ui_html.rs\nindex 5faa642451d69555cb391974beb0ad22c9355c8c..b79efdb4d52bd445a67f38cbfd61d3507d2b3014 100644\n--- a/server/src/api/ui_html.rs\n+++ b/server/src/api/ui_html.rs\n@@ -193,6 +193,7 @@ async fn dispatch_ui_action(\n             ratio_right,\n             explanation,\n             next,\n+            pool,\n             form_action,\n         } => {\n             if form_action != \"/ui\" {\n@@ -239,6 +240,9 @@ async fn dispatch_ui_action(\n                         .into_response();\n                 }\n             };\n+            let pool_id = pool.as_deref().and_then(|p| {\n+                crate::path_types::ItemId::parse(p.trim()).map(|i| i.normalized_storage())\n+            });\n             let mut rl = ratio_left.trim().parse::<i32>().unwrap_or(0).max(0);\n             let mut rr = ratio_right.trim().parse::<i32>().unwrap_or(0).max(0);\n             if rl == 0 && rr == 0 {\n@@ -294,6 +298,7 @@ async fn dispatch_ui_action(\n                         &thread_tag,\n                         &left_id,\n                         &right_id,\n+                        pool_id.as_ref(),\n                         pid.as_str(),\n                         post_index,\n                     )\ndiff --git a/server/src/html/garden/pin.rs b/server/src/html/garden/pin.rs\nindex 5865cfdbc06aeb6555c97380e25591fae6b3d125..1820d7fe7ee167ecbf5ad5124f23b2ab92ffb01f 100644\n--- a/server/src/html/garden/pin.rs\n+++ b/server/src/html/garden/pin.rs\n@@ -79,7 +79,7 @@ pub(super) fn ont_pin_vote_controls(\n                         }\n                     }\n                 } @else {\n-                    a class=\"ont-vote-compare-btn\" href=(vote_compare_href(nav, pi, &current, None)) title=\"Compare and vote\" {\n+                    a class=\"ont-vote-compare-btn\" href=(vote_compare_href(nav, pi, &current, None, None)) title=\"Compare and vote\" {\n                         span class=\"ont-vote-glyph\" aria-hidden=\"true\" { \"⚖\" }\n                         span { \"vote\" }\n                     }\n@@ -121,7 +121,7 @@ pub(super) fn child_row_pin_or_vote(\n                         if nv == 1 { \"\" } else { \"s\" },\n                     );\n                     @let aria = format!(\"Vote; {} pairwise {}\", nv, if nv == 1 { \"vote\" } else { \"votes\" });\n-                    a class=\"ont-garden-vote-ico\" href=(vote_compare_href(nav, pi, row_item, None)) title=(tip) aria-label=(aria) {\n+                    a class=\"ont-garden-vote-ico\" href=(vote_compare_href(nav, pi, row_item, None, None)) title=(tip) aria-label=(aria) {\n                         span class=\"ont-garden-vote-glyph\" aria-hidden=\"true\" { \"⚖\" }\n                         span class=\"ont-garden-vote-count\" { (format!(\"{}\", nv)) }\n                     }\ndiff --git a/server/src/html/garden/render.rs b/server/src/html/garden/render.rs\nindex 5c3986ca36902f6c9019a4b5590f0b3b9d2cb4ff..bd8cbce059ee789de6e8dc9b6f69f54beee2f994 100644\n--- a/server/src/html/garden/render.rs\n+++ b/server/src/html/garden/render.rs\n@@ -29,6 +29,7 @@ use super::{\n     item::{child_depth_from_uri, item_code_label, item_display_path, item_href},\n     item_page::{build_item_page_view_model, sibling_nav_markup},\n     pin::{child_row_pin_or_vote, ont_pin_vote_controls, pinned_item_from_jar},\n+    vote::vote_pool_href,\n };\n \n pub(super) async fn render_scope_view(\n@@ -186,12 +187,21 @@ pub(super) async fn render_scope_view(\n             }\n \n             section class=\"ont-tab-panel ont-tab-panel-children\" {\n+                @let total_children = model.child_rankings.component_rankings\n+                    .iter().map(|c| c.ranked.len()).sum::<usize>()\n+                    + model.child_rankings.unranked_items.len();\n                 h3 {\n                     \"ranked child groups\"\n                     @if model.child_depth > 1 {\n                         \" \"\n                         span class=\"muted\" { (format!(\"(depth {})\", model.child_depth)) }\n                     }\n+                    @if total_children >= 2 {\n+                        \" \"\n+                        a class=\"ont-vote-children-btn\" href=(vote_pool_href(&nav, &model.item)) {\n+                            \"vote on children\"\n+                        }\n+                    }\n                 }\n                 @if model.child_rankings.component_rankings.is_empty() {\n                     p class=\"muted\" { \"no voted pairs yet in this scope\" }\ndiff --git a/server/src/html/garden/tests.rs b/server/src/html/garden/tests.rs\nindex 6900a6795bcde866a176722149d6378e5127b4c3..c2036fca7752aef63d260e36cfe9649f63b5c550 100644\n--- a/server/src/html/garden/tests.rs\n+++ b/server/src/html/garden/tests.rs\n@@ -105,7 +105,7 @@ fn suggest_next_vote_pair_prefers_unvoted_sibling_pair() {\n     let content = content_for_garden_view(&reduced, &ScopeId::Public);\n     let a = ItemId::parse(\"~/topic/a\").unwrap().normalized_storage();\n     let b = ItemId::parse(\"~/topic/b\").unwrap().normalized_storage();\n-    let next = suggest_next_vote_pair(content, &a, &b).expect(\"next sibling pair\");\n+    let next = suggest_next_vote_pair(content, &a, &b, None).expect(\"next sibling pair\");\n     assert_ne!(\n         canonical_edge_items(&next.0, &next.1),\n         canonical_edge_items(&a, &b)\ndiff --git a/server/src/html/garden/vote.rs b/server/src/html/garden/vote.rs\nindex 1d7fc8aa7436bfa9c1186dfd940a8d751ab7e088..2682cfcbd2f834b56459a02831aa225cffe67c58 100644\n--- a/server/src/html/garden/vote.rs\n+++ b/server/src/html/garden/vote.rs\n@@ -211,14 +211,15 @@ pub(crate) async fn vote_compare_post_success_js(\n     _thread_tag: &str,\n     left: &ItemId,\n     right: &ItemId,\n+    pool: Option<&ItemId>,\n     _post_id: &str,\n     _post_idx: Option<usize>,\n ) -> String {\n     let reduced = state.reduced.read().await;\n     let content = content_for_garden_view(&reduced, &nav.scope());\n     let edge_history = vote_edge_history_markup(content, left, right);\n-    let next_pair = suggest_next_vote_pair(content, left, right);\n-    let nav_markup = vote_compare_nav_markup(nav, next_pair.as_ref());\n+    let next_pair = suggest_next_vote_pair(content, left, right, pool);\n+    let nav_markup = vote_compare_nav_markup(nav, next_pair.as_ref(), pool);\n     drop(reduced);\n     JsBuilder::new()\n         .morph_inner_selector(\"#vote-edge-history-region\", edge_history)\n@@ -231,27 +232,39 @@ pub(super) fn vote_compare_href(\n     left: &ItemId,\n     right: &ItemId,\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 base = format!(\n+    let mut base = format!(\n         \"{}/vote?left={}&right={}\",\n         nav.room_path_prefix_for_vote_compare(),\n         left_q,\n         right_q\n     );\n     if let Some(t) = thread_override.filter(|s| !s.is_empty()) {\n-        format!(\"{}&thread={}\", base, urlencoding::encode(t))\n-    } else {\n-        base\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     }\n+    base\n+}\n+\n+pub(super) fn vote_pool_href(nav: &ThreadNav, pool_item_str: &str) -> String {\n+    format!(\n+        \"{}/vote?pool={}\",\n+        nav.room_path_prefix_for_vote_compare(),\n+        urlencoding::encode(pool_item_str)\n+    )\n }\n \n fn vote_compare_nav_markup(\n     nav: &ThreadNav,\n     next_pair: Option<&(ItemId, ItemId)>,\n+    pool: Option<&ItemId>,\n ) -> maud::Markup {\n-    let next_pair_href = next_pair.map(|(nl, nr)| vote_compare_href(nav, nl, nr, None));\n+    let next_pair_href = next_pair.map(|(nl, nr)| vote_compare_href(nav, nl, nr, None, pool));\n     html! {\n         div class=\"vote-compare-nav\" {\n             @if let Some(href) = &next_pair_href {\n@@ -267,8 +280,15 @@ pub(super) fn suggest_next_vote_pair(\n     content: &ContentState,\n     current_left: &ItemId,\n     current_right: &ItemId,\n+    pool_parent: Option<&ItemId>,\n ) -> Option<(ItemId, ItemId)> {\n-    let pool: Vec<ItemId> = if current_left.parent().as_ref().map(|p| p.as_str())\n+    let pool: Vec<ItemId> = if let Some(parent) = pool_parent {\n+        content\n+            .item_children\n+            .get(parent)\n+            .map(|s| s.iter().cloned().collect())\n+            .unwrap_or_default()\n+    } else if current_left.parent().as_ref().map(|p| p.as_str())\n         == current_right.parent().as_ref().map(|p| p.as_str())\n     {\n         current_left\n@@ -322,10 +342,14 @@ pub(super) fn vote_compare_item_card(\n }\n #[derive(Debug, Deserialize)]\n pub struct VoteCompareQuery {\n-    pub left: String,\n-    pub right: String,\n+    #[serde(default)]\n+    pub left: Option<String>,\n+    #[serde(default)]\n+    pub right: Option<String>,\n     #[serde(default)]\n     pub thread: Option<String>,\n+    #[serde(default)]\n+    pub pool: Option<String>,\n }\n \n /// Public pairwise vote UI — `/vote?left=&right=&thread=`.\n@@ -376,17 +400,53 @@ async fn vote_compare_inner(\n     jar: CookieJar,\n     uri: Uri,\n ) -> axum::response::Response {\n-    let left = match ItemId::parse(q.left.trim()) {\n-        Some(i) => i.normalized_storage(),\n-        None => return (StatusCode::NOT_FOUND, \"bad left item\").into_response(),\n+    let pool_id: Option<ItemId> = match q.pool.as_deref() {\n+        Some(p) => match ItemId::parse(p.trim()) {\n+            Some(i) => Some(i.normalized_storage()),\n+            None => return (StatusCode::BAD_REQUEST, \"bad pool item\").into_response(),\n+        },\n+        None => None,\n     };\n-    let right = match ItemId::parse(q.right.trim()) {\n-        Some(i) => i.normalized_storage(),\n-        None => return (StatusCode::NOT_FOUND, \"bad right item\").into_response(),\n+\n+    let (left, right) = match (q.left.as_deref(), q.right.as_deref()) {\n+        (Some(l), Some(r)) => {\n+            let left = match ItemId::parse(l.trim()) {\n+                Some(i) => i.normalized_storage(),\n+                None => return (StatusCode::NOT_FOUND, \"bad left item\").into_response(),\n+            };\n+            let right = match ItemId::parse(r.trim()) {\n+                Some(i) => i.normalized_storage(),\n+                None => return (StatusCode::NOT_FOUND, \"bad right item\").into_response(),\n+            };\n+            if left == right {\n+                return (StatusCode::BAD_REQUEST, \"items must differ\").into_response();\n+            }\n+            (left, right)\n+        }\n+        (None, None) => {\n+            let Some(pool) = pool_id.as_ref() else {\n+                return (StatusCode::BAD_REQUEST, \"provide left+right or pool\").into_response();\n+            };\n+            let reduced = state.reduced.read().await;\n+            let content = content_for_garden_view(&reduced, &nav.scope());\n+            let children: Vec<ItemId> = content\n+                .item_children\n+                .get(pool)\n+                .map(|s| s.iter().cloned().collect())\n+                .unwrap_or_default();\n+            if children.len() < 2 {\n+                drop(reduced);\n+                return (StatusCode::BAD_REQUEST, \"pool has fewer than 2 children to compare\").into_response();\n+            }\n+            let pair = suggest_next_pair_in_pool(&content.ranking_group, &children, None);\n+            drop(reduced);\n+            match pair {\n+                Some(p) => p,\n+                None => return (StatusCode::BAD_REQUEST, \"no pairs available in pool\").into_response(),\n+            }\n+        }\n+        _ => return (StatusCode::BAD_REQUEST, \"provide both left and right, or just pool\").into_response(),\n     };\n-    if left == right {\n-        return (StatusCode::BAD_REQUEST, \"items must differ\").into_response();\n-    }\n \n     let reduced = state.reduced.read().await;\n     let content = content_for_garden_view(&reduced, &nav.scope());\n@@ -409,7 +469,7 @@ async fn vote_compare_inner(\n     let left_body = content.item_bodies.get(&left).cloned();\n     let right_body = content.item_bodies.get(&right).cloned();\n     let item_bodies_for_cards = content.item_bodies.clone();\n-    let next_pair = suggest_next_vote_pair(content, &left, &right);\n+    let next_pair = suggest_next_vote_pair(content, &left, &right, pool_id.as_ref());\n     drop(reduced);\n \n     let title = format!(\n@@ -432,6 +492,7 @@ async fn vote_compare_inner(\n         \"ratio_right\": {\"$form\": \"ratio_right\"},\n         \"explanation\": {\"$form\": \"explanation\"},\n         \"next\": next_path,\n+        \"pool\": pool_id.as_ref().map(|p| p.as_str()),\n         \"form_action\": \"/ui\",\n     }))\n     .expect(\"vote compare rpc json\");\n@@ -456,7 +517,7 @@ async fn vote_compare_inner(\n                 Some(&item_bodies_for_cards),\n             ))\n         }\n-        (vote_compare_nav_markup(&nav, next_pair.as_ref()))\n+        (vote_compare_nav_markup(&nav, next_pair.as_ref(), pool_id.as_ref()))\n         div id=\"vote-edge-history-region\" {\n             (edge_history)\n         }\ndiff --git a/server/src/html/ui_action.rs b/server/src/html/ui_action.rs\nindex dd5294202569454acf9f41b458718700bbf96f39..2589a2cc00bb7b18cd19ebcbb938083122d6921d 100644\n--- a/server/src/html/ui_action.rs\n+++ b/server/src/html/ui_action.rs\n@@ -50,6 +50,9 @@ pub enum HtmlUiAction {\n         explanation: String,\n         /// Same-origin path after successful post (JS redirect).\n         next: String,\n+        /// Pool parent item path, if the vote was initiated from a pool URL.\n+        #[serde(default)]\n+        pool: Option<String>,\n         #[serde(default = \"default_ui_form_action\")]\n         form_action: String,\n     },\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"}