Add lesson marks 2-5 from lesson quality once per slot.

Co-authored-by: Cursor <cursoragent@cursor.com>

tests/HSchool.People.Tests/LessonMarkMemoryTests.cs

@@ -0,0 +1,100 @@
+using HSchool.Content;
+
+namespace HSchool.People.Tests;
+
+public class LessonMarkMemoryTests
+{
+    [Fact]
+    public void OverCeiling_DropsTheOldest()
+    {
+        var person = Blank("a");
+        var rules = Rules(max: 2);
+        var t0 = new DateTime(2012, 4, 3, 10, 0, 0, DateTimeKind.Utc);
+        Assert.True(LessonMarkMemory.Record(person, "Mathematics", 5, t0, period: 1, rules));
+        Assert.True(LessonMarkMemory.Record(person, "Literature", 4, t0.AddMinutes(1), period: 2, rules));
+        Assert.True(LessonMarkMemory.Record(person, "History", 3, t0.AddMinutes(2), period: 3, rules));
+
+        Assert.Equal(2, person.LessonMarks!.Count);
+        Assert.Equal("Literature", person.LessonMarks[0].Subject);
+        Assert.Equal("History", person.LessonMarks[1].Subject);
+    }
+
+    [Fact]
+    public void RosterJson_RoundTripsLessonMarks_AndOmitsEmpty()
+    {
+        var roster = Fixtures.Generate(Fixtures.Classrooms(4));
+        var pupil = roster.People.First(person => person.IsStudent && !person.IsParent);
+        var time = new DateTime(2012, 4, 3, 11, 20, 0, DateTimeKind.Utc);
+        LessonMarkMemory.Record(pupil, "Mathematics", 4, time, period: 1, Rules(max: 40));
+
+        var json = RosterJson.Serialize(RosterDocument.From(1, roster));
+        Assert.Contains("\"lessonMarks\"", json, StringComparison.Ordinal);
+        Assert.Contains("\"value\": 4", json, StringComparison.Ordinal);
+        Assert.Contains("\"subject\": \"Mathematics\"", json, StringComparison.Ordinal);
+
+        var without = roster.People.First(person => person.LessonMarks is null || person.LessonMarks.Count == 0);
+        var withoutSlice = PersonJsonSlice(json, without.Id);
+        Assert.DoesNotContain("\"lessonMarks\"", withoutSlice, StringComparison.Ordinal);
+
+        var loaded = RosterJson.Parse(json).ToRoster();
+        var loadedPupil = loaded.People.First(person => person.Id.Equals(pupil.Id, StringComparison.Ordinal));
+        Assert.NotNull(loadedPupil.LessonMarks);
+        Assert.Single(loadedPupil.LessonMarks!);
+        Assert.Equal(4, loadedPupil.LessonMarks[0].Value);
+        Assert.Equal("Mathematics", loadedPupil.LessonMarks[0].Subject);
+        Assert.Equal(1, loadedPupil.LessonMarks[0].Period);
+        Assert.Equal(time, loadedPupil.LessonMarks[0].Time);
+    }
+
+    private static string PersonJsonSlice(string json, string personId)
+    {
+        var marker = $"\"id\": \"{personId}\"";
+        var start = json.IndexOf(marker, StringComparison.Ordinal);
+        Assert.True(start >= 0);
+        var end = json.IndexOf("},", start, StringComparison.Ordinal);
+        if (end < 0)
+        {
+            end = json.Length;
+        }
+
+        return json[start..end];
+    }
+
+    private static BehaviorDef Rules(int max) => new()
+    {
+        DefName = "Behavior",
+        LessonMarkMax = max,
+        LessonMarkThresholds = BehaviorDef.DefaultLessonMarkThresholds,
+        LessonMarkWhenNoTeacher = 2,
+    };
+
+    private static Person Blank(string id)
+    {
+        var cases = new CaseTable
+        {
+            Nom = id,
+            Gen = id,
+            Dat = id,
+            Acc = id,
+            Ins = id,
+            Pre = id,
+        };
+        return new Person
+        {
+            Id = id,
+            FamilyId = "f",
+            Female = false,
+            BirthDate = new DateTime(2000, 1, 1, 0, 0, 0, DateTimeKind.Utc),
+            Name = new PersonName(id, id, id, cases, cases, cases),
+            IsStudent = true,
+            IsStaff = false,
+            IsParent = false,
+            Numbers = new Dictionary<string, int>(StringComparer.Ordinal),
+            Choices = new Dictionary<string, string>(StringComparer.Ordinal),
+            Skills = new Dictionary<string, int>(StringComparer.Ordinal),
+            Traits = [],
+            Needs = new Dictionary<string, float>(StringComparer.Ordinal),
+            Opinions = new Dictionary<string, int>(StringComparer.Ordinal),
+        };
+    }
+}