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.Tools.Tests/ClawdDotNet.Tools.Tests.csproj

@@ -23,6 +23,7 @@
     <ProjectReference Include="..\..\src\ClawdDotNet.Tools.Database\ClawdDotNet.Tools.Database.csproj" />
     <ProjectReference Include="..\..\src\ClawdDotNet.Tools.DirectAPI\ClawdDotNet.Tools.DirectAPI.csproj" />
     <ProjectReference Include="..\..\src\ClawdDotNet.Tools.FileRW\ClawdDotNet.Tools.FileRW.csproj" />
+    <ProjectReference Include="..\..\src\ClawdDotNet.Tools.Memory\ClawdDotNet.Tools.Memory.csproj" />
     <ProjectReference Include="..\..\src\ClawdDotNet.Tools.SocialMediaManager\ClawdDotNet.Tools.SocialMediaManager.csproj" />
     <ProjectReference Include="..\..\src\ClawdDotNet.Tools.WebFetch\ClawdDotNet.Tools.WebFetch.csproj" />
   </ItemGroup>

tests/ClawdDotNet.Tools.Tests/Memory/MemoryToolTests.cs

@@ -0,0 +1,114 @@
+using System.Text.Json;
+using ClawdDotNet.Core.Memory;
+using ClawdDotNet.Core.Storage;
+using ClawdDotNet.Core.Tools;
+using ClawdDotNet.Tools.Memory;
+using ClawdDotNet.Tools.Tests.FileRW;
+using Microsoft.Extensions.Logging.Abstractions;
+using Shouldly;
+
+namespace ClawdDotNet.Tools.Tests.Memory;
+
+/// <summary>
+/// #607: Der Nachrichten-Agent merkte sich bei jedem Lauf die ganze, wachsende Linkliste ohne
+/// Schluessel. Sobald der neueste Eintrag allein ueber 8.000 Zeichen lag, lieferte recall keinen
+/// einzigen Inhalt mehr - der Agent haette jede Meldung erneut fuer neu gehalten.
+/// </summary>
+public sealed class MemoryToolTests : IDisposable
+{
+    private readonly string _dir = Path.Combine(Path.GetTempPath(), "clawd-tests", Guid.NewGuid().ToString("N"));
+    private readonly SqliteMemoryRepository _repository;
+    private readonly MemoryTool _tool = new();
+
+    public MemoryToolTests()
+    {
+        Directory.CreateDirectory(_dir);
+        _repository = new SqliteMemoryRepository(new SqliteStorage(Path.Combine(_dir, "state.db")));
+    }
+
+    public void Dispose()
+    {
+        Microsoft.Data.Sqlite.SqliteConnection.ClearAllPools();
+        try { Directory.Delete(_dir, recursive: true); }
+        catch { /* Aufraeumen ist Nebensache */ }
+    }
+
+    private Task<ToolResult> Aufruf(object eingabe) => _tool.ExecuteAsync(
+        JsonSerializer.SerializeToElement(eingabe),
+        new AgentToolContext("nachrichten", "inst", new Dictionary<string, object?>(), new NullStateStore(),
+            NullLogger.Instance, CancellationToken.None, Memory: _repository),
+        CancellationToken.None);
+
+    private static string Linkliste(int anzahl)
+        => string.Join("\n", Enumerable.Range(1, anzahl).Select(i => $"https://www.tagesschau.de/inland/meldung-{i:D4}.html"));
+
+    [Fact]
+    public async Task Ein_einzelner_uebergrosser_Eintrag_wird_gekuerzt_statt_weggelassen()
+    {
+        var liste = Linkliste(250);   // ~11.500 Zeichen
+        (await Aufruf(new { action = "remember", subject = "gemeldet", content = liste })).Success.ShouldBeTrue();
+
+        var abruf = await Aufruf(new { action = "recall", query = "gemeldet" });
+
+        abruf.Success.ShouldBeTrue();
+        abruf.Content.ShouldContain("meldung-0001.html", customMessage: "der Anfang bleibt sichtbar");
+        abruf.Content.ShouldContain("meldung-0250.html", customMessage: "das Ende - die neuesten Links - bleibt sichtbar");
+        abruf.Content.ShouldContain("gekürzt");
+        abruf.Content.ShouldNotContain("weitere Treffer ausgelassen");
+        abruf.Content.Length.ShouldBeLessThanOrEqualTo(8_000);
+    }
+
+    [Fact]
+    public async Task Ist_der_neueste_von_mehreren_Eintraegen_zu_gross_bleibt_er_teilweise_sichtbar()
+    {
+        await Aufruf(new { action = "remember", subject = "gemeldet", content = Linkliste(100) });
+        await Task.Delay(20);
+        await Aufruf(new { action = "remember", subject = "gemeldet", content = Linkliste(220) });
+
+        var abruf = await Aufruf(new { action = "recall", query = "gemeldet" });
+
+        abruf.Content.ShouldContain("meldung-0220.html");
+        abruf.Content.ShouldContain("1 weitere Treffer ausgelassen");
+        abruf.Content.Length.ShouldBeLessThanOrEqualTo(8_000);
+    }
+
+    [Fact]
+    public async Task Was_passt_bleibt_ungekuerzt()
+    {
+        await Aufruf(new { action = "remember", subject = "gemeldet", content = Linkliste(20) });
+
+        var abruf = await Aufruf(new { action = "recall", query = "gemeldet" });
+
+        abruf.Content.ShouldNotContain("gekürzt");
+        abruf.Content.ShouldContain("meldung-0010.html");
+    }
+
+    [Fact]
+    public async Task Erneutes_Merken_ohne_Schluessel_unter_demselben_Betreff_weist_auf_key_hin()
+    {
+        var erster = await Aufruf(new { action = "remember", subject = "gemeldet", content = Linkliste(3) });
+        var zweiter = await Aufruf(new { action = "remember", subject = "gemeldet", content = Linkliste(5) });
+
+        erster.Content.ShouldNotContain("Hinweis");
+        zweiter.Content.ShouldContain("2 Einträge ohne Schlüssel");
+        zweiter.Content.ShouldContain("key");
+    }
+
+    [Fact]
+    public async Task Mit_Schluessel_wird_fortgeschrieben_und_nicht_gewarnt()
+    {
+        await Aufruf(new { action = "remember", subject = "gemeldet", key = "gemeldete-links", content = Linkliste(3) });
+        var zweiter = await Aufruf(new { action = "remember", subject = "gemeldet", key = "gemeldete-links", content = Linkliste(5) });
+
+        zweiter.Content.ShouldNotContain("Hinweis");
+        (await _repository.CountAsync(MemoryScope.Agent, "nachrichten", CancellationToken.None)).ShouldBe(1);
+    }
+
+    [Fact]
+    public async Task Ein_Eintrag_nahe_der_Abrufgrenze_wird_beim_Merken_angemahnt()
+    {
+        var ergebnis = await Aufruf(new { action = "remember", subject = "gemeldet", key = "links", content = Linkliste(120) });
+
+        ergebnis.Content.ShouldContain("Zeichen lang");
+    }
+}