2 with Ada
.Finalization
; use Ada
.Finalization
;
4 type Test
is new Controlled
with null record;
5 procedure Add_Test
(T
: access Test
'Class);
7 type Test_Case1
is new Test
with null record;
8 type Test_Suite
is new Test
with null record;
10 type Test_Case
is new Test_Case1
with record
11 Link_Under_Test
: Natural;