with AUnit.Test_Suites; use AUnit.Test_Suites;

@@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_@;
