我正在基于 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 -----
那么我怎样才能得到记录的行为呢？