// Licensed to the .NET Foundation under one or more agreements.
// The .NET Foundation licenses this file to you under the MIT license.
 
using System.Runtime.InteropServices;
using Windows.Win32.System.Ole;
 
namespace System.Windows.Forms.Primitives.Ole32Tests;
 
public class CADWORDTests
{
    [Fact]
    public void CADWORD_ConvertAndFree_SingleItem()
    {
        CADWORD ca = CreateIntVector(2020);
 
        uint[] values = ca.ConvertAndFree();
        Assert.Single(values);
        Assert.Equal(2020u, values[0]);
    }
 
    [Fact]
    public void CADWORD_ConvertAndFree_EmptyStruct()
    {
        CADWORD ca = default;
 
        uint[] values = ca.ConvertAndFree();
        Assert.Empty(values);
    }
 
    private static CADWORD CreateIntVector(params uint[] values)
        => CreateIntVector(allocations: null, values);
 
    private static unsafe CADWORD CreateIntVector(IList<IntPtr>? allocations, params uint[] values)
    {
        CADWORD ca = new()
        {
            cElems = (uint)values.Length,
            pElems = (uint*)Marshal.AllocCoTaskMem(sizeof(uint) * values.Length)
        };
 
        allocations?.Add((IntPtr)ca.pElems);
 
        Span<uint> elements = new(ca.pElems, values.Length);
        for (int i = 0; i < values.Length; i++)
        {
            elements[i] = values[i];
        }
 
        return ca;
    }
}