2

我正在基于 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 -----

那么我怎样才能得到记录的行为呢？

4

2 回答 2

3

Set_Up_Case和例程在测试用例的Tear_Down_Case开始和结束时运行。和例程在测试用例中的特定测试例程之前和之后运行。最好使用下面显示的最小示例来说明这一点。该示例从AUnit 食谱中借用了相当多的示例代码。Set_UpTear_Down

tests.ads（一个新的测试用例，包含 3 个测试例程:Test_A和）Test_BTest_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（测试套件包含 1个测试用例：）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
于 2021-07-05T19:56:08.743 回答
0

似乎我的问题是原始代码在具有某些设置的单独进程中显式运行每个测试。

于 2021-07-19T07:35:23.373 回答