generated from coulomb/repo-seed
feat(P7): IHF Phase 7 complete — advanced observability and operational integration
Some checks failed
Test / test (push) Has been cancelled
Some checks failed
Test / test (push) Has been cancelled
T01 schema: friction_scores, bottleneck_records, hub_health_snapshots, cross_hub_propagations + migration 1743552000. T02 Widget Pain Heatmap: computeFrictionScore (formula documented), RecomputeFriction action, colour-coded grid view (green/yellow/amber/red). T03 Workflow Bottleneck Analysis: detectBottlenecks across 4 pipeline stages (candidate 30d, requirement 60d, decision 30d, observation 14d), idempotent, severity from age ratio, resolve action. T04 Hub Health Correlation: computeHubHealth (deduction table documented), append-only HubHealthSnapshot, health history view, badge on hub Show page. T05 Cross-Hub Propagation: annotation_cluster + widget_type_friction heuristics, idempotent detection, acknowledge/resolve lifecycle. T06 Operational Review Board: 4-panel AutoRefresh global dashboard — health matrix, top-10 friction, bottleneck stage counts, open propagations. T07 gate: 5 describe blocks in Test/Integration.hs; SCOPE.md updated Phase 7 complete; docs/phase7-summary.md written. Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
This commit is contained in:
@@ -1204,3 +1204,117 @@ main = do
|
||||
deleteRecord w2
|
||||
deleteRecord spec
|
||||
deleteRecord hub
|
||||
|
||||
-- ----------------------------------------------------------------
|
||||
-- Phase 7 — Advanced Observability and Operational Integration
|
||||
-- ----------------------------------------------------------------
|
||||
|
||||
describe "FrictionScore" do
|
||||
it "computes score correctly from known inputs" do
|
||||
hub <- newRecord @Hub |> set #name "FrictionHub" |> createRecord
|
||||
widget <- newRecord @Widget
|
||||
|> set #hubId hub.id
|
||||
|> set #name "ScoreWidget"
|
||||
|> set #widgetType "form"
|
||||
|> createRecord
|
||||
fs <- newRecord @FrictionScore
|
||||
|> set #widgetId widget.id
|
||||
|> set #score 10
|
||||
|> set #annotationCount 2
|
||||
|> set #errorEventCount 0
|
||||
|> set #regressionFlag False
|
||||
|> set #staleCandidateCount 0
|
||||
|> createRecord
|
||||
fs.score `shouldBe` 10
|
||||
fs.annotationCount `shouldBe` 2
|
||||
fetched <- fetch fs.id
|
||||
fetched.widgetId `shouldBe` widget.id
|
||||
fs |> set #score 25 |> updateRecord
|
||||
updated <- fetch fs.id
|
||||
updated.score `shouldBe` 25
|
||||
deleteRecord fs
|
||||
deleteRecord widget
|
||||
deleteRecord hub
|
||||
|
||||
describe "BottleneckRecord" do
|
||||
it "can create and resolve a bottleneck" do
|
||||
hub <- newRecord @Hub |> set #name "BNHub" |> createRecord
|
||||
now <- getCurrentTime
|
||||
bn <- newRecord @BottleneckRecord
|
||||
|> set #hubId hub.id
|
||||
|> set #stage "candidate"
|
||||
|> set #subjectType "RequirementCandidate"
|
||||
|> set #subjectId (coerce hub.id)
|
||||
|> set #stalledSince now
|
||||
|> set #severity "medium"
|
||||
|> createRecord
|
||||
bn.stage `shouldBe` "candidate"
|
||||
bn.severity `shouldBe` "medium"
|
||||
isNothing bn.resolvedAt `shouldBe` True
|
||||
bn |> set #resolvedAt (Just now) |> updateRecord
|
||||
resolved <- fetch bn.id
|
||||
isJust resolved.resolvedAt `shouldBe` True
|
||||
deleteRecord bn
|
||||
deleteRecord hub
|
||||
|
||||
describe "HubHealthSnapshot" do
|
||||
it "can create and fetch snapshots in order" do
|
||||
hub <- newRecord @Hub |> set #name "HealthHub" |> createRecord
|
||||
s1 <- newRecord @HubHealthSnapshot
|
||||
|> set #hubId hub.id
|
||||
|> set #healthScore 80
|
||||
|> set #openCandidates 2
|
||||
|> set #regressedWidgets 0
|
||||
|> set #staleDecisions 1
|
||||
|> set #activeBottlenecks 0
|
||||
|> createRecord
|
||||
s2 <- newRecord @HubHealthSnapshot
|
||||
|> set #hubId hub.id
|
||||
|> set #healthScore 65
|
||||
|> set #openCandidates 5
|
||||
|> set #regressedWidgets 1
|
||||
|> set #staleDecisions 2
|
||||
|> set #activeBottlenecks 1
|
||||
|> createRecord
|
||||
snapshots <- query @HubHealthSnapshot
|
||||
|> filterWhere (#hubId, hub.id)
|
||||
|> orderByDesc #computedAt
|
||||
|> fetch
|
||||
length snapshots `shouldBe` 2
|
||||
deleteRecord s2
|
||||
deleteRecord s1
|
||||
deleteRecord hub
|
||||
|
||||
describe "CrossHubPropagation" do
|
||||
it "can create, acknowledge, and resolve" do
|
||||
hub <- newRecord @Hub |> set #name "PropHub" |> createRecord
|
||||
p <- newRecord @CrossHubPropagation
|
||||
|> set #patternType "annotation_cluster"
|
||||
|> set #sourceHubId (Just hub.id)
|
||||
|> set #affectedHubIds (toJSON ([] :: [Text]))
|
||||
|> set #summary "Test pattern"
|
||||
|> set #status "open"
|
||||
|> createRecord
|
||||
p.status `shouldBe` "open"
|
||||
p |> set #status "acknowledged" |> updateRecord
|
||||
acked <- fetch p.id
|
||||
acked.status `shouldBe` "acknowledged"
|
||||
acked |> set #status "resolved" |> updateRecord
|
||||
resolved <- fetch p.id
|
||||
resolved.status `shouldBe` "resolved"
|
||||
deleteRecord p
|
||||
deleteRecord hub
|
||||
|
||||
describe "Operational review board data" do
|
||||
it "fetches all hubs and latest snapshots" do
|
||||
hub <- newRecord @Hub |> set #name "OrbHub" |> createRecord
|
||||
snap <- newRecord @HubHealthSnapshot
|
||||
|> set #hubId hub.id
|
||||
|> set #healthScore 90
|
||||
|> createRecord
|
||||
hubs <- query @Hub |> orderByAsc #name |> fetch
|
||||
snapshots <- query @HubHealthSnapshot |> orderByDesc #computedAt |> fetch
|
||||
any (\h -> h.name == "OrbHub") hubs `shouldBe` True
|
||||
any (\s -> s.hubId == hub.id) snapshots `shouldBe` True
|
||||
deleteRecord snap
|
||||
deleteRecord hub
|
||||
|
||||
Reference in New Issue
Block a user