with MIDI;
with MIDI.Encoder.Queue;

with System.Storage_Elements; use System.Storage_Elements;
with AAA.Strings;

package Test_Utils is

   type Message_Array is array (Natural range <>) of MIDI.Message;

   function To_Str_Vector (Arr : Message_Array) return AAA.Strings.Vector;

   function Hex_Dump (Data : Storage_Array) return AAA.Strings.Vector;

   function Diff (A, B        : Storage_Array;
                  A_Name      : String := "Expected";
                  B_Name      : String := "Output";
                  Skip_Header : Boolean := False)
                  return AAA.Strings.Vector;

   function Image (D : Storage_Array) return String;

   function To_Storrage_Array (Q : in out MIDI.Encoder.Queue.Instance)
                               return Storage_Array;

end Test_Utils;