yass_3.1.0_9bcb0cc5/tests/atomfeed-test_data-tests-feedentry_container-test_data.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
27
28
29
30
31
32
33
--  This package is intended to set up and tear down  the test environment.
--  Once created by GNATtest, this package will never be overwritten
--  automatically. Contents of this package can be modified in any way
--  except for sections surrounded by a 'read only' marker.

with Ada.Containers.Vectors.Test_Data;
with Ada.Containers.Vectors.Test_Data.Tests;

package AtomFeed.Test_Data.Tests.FeedEntry_Container.Test_Data is

--  begin read only
   type Test is new AUnit.Test_Fixtures.Test_Fixture
--  end read only
   with null record;

   procedure Set_Up(Gnattest_T: in out Test);
   procedure Tear_Down(Gnattest_T: in out Test);

--  begin read only
   package Gnattest_Data_Inst is new GNATtest_Generated.GNATtest_Standard
     .AtomFeed
     .FeedEntry_Container
     .Test_Data
     (Test);
   package Gnattest_Tests_Inst is new Gnattest_Data_Inst.Tests;

   type New_Test is new Gnattest_Tests_Inst.Test with null record;
--  end read only

   procedure User_Set_Up(Gnattest_T: in out New_Test);
   procedure User_Tear_Down(Gnattest_T: in out New_Test);

end AtomFeed.Test_Data.Tests.FeedEntry_Container.Test_Data;