fix: complete retail parity stability pass

tests/AcDream.App.Tests/UI/Layout/CreditsLiveDatTests.cs

@@ -0,0 +1,110 @@
+using AcDream.App.UI.Layout;
+using AcDream.App.UI;
+using AcDream.Content;
+using DatReaderWriter;
+using DatReaderWriter.Options;
+
+namespace AcDream.App.Tests.UI.Layout;
+
+/// <summary>
+/// Installed-retail-DAT oracle for issue #400's <c>gmCreditsUI</c> port.
+/// Retail creates two independent enum-table-5 roots: the picture strip
+/// and the scrolling text field.
+/// </summary>
+[Trait("Lane", "InstalledDat")]
+public sealed class CreditsLiveDatTests
+{
+    [InstalledDatFact]
+    public void Category4_ResolvesAuthoredPictureAndTextRoots()
+    {
+        string datDirectory = Environment.GetEnvironmentVariable("ACDREAM_DAT_DIR")
+            ?? Path.Combine(
+                Environment.GetFolderPath(Environment.SpecialFolder.UserProfile),
+                "Documents",
+                "Asheron's Call");
+        using var dats = new DatCollection(datDirectory, DatAccessType.Read);
+
+        // CreateAndAddRootElement(layoutEnum=0x10000004, rootElementId)
+        // uses the ordinary table-5 layout map, exactly like character
+        // management's (0x10000005, 0x1000039A) pair.
+        uint pictureLayout = RetailDataIdResolver.Resolve(dats, 0x10000004u, 5u);
+        Assert.Equal(0x21000003u, pictureLayout);
+
+        ElementInfo picture = Assert.IsType<ElementInfo>(
+            LayoutImporter.ImportInfos(dats, pictureLayout, 0x10000413u));
+        ElementInfo text = Assert.IsType<ElementInfo>(
+            LayoutImporter.ImportInfos(dats, pictureLayout, 0x10000410u));
+
+        Assert.Equal(CreditsUiController.PictureRootElementId, picture.Id);
+        Assert.Equal(3u, picture.Type);
+        Assert.Equal((0f, 0f, 400f, 600f),
+            (picture.X, picture.Y, picture.Width, picture.Height));
+        Assert.Equal(CreditsUiController.TextRootElementId, text.Id);
+        Assert.Equal(3u, text.Type);
+        Assert.Equal((400f, 0f, 400f, 600f),
+            (text.X, text.Y, text.Width, text.Height));
+
+        Assert.True(TryDataId(text, 0x10000002u, out uint textAreaId));
+        Assert.Equal(CreditsUiController.TextAreaElementId, textAreaId);
+        Assert.True(TryDataId(text, 0x10000003u, out uint stringTableId));
+        Assert.Equal(0x23000008u, stringTableId);
+        Assert.True(text.TryGetEffectiveFloat(0x10000004u, out float seconds));
+        Assert.Equal(20f, seconds);
+
+        ElementInfo textArea = Assert.Single(text.Children);
+        Assert.Equal(CreditsUiController.TextAreaElementId, textArea.Id);
+        Assert.Equal(12u, textArea.Type);
+        Assert.Equal(0x40000000u, textArea.FontDid);
+        Assert.Equal(HJustify.Center, textArea.HJustify);
+        Assert.Equal(VJustify.Center, textArea.VJustify);
+
+        Assert.True(picture.TryGetEffectiveProperty(
+            0x10000005u,
+            out UiPropertyValue pictureArray));
+        Assert.Equal(UiPropertyKind.Array, pictureArray.Kind);
+        Assert.Equal(
+            Enumerable.Range(0, 7).Select(index => 0x06005F14u + (uint)index),
+            pictureArray.ArrayValue.Select(static value => (uint)value.UnsignedValue));
+
+        ImportedLayout builtText = Assert.IsType<ImportedLayout>(
+            LayoutImporter.Import(
+                dats,
+                pictureLayout,
+                CreditsUiController.TextRootElementId,
+                static id => (id, 1, 1),
+                null));
+        Assert.IsType<UiText>(builtText.FindElement(
+            CreditsUiController.TextAreaElementId));
+
+        var strings = new DatStringResolver(dats);
+        int creditsCount = 0;
+        for (int i = 1; i <= 4096; i++)
+        {
+            string? value = strings.Resolve(
+                stringTableId,
+                DatStringResolver.ComputeHash($"ID_Credits{i}"));
+            if (value is null)
+                break;
+            creditsCount++;
+        }
+        Assert.Equal(2345, creditsCount);
+        Assert.NotNull(strings.Resolve(
+            0x23000001u,
+            DatStringResolver.ComputeHash("ID_Wait_PleaseWait")));
+    }
+
+    private static bool TryDataId(
+        ElementInfo info,
+        uint propertyId,
+        out uint value)
+    {
+        if (info.TryGetEffectiveProperty(propertyId, out UiPropertyValue property)
+            && property.Kind is UiPropertyKind.DataId or UiPropertyKind.Enum)
+        {
+            value = checked((uint)property.UnsignedValue);
+            return true;
+        }
+        value = 0u;
+        return false;
+    }
+}