/usr/share/gps/aunit/test_case.adb.tmpl is in gnat-gps-common 5.0-13.
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 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 | @@IF@@ @_AUNIT_@ = "AUNIT1.X"
with Aunit.Test_Cases.Registration; use AUnit.Test_Cases.Registration;
with AUnit.Assertions; use AUnit.Assertions;
@@END_IF@@
package body @_TEST_CASE_PACKAGE_@ is
@@IF@@ @_OVERRIDE_SET_UP_@
------------
-- Set_Up --
------------
procedure Set_Up (T : in out @_TEST_CASE_TYPE_@) is
pragma Unreferenced (T);
begin
null;
end Set_Up;
@@END_IF@@
@@IF@@ @_OVERRIDE_TEAR_DOWN_@
---------------
-- Tear_Down --
---------------
procedure Tear_Down (T : in out @_TEST_CASE_TYPE_@) is
pragma Unreferenced (T);
begin
null;
end Tear_Down;
@@END_IF@@
----------
-- Name --
----------
function Name (T : @_TEST_CASE_TYPE_@)
@@IF@@ @_AUNIT_@ = "AUNIT1.X"
return String_Access is
@@ELSE@@
return Test_String is
@@END_IF@@
begin
@@IF@@ @_AUNIT_@ = "AUNIT1.X"
return new String'("@_TEST_CASE_DESCRIPTION_@");
@@ELSE@@
return Format ("@_TEST_CASE_DESCRIPTION_@");
@@END_IF@@
end Name;
--------------------
-- Register_Tests --
--------------------
procedure Register_Tests (T : in out @_TEST_CASE_TYPE_@) is
begin
null;
end Register_Tests;
end @_TEST_CASE_PACKAGE_@;
|