{"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[aa0b175c] Enforce vote ratio constraints: both sides ≥ 1, max 100.\n\nZero on either side produces no valid graph edge; ratios above 100\nadd no meaningful signal. Enforce in the DSL parser, browser POST\nhandler, and reducer guard. Update browser pool test to use 99:1\ninstead of 100:0. Add unit and integration regression tests.\n\nCo-Authored-By: Claude Sonnet 4.6 \n\nSide A — unified diff (full patch):\ndiff --git a/server/src/api/ui_html.rs b/server/src/api/ui_html.rs\nindex b79efdb4d52bd445a67f38cbfd61d3507d2b3014..bc8a0130b434cc7880a4bf16eb9237080c4aa383 100644\n--- a/server/src/api/ui_html.rs\n+++ b/server/src/api/ui_html.rs\n@@ -243,11 +243,23 @@ async fn dispatch_ui_action(\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::().unwrap_or(0).max(0);\n- let mut rr = ratio_right.trim().parse::().unwrap_or(0).max(0);\n- if rl == 0 && rr == 0 {\n- rl = 1;\n- rr = 1;\n+ let rl = ratio_left.trim().parse::().unwrap_or(0).max(0);\n+ let rr = ratio_right.trim().parse::().unwrap_or(0).max(0);\n+ if rl == 0 || rr == 0 {\n+ return form_js_error(\n+ err_tgt.as_ref(),\n+ \"invalid ratio\",\n+ \"Both ratio sides must be ≥ 1.\",\n+ )\n+ .into_response();\n+ }\n+ if rl > 100 || rr > 100 {\n+ return form_js_error(\n+ err_tgt.as_ref(),\n+ \"invalid ratio\",\n+ \"Ratio sides must be ≤ 100.\",\n+ )\n+ .into_response();\n }\n \n let text = format!(\ndiff --git a/server/src/dsl.rs b/server/src/dsl.rs\nindex faa8aac6616bc6ea2b102d08ae999c01a716ef6e..338feacc579a92bed291867cc0f2f62462737462 100644\n--- a/server/src/dsl.rs\n+++ b/server/src/dsl.rs\n@@ -545,9 +545,14 @@ fn parse_block_prefixed_statement(\n \n let ((ratio_left, ratio_right), k) = parse_comparison_at(s, i)\n .ok_or_else(|| DslError::Parse(format!(\"invalid comparison near: {}\", &s[i..])))?;\n- if ratio_left == 0 && ratio_right == 0 {\n+ if ratio_left == 0 || ratio_right == 0 {\n return Err(DslError::Parse(\n- \"vote ratio 0:0 is invalid; use 1:1 for a tie or omit the vote\".to_string(),\n+ \"vote ratio sides must be ≥ 1; use 1:1 for a tie or omit the vote\".to_string(),\n+ ));\n+ }\n+ if ratio_left > 100 || ratio_right > 100 {\n+ return Err(DslError::Parse(\n+ \"vote ratio sides must be ≤ 100\".to_string(),\n ));\n }\n i = skip_ws(s, k);\n@@ -929,11 +934,50 @@ mod tests {\n let err = parse_full(\"{tie placeholder}\\n~/a 0:0 ~/b\").unwrap_err();\n let DslError::Parse(msg) = err;\n assert!(\n- msg.contains(\"0:0\"),\n- \"expected 0:0 rejection message, got: {msg}\"\n+ msg.contains(\"≥ 1\"),\n+ \"expected zero-side rejection message, got: {msg}\"\n );\n }\n \n+ #[test]\n+ fn parse_vote_rejects_left_zero_ratio() {\n+ let err = parse_full(\"{prefer b}\\n~/a 0:5 ~/b\").unwrap_err();\n+ let DslError::Parse(msg) = err;\n+ assert!(\n+ msg.contains(\"≥ 1\"),\n+ \"expected zero-side rejection message, got: {msg}\"\n+ );\n+ }\n+\n+ #[test]\n+ fn parse_vote_rejects_right_zero_ratio() {\n+ let err = parse_full(\"{prefer a}\\n~/a 5:0 ~/b\").unwrap_err();\n+ let DslError::Parse(msg) = err;\n+ assert!(\n+ msg.contains(\"≥ 1\"),\n+ \"expected zero-side rejection message, got: {msg}\"\n+ );\n+ }\n+\n+ #[test]\n+ fn parse_vote_rejects_over_max_ratio() {\n+ let err = parse_full(\"{prefer a strongly}\\n~/a 101:1 ~/b\").unwrap_err();\n+ let DslError::Parse(msg) = err;\n+ assert!(\n+ msg.contains(\"≤ 100\"),\n+ \"expected max ratio rejection message, got: {msg}\"\n+ );\n+ }\n+\n+ #[test]\n+ fn parse_vote_accepts_max_ratio() {\n+ let doc = parse_full(\"{prefer a}\\n~/a 100:1 ~/b\").unwrap();\n+ assert!(matches!(\n+ doc.statements.last(),\n+ Some(Stmt::Vote { ratio_left: 100, ratio_right: 1, .. })\n+ ));\n+ }\n+\n #[test]\n fn parse_full_interleaves_prose() {\n let input = \"hello\\n#tag\\nworld\";\ndiff --git a/server/src/reducer.rs b/server/src/reducer.rs\nindex e949e8e092297eedd5c20c131f16ef0121f329b3..6841d35cfc9de2389f340a22b8a45acb335e36c3 100644\n--- a/server/src/reducer.rs\n+++ b/server/src/reducer.rs\n@@ -119,11 +119,11 @@ impl GroupState {\n let (i, j) = if a_idx < b_idx { (a_idx, b_idx) } else { (b_idx, a_idx) };\n self.voted_pairs.insert((i, j));\n \n- let mut w_a = vote.ratio_left.max(0) as f64;\n- let mut w_b = vote.ratio_right.max(0) as f64;\n- if w_a == 0.0 && w_b == 0.0 {\n- w_a = 1.0;\n- w_b = 1.0;\n+ let w_a = vote.ratio_left as f64;\n+ let w_b = vote.ratio_right as f64;\n+ if w_a == 0.0 || w_b == 0.0 {\n+ // Zero on either side produces no valid edge; drop the vote.\n+ return;\n }\n \n self.add_edge_weight(b_idx, a_idx, w_a);\ndiff --git a/server/tests/basic.rs b/server/tests/basic.rs\nindex 9d83e7a97e2c7494790db17c4b5b30c181705026..cc8c1a0d139f3722ba6ecd13dd001c65be835b67 100644\n--- a/server/tests/basic.rs\n+++ b/server/tests/basic.rs\n@@ -175,14 +175,14 @@ fn reducer_clamps_score_bounds() {\n let mut state = ReducerState::default();\n state.apply_event(ingest_event(\n 1,\n- \"@00000000-0000-0000-0000-000000000000:test:local/test\\n~/t/a {a}\\n~/t/b {b}\\n{huge}\\n~/t/a 1000:1 ~/t/b\\n\",\n+ \"@00000000-0000-0000-0000-000000000000:test:local/test\\n~/t/a {a}\\n~/t/b {b}\\n{huge}\\n~/t/a 100:1 ~/t/b\\n\",\n ));\n state.apply_event(ingest_event(\n 2,\n- \"@00000000-0000-0000-0000-000000000000:test:local/test\\n{huge}\\n~/t/a 1:1000 ~/t/b\\n\",\n+ \"@00000000-0000-0000-0000-000000000000:test:local/test\\n{huge}\\n~/t/a 1:100 ~/t/b\\n\",\n ));\n \n- assert_eq!(state.public().ranking_group.idx_to_item.len(), 2); // Should still work, scores clamped internally\n+ assert_eq!(state.public().ranking_group.idx_to_item.len(), 2); // Should still work, scores handled internally\n }\n \n // ============================================================================\n@@ -513,8 +513,8 @@ fn dsl_parse_rejects_zero_zero_vote_ratio() {\n .expect_err(\"0:0 vote must be rejected by the parser\");\n let slugsocial_server::dsl::DslError::Parse(msg) = err;\n assert!(\n- msg.contains(\"0:0\"),\n- \"expected message about invalid 0:0 ratio, got: {msg}\"\n+ msg.contains(\"≥ 1\"),\n+ \"expected message about invalid zero ratio, got: {msg}\"\n );\n \n let mut state = ReducerState::default();\n@@ -533,7 +533,7 @@ fn dsl_parse_rejects_zero_zero_vote_ratio() {\n #[test]\n fn reducer_negative_ratio_clamped_to_zero() {\n let _state = ReducerState::default();\n- // GroupState::apply_vote clamps negatives to 0, then 0:0 -> 1:1\n+ // GroupState::apply_vote clamps negatives to 0; when either side is 0 the vote is dropped.\n let mut group = GroupState::new();\n group.apply_vote(slugsocial_server::reducer::VoteData {\n ts: 1,\n@@ -546,12 +546,12 @@ fn reducer_negative_ratio_clamped_to_zero() {\n delegate: Some(\"00000000-0000-0000-0000-000000000000:test:local/test\".to_string()),\n thread_tag: \"t\".to_string(),\n });\n+ // Items are registered, but the zero-clamped vote produces no edges.\n assert_eq!(group.idx_to_item.len(), 2);\n- // Both edges should exist (negatives clamped to 0, then 0:0 -> 1:1)\n let a_idx = group.item_to_idx[&item_id(\"https://slug.social/~/t/a\")];\n let b_idx = group.item_to_idx[&item_id(\"https://slug.social/~/t/b\")];\n- assert!(group.edges.contains_key(&(a_idx, b_idx)));\n- assert!(group.edges.contains_key(&(b_idx, a_idx)));\n+ assert!(!group.edges.contains_key(&(a_idx, b_idx)));\n+ assert!(!group.edges.contains_key(&(b_idx, a_idx)));\n }\n \n \ndiff --git a/server/tests/integration_ui.rs b/server/tests/integration_ui.rs\nindex 23db7b5672418d5bb0ab7529e05ef1f89e59062a..09c5481f039d59efb617a82bafcc432a186e2d30 100644\n--- a/server/tests/integration_ui.rs\n+++ b/server/tests/integration_ui.rs\n@@ -256,3 +256,96 @@ async fn test_sse_public_thread_morph_includes_post_body_not_thread_not_found()\n );\n }\n \n+fn ui_vote_compare_post_rpc(\n+ room: &str,\n+ thread_tag: &str,\n+ left: &str,\n+ right: &str,\n+ ratio_left: &str,\n+ ratio_right: &str,\n+ explanation: &str,\n+) -> String {\n+ serde_json::json!({\n+ \"action\": \"vote_compare_post\",\n+ \"room\": room,\n+ \"thread_tag\": thread_tag,\n+ \"left_item\": left,\n+ \"right_item\": right,\n+ \"ratio_left\": ratio_left,\n+ \"ratio_right\": ratio_right,\n+ \"explanation\": explanation,\n+ \"next\": \"/vote\",\n+ })\n+ .to_string()\n+}\n+\n+#[tokio::test]\n+async fn test_vote_compare_post_rejects_zero_left_ratio() {\n+ let (addr, _tmp, _log, _handle) = create_test_server().await;\n+ let client = reqwest::Client::new();\n+ let bearer = test_bearer();\n+\n+ let rpc = ui_vote_compare_post_rpc(\"public\", \"test-vote\", \"~/a\", \"~/b\", \"0\", \"5\", \"prefer b\");\n+ let resp = client\n+ .post(format!(\"http://{addr}/ui\"))\n+ .header(\"Authorization\", format!(\"Bearer {bearer}\"))\n+ .form(&[(\"__rpc__\", rpc.as_str())])\n+ .send()\n+ .await\n+ .unwrap();\n+\n+ assert_eq!(resp.status(), reqwest::StatusCode::OK);\n+ let js = resp.text().await.unwrap();\n+ assert!(\n+ js.contains(\"invalid ratio\") || js.contains(\"≥ 1\"),\n+ \"expected zero-ratio rejection, got: {js}\"\n+ );\n+}\n+\n+#[tokio::test]\n+async fn test_vote_compare_post_rejects_zero_right_ratio() {\n+ let (addr, _tmp, _log, _handle) = create_test_server().await;\n+ let client = reqwest::Client::new();\n+ let bearer = test_bearer();\n+\n+ let rpc = ui_vote_compare_post_rpc(\"public\", \"test-vote\", \"~/a\", \"~/b\", \"5\", \"0\", \"prefer a\");\n+ let resp = client\n+ .post(format!(\"http://{addr}/ui\"))\n+ .header(\"Authorization\", format!(\"Bearer {bearer}\"))\n+ .form(&[(\"__rpc__\", rpc.as_str())])\n+ .send()\n+ .await\n+ .unwrap();\n+\n+ assert_eq!(resp.status(), reqwest::StatusCode::OK);\n+ let js = resp.text().await.unwrap();\n+ assert!(\n+ js.contains(\"invalid ratio\") || js.contains(\"≥ 1\"),\n+ \"expected zero-ratio rejection, got: {js}\"\n+ );\n+}\n+\n+#[tokio::test]\n+async fn test_vote_compare_post_rejects_over_max_ratio() {\n+ let (addr, _tmp, _log, _handle) = create_test_server().await;\n+ let client = reqwest::Client::new();\n+ let bearer = test_bearer();\n+\n+ let rpc =\n+ ui_vote_compare_post_rpc(\"public\", \"test-vote\", \"~/a\", \"~/b\", \"101\", \"1\", \"prefer a\");\n+ let resp = client\n+ .post(format!(\"http://{addr}/ui\"))\n+ .header(\"Authorization\", format!(\"Bearer {bearer}\"))\n+ .form(&[(\"__rpc__\", rpc.as_str())])\n+ .send()\n+ .await\n+ .unwrap();\n+\n+ assert_eq!(resp.status(), reqwest::StatusCode::OK);\n+ let js = resp.text().await.unwrap();\n+ assert!(\n+ js.contains(\"invalid ratio\") || js.contains(\"≤ 100\"),\n+ \"expected over-max ratio rejection, got: {js}\"\n+ );\n+}\n+\ndiff --git a/test/browser_vote_pool.clj b/test/browser_vote_pool.clj\nindex 23d0bd80b02bd8b1b48853454bed02793296550e..738608801027d1e662660b5d6c830b4ccd07c434 100644\n--- a/test/browser_vote_pool.clj\n+++ b/test/browser_vote_pool.clj\n@@ -38,8 +38,8 @@\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+ [99 1] ; left is earlier → prefer left\n+ [1 99])] ; 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\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 \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/` 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,\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":"~x-ai/grok-latest"}