-- part of AdaYaml, (c) 2017 Felix Krause
-- released under the terms of the MIT license, see the file "copying.txt"
with AUnit; use AUnit;
with AUnit.Test_Cases; use AUnit.Test_Cases;
with Ada.Containers.Indefinite_Vectors;
package Yaml.Annotation_Test is
subtype Test_Case_Name is String (1 .. 4);
package Test_Case_Vectors is new Ada.Containers.Indefinite_Vectors (Positive, Test_Case_Name);
type TC is new Test_Cases.Test_Case with record
Test_Cases : Test_Case_Vectors.Vector;
Cur : Positive;
end record;
overriding procedure Register_Tests (T : in out TC);
function Name (T : TC) return Message_String;
procedure Execute_Next_Test (T : in out Test_Cases.Test_Case'Class);
procedure Execute_Error_Test (T : in out Test_Cases.Test_Case'Class);
end Yaml.Annotation_Test;