/usr/share/gps/aunit/test_case.ads.tmpl is in gnat-gps-common 5.0-16.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | @@IF@@ @_AUNIT_@ = "AUNIT1.X"
with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
with AUnit.Test_Cases; use AUnit.Test_Cases;
@@ELSE@@
with AUnit; use AUnit, AUnit.Test_Cases, AUnit.Test_Results;
@@END_IF@@
package @_TEST_CASE_PACKAGE_@ is
type @_TEST_CASE_TYPE_@ is new AUnit.Test_Cases.Test_Case with null record;
@@IF@@ @_OVERRIDE_SET_UP_@
procedure Set_Up (T : in out @_TEST_CASE_TYPE_@);
-- Preparation performed before each routine
@@END_IF@@
@@IF@@ @_OVERRIDE_TEAR_DOWN_@
procedure Tear_Down (T : in out @_TEST_CASE_TYPE_@);
-- Cleanup performed after each routine
@@END_IF@@
procedure Register_Tests (T : in out @_TEST_CASE_TYPE_@);
-- Register routines to be run
function Name (T : @_TEST_CASE_TYPE_@)
@@IF@@ @_AUNIT_@ = "AUNIT1.X"
return String_Access;
@@ELSE@@
return Test_String;
@@END_IF@@
-- Returns name identifying the test case
end @_TEST_CASE_PACKAGE_@;
|