Ada AUnit 过程 Set_Up_Case 和 Tear_Down_Case 为每个测试调用
Ada AUnit procedures Set_Up_Case and Tear_Down_Case called for each test
我正在基于 aunit 的现有套件中的 Ada 应用程序中进行单元测试。根据他们的 documentation 和代码，程序： Set_Up_Case 和 Tear_Down_Case 应该只在 运行 之前设置测试例程。但是，当我 运行 单元测试（特定 class 或 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 -----
那么我怎样才能得到记录的行为呢？
Set_Up_Case 和 Tear_Down_Case 例程在 测试用例 的开始和结束处 运行。 Set_Up 和 Tear_Down 例程是 运行 在 测试用例中的特定测试例程 之前和之后。使用下面显示的最小示例可以最好地说明这一点。该示例从 AUnit cookbook.
中借用了相当多的示例代码
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（测试用例及其测试例程[=54=的实现])
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
似乎我的问题是原始代码明确地 运行 每个测试都在一个单独的过程中进行特定设置。
我正在基于 aunit 的现有套件中的 Ada 应用程序中进行单元测试。根据他们的 documentation 和代码，程序： Set_Up_Case 和 Tear_Down_Case 应该只在 运行 之前设置测试例程。但是，当我 运行 单元测试（特定 class 或 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 -----
那么我怎样才能得到记录的行为呢？
Set_Up_Case 和 Tear_Down_Case 例程在 测试用例 的开始和结束处 运行。 Set_Up 和 Tear_Down 例程是 运行 在 测试用例中的特定测试例程 之前和之后。使用下面显示的最小示例可以最好地说明这一点。该示例从 AUnit cookbook.
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（测试用例及其测试例程[=54=的实现])
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
似乎我的问题是原始代码明确地 运行 每个测试都在一个单独的过程中进行特定设置。