Budgetsperre sichtbar machen (#608), Gedaechtnisabruf kuerzt statt wegzulassen (#607)

#608: Ein wegen erschoepften Budgets abgelehnter Lauf hinterlaesst jetzt einen Beleg
(Status BudgetExceeded) an Aufgabe und Verlauf; die Log-Warnung kommt einmal je Agent,
Grenze und Tag. Die Kostenprognose zaehlt Ablehnungen nicht als Lauf und warnt, wenn die
geplanten Aufgaben eines Agenten sein Tagesbudget uebersteigen (API + Verbrauchsansicht).

#607: Passt schon der erste Treffer nicht in den Abruf, wird er gekuerzt (Anfang und Ende
bleiben) statt ganz zu fehlen. remember weist auf gleichnamige Eintraege ohne Schluessel und
auf Eintraege nahe der Abrufgrenze hin.

Version 0.1.9.

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>

tests/ClawdDotNet.Core.Tests/Accounting/KostenPrognoseTests.cs

@@ -113,6 +113,46 @@ public sealed class KostenPrognoseTests
         p.SummeProTag.ShouldBe(3.44m);
     }
 
+    [Fact]
+    public void Budgetablehnungen_druecken_den_Schnitt_nicht()
+    {
+        // #608: Eine Ablehnung steht als Beleg ueber 0 USD im Verlauf - sie ist kein Lauf.
+        var abgelehnt = Beleg("t-1", 0m) with { Status = "BudgetExceeded" };
+
+        var zeile = Rechne([Stuendlich("t-1")], Belege(("t-1", [Beleg("t-1", 0.02m, 2), abgelehnt])))
+            .Aufgaben.Single();
+
+        zeile.KostenJeLauf.ShouldBe(0.02m);
+        zeile.Stichprobe.ShouldBe(1);
+    }
+
+    [Fact]
+    public void Warnt_wenn_die_Aufgaben_das_Tagesbudget_des_Agenten_uebersteigen()
+    {
+        var knapp = new AgentConfig { AgentId = "nachrichten", Model = Nachrichten.Model, SystemPrompt = "x" };
+        knapp.Budget.DailyCostUsd = 0.40m;
+
+        var p = KostenPrognose.Berechne(
+            [Stuendlich("t-1")], Belege(("t-1", [Beleg("t-1", 0.02m)])), [], [knapp], null, Jetzt);
+
+        var warnung = p.Budgetwarnungen.ShouldHaveSingleItem();
+        warnung.AgentId.ShouldBe("nachrichten");
+        warnung.KostenProTag.ShouldBe(0.48m);
+        warnung.BudgetProTag.ShouldBe(0.40m);
+    }
+
+    [Theory]
+    [InlineData(0)]      // keine Grenze gesetzt
+    [InlineData(1.0)]    // Budget reicht
+    public void Ohne_Grenze_oder_mit_Luft_keine_Budgetwarnung(double budget)
+    {
+        var agent = new AgentConfig { AgentId = "nachrichten", Model = Nachrichten.Model, SystemPrompt = "x" };
+        agent.Budget.DailyCostUsd = (decimal)budget;
+
+        KostenPrognose.Berechne([Stuendlich("t-1")], Belege(("t-1", [Beleg("t-1", 0.02m)])), [], [agent], null, Jetzt)
+            .Budgetwarnungen.ShouldBeEmpty();
+    }
+
     [Fact]
     public void Werkzeugjob_zaehlt_nur_tatsaechliche_Weckungen()
     {

tests/ClawdDotNet.Core.Tests/Budget/BudgetsperreSichtbarTests.cs

@@ -0,0 +1,80 @@
+using ClawdDotNet.Core.Accounting;
+using ClawdDotNet.Core.Config;
+using ClawdDotNet.Core.Engine;
+using ClawdDotNet.Core.Tests.Infrastructure;
+using Shouldly;
+
+namespace ClawdDotNet.Core.Tests.Budget;
+
+/// <summary>
+/// #608: Ein wegen erschoepften Budgets abgelehnter Lauf hinterliess nur eine Log-Warnung -
+/// kein Beleg, keine Anzeige an der Aufgabe. Im Testbetrieb fehlten deshalb ab 18:20 alle
+/// Wetterdaten, ohne dass es ausserhalb des Logs zu sehen war.
+/// </summary>
+public sealed class BudgetsperreSichtbarTests
+{
+    /// <summary>Meldet fuer jeden Agenten einen Tagesverbrauch ueber jeder ueblichen Grenze.</summary>
+    private sealed class ErschoepftesBudget : IUsageRepository
+    {
+        public Task RecordAsync(RunUsage usage, CancellationToken ct) => Task.CompletedTask;
+
+        public Task<DailyUsage> GetDailyAsync(DateOnly date, string agentId, CancellationToken ct)
+            => Task.FromResult(new DailyUsage(date, 400_000, 20_000, 0.408m, true, 28));
+
+        public Task<IReadOnlyList<RunUsage>> GetRecentAsync(int limit, CancellationToken ct)
+            => Task.FromResult<IReadOnlyList<RunUsage>>([]);
+
+        public Task<int> PurgeBeforeAsync(DateOnly date, CancellationToken ct) => Task.FromResult(0);
+    }
+
+    private static (EngineFixture Fixture, InMemoryAuditRepository Audit, AgentConfig Agent) Aufbau()
+    {
+        var audit = new InMemoryAuditRepository();
+        var fixture = new EngineFixture(audit, usage: new ErschoepftesBudget());
+        var agent = fixture.AddAgent("wetterdienst");
+        agent.Budget.DailyCostUsd = 0.40m;
+        return (fixture, audit, agent);
+    }
+
+    [Fact]
+    public async Task Abgelehnter_frischer_Aufgabenlauf_hinterlaesst_einen_Beleg_an_der_Aufgabe()
+    {
+        var (fixture, audit, agent) = Aufbau();
+
+        var result = await fixture.Engine.RunAsync(
+            agent, "Hole die Warnungen", "inst", CancellationToken.None, source: "task", taskId: "t-unwetter");
+
+        result.Status.ShouldBe(AgentRunStatus.BudgetExceeded);
+        var beleg = audit.Receipts.ShouldHaveSingleItem();
+        beleg.TaskId.ShouldBe("t-unwetter");
+        beleg.AgentId.ShouldBe("wetterdienst");
+        beleg.Status.ShouldBe(nameof(AgentRunStatus.BudgetExceeded));
+        beleg.ResultRef.ShouldContain("Budget erschöpft");
+        beleg.ResultRef.ShouldContain("0,40", Case.Insensitive);
+        beleg.PromptTokens.ShouldBe(0);
+        beleg.CostUsd.ShouldBe(0m);
+    }
+
+    [Fact]
+    public async Task Abgelehnter_Lauf_im_Chatverlauf_hinterlaesst_ebenfalls_einen_Beleg()
+    {
+        var (fixture, audit, agent) = Aufbau();
+
+        var result = await fixture.Engine.ChatAsync(
+            agent, "Digest", "inst", CancellationToken.None, source: "task", taskId: "t-digest");
+
+        result.Status.ShouldBe(AgentRunStatus.BudgetExceeded);
+        audit.Receipts.ShouldHaveSingleItem().TaskId.ShouldBe("t-digest");
+    }
+
+    [Fact]
+    public async Task Jede_weitere_Ablehnung_des_Tages_steht_als_eigener_Beleg_da()
+    {
+        var (fixture, audit, agent) = Aufbau();
+
+        for (var i = 0; i < 3; i++)
+            await fixture.Engine.RunAsync(agent, "Los", "inst", CancellationToken.None, source: "task", taskId: "t-" + i);
+
+        audit.Receipts.Select(r => r.TaskId).ShouldBe(["t-0", "t-1", "t-2"]);
+    }
+}

tests/ClawdDotNet.Core.Tests/Infrastructure/EngineFixture.cs

@@ -1,3 +1,4 @@
+using ClawdDotNet.Core.Accounting;
 using ClawdDotNet.Core.Audit;
 using ClawdDotNet.Core.Config;
 using ClawdDotNet.Core.Engine;
@@ -23,7 +24,9 @@ internal sealed class EngineFixture
     /// <summary>Die registrierten Agenten — für Tests, die einen Dispatcher selbst bauen.</summary>
     public IReadOnlyList<AgentConfig> Agents => _agents;
 
-    public EngineFixture(IAuditRepository? audit = null, StagingGate? staging = null, TimeProvider? clock = null)
+    public EngineFixture(
+        IAuditRepository? audit = null, StagingGate? staging = null, TimeProvider? clock = null,
+        IUsageRepository? usage = null)
     {
         Engine = new AgentEngine(
             Client,
@@ -31,6 +34,7 @@ internal sealed class EngineFixture
             new PermissionGate(),
             StateStore,
             TestLogging.Factory,
+            usageRepository: usage,
             auditRepository: audit,
             stagingGate: staging,
             clock: clock);