midi_0.2.0_6a6306df/tests/src/test_utils.ads

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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;