/usr/share/gps/aunit/test_suite.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 | @@IF@@ @_AUNIT_@ = "AUNIT1.X"
with AUnit.Test_Suites; use AUnit.Test_Suites;
@@ELSE@@
with AUnit; use AUnit.Test_Suites;
@@END_IF@@
@@TABLE@@
with @_TEST_SUITE_PACKAGES_@;
@@END_TABLE@@
package body @_TEST_SUITE_PACKAGE_@ is
Result : aliased Test_Suite;
@@TABLE@@
@@IF@@ @_TEST_SUITE_TESTS_KIND_@ = "TEST_CASE"
Test_@_TABLE_LINE_@ : aliased @_TEST_SUITE_PACKAGES_@.@_TEST_SUITE_TESTS_@;
@@END_IF@@
@@END_TABLE@@
---@_REPLACE_ALL(./-):TEST_SUITE_NAME_@---
-- @_TEST_SUITE_NAME_@ --
---@_REPLACE_ALL(./-):TEST_SUITE_NAME_@---
function @_TEST_SUITE_NAME_@ return Access_Test_Suite is
begin
@@TABLE@@
@@IF@@ @_TEST_SUITE_TESTS_KIND_@ = "TEST_CASE"
Add_Test (Result'Access, Test_@_TABLE_LINE_@'Access);
@@ELSE@@
Add_Test (Result'Access, @_TEST_SUITE_PACKAGES_@.@_TEST_SUITE_TESTS_@);
@@END_IF@@
@@END_TABLE@@
return Result'Access;
end Suite;
end @_TEST_SUITE_PACKAGE_@;
|