Ada AUnit过程Set_Up_Case和Tear_Down_Case为每个测试调用

Question

我正在基于aunit的现有套件中的Ada应用程序中进行单元测试。根据他们的文档和代码，过程: Set_Up_Case和Tear_Down_Case只应该在测试例程集之前运行。但是，当我运行单元测试(特定类或SmokeTests)时，我看到，它们在每个测试之前和之后运行。被剥夺的产出：

2021-07-05 15:05:55 ----- Set_Up_Case -----                                                                             
2021-07-05 15:05:55 ----- Set_Up -----                                                                                                                                                                
2021-07-05 15:05:58 ----- Starting Test AAAA -----                                                              
2021-07-05 15:06:07 ----- Tear_Down -----                                                                               
2021-07-05 15:06:07 ----- Tear_Down_Case -----                                                               
           
2021-07-05 15:06:07 ----- Set_Up_Case -----                                                                             
2021-07-05 15:06:07 ----- Set_Up -----                                                                                                                                                                 
2021-07-05 15:06:10 ----- Starting Test BBBB  -----                                                                  
2021-07-05 15:06:34 ----- Tear_Down -----                                                                               
2021-07-05 15:06:34 ----- Tear_Down_Case -----  

那么，我怎样才能把这些行为记录下来呢？

Answer 1

Set_Up_Case和Tear_Down_Case例程在测试用例的开始和结束时运行。Set_Up和Tear_Down例程在测试用例中的特定测试例程之前和之后运行。下面所示的最小示例最好地说明了这一点。该示例借用了AUnit食谱中的一些示例代码。

tests.ads (一个新的测试用例，包含3个测试例程：Test_A、Test_B和Test_C)

with AUnit;            use AUnit;
with AUnit.Test_Cases; use AUnit.Test_Cases;

package Tests is

   type Test_Case is new Test_Cases.Test_Case with null record;

   procedure Register_Tests (T: in out Test_Case);
   function Name (T : Test_Case) return Test_String;
   
   --  Setup and tear down.
   procedure Set_Up (T : in out Test_Case);   
   procedure Set_Up_Case (T : in out Test_Case);
   
   procedure Tear_Down (T : in out Test_Case);   
   procedure Tear_Down_Case (T : in out Test_Case);   

   --  Test routines.
   procedure Test_A (T : in out Test_Cases.Test_Case'Class);
   procedure Test_B (T : in out Test_Cases.Test_Case'Class);
   procedure Test_C (T : in out Test_Cases.Test_Case'Class);
   
end Tests;

tests.adb (测试用例及其测试例程的实现)

with Ada.Text_IO; use Ada.Text_IO;

package body Tests is

   ----------------------------------------------
   -- Test Case Name and Routine Registrations --
   ----------------------------------------------
   
   procedure Register_Tests (T: in out Test_Case) is
      use Test_Cases.Registration;
   begin
      Register_Routine (T, Test_A'Access, "Test A");
      Register_Routine (T, Test_B'Access, "Test B");
      Register_Routine (T, Test_C'Access, "Test C");      
   end Register_Tests;

   function Name (T: Test_Case) return Test_String is
   begin
      return Format ("Tests");
   end Name;
   
   -------------------------------
   --  Test Setup and Tear Down --
   -------------------------------

   procedure Set_Up (T : in out Test_Case) is
   begin
      Put_Line ("| Set_Up");
   end Set_Up;
   
   procedure Set_Up_Case (T : in out Test_Case) is
   begin
      Put_Line ("Set_Up_Case");
   end Set_Up_Case;
   
   procedure Tear_Down (T : in out Test_Case) is
   begin
      Put_Line ("| Tear_Down");
   end Tear_Down;
   
   procedure Tear_Down_Case (T : in out Test_Case) is
   begin
      Put_Line ("Tear_Down_Case");
   end Tear_Down_Case;
   
   -------------------------
   -- Test Routines A/B/C --
   -------------------------
   
   procedure Test_A (T : in out Test_Cases.Test_Case'Class) is
   begin
      Put_Line ("| | Test_A");
   end Test_A;
   
   procedure Test_B (T : in out Test_Cases.Test_Case'Class) is
   begin
      Put_Line ("| | Test_B");
   end Test_B;
   
   procedure Test_C (T : in out Test_Cases.Test_Case'Class) is
   begin
      Put_Line ("| | Test_C");
   end Test_C;

end Tests;

a_suite.ads (一个新的测试套件)

with AUnit.Test_Suites;

package A_Suite is
   function Suite return AUnit.Test_Suites.Access_Test_Suite;
end A_Suite;

a_suite.adb (测试套件包含一个测试用例：Tests)

with Tests;
     
package body A_Suite is
   use AUnit.Test_Suites;

   --  Statically allocate test suite:
   Result : aliased Test_Suite;

   --  Statically allocate test cases:
   Test_1 : aliased Tests.Test_Case;

   function Suite return Access_Test_Suite is
   begin
      Add_Test (Result'Access, Test_1'Access);
      return Result'Access;
   end Suite;
   
end A_Suite;

main.adb (测试驱动程序)

with A_Suite;
with AUnit.Run;
with AUnit.Reporter.Text;

procedure Main is
   procedure Run is new AUnit.Run.Test_Runner (A_Suite.Suite);
   Reporter : AUnit.Reporter.Text.Text_Reporter;
begin
   Run (Reporter);
end Main;

输出

Set_Up_Case
| Set_Up
| | Test_A
| Tear_Down
| Set_Up
| | Test_B
| Tear_Down
| Set_Up
| | Test_C
| Tear_Down
Tear_Down_Case

OK Tests : Test A
OK Tests : Test B
OK Tests : Test C

Total Tests Run:   3
Successful Tests:  3
Failed Assertions: 0
Unexpected Errors: 0

Answer 2

似乎我的问题是，原始代码在一个单独的进程中显式地运行每个测试，并具有特定的设置。