在 MUnit 中寻找类似 JUnit 的 @Before / @After 的东西

Question

我正在一个 .mt 文件中编写多个测试用例，这些测试用例共享通用的设置（和拆卸）过程。我希望看到像 JUnit 的 @Before / @After 这样的东西，但是 MUnit 包中没有任何东西让我想到可以实现这一点。老实说，MUnit 包文档比 Wolfram Workbench 的 MUnit 文档好一点，但它也远未完成。 有关查看MUnit 包。

因此，在我重新发明轮子之前，我想我应该检查一下我是否错过了 MUnit 中的某些内容，或者是否有人有一个运行良好的模式？

因此，根据 Leonid Shifrin 最初 的回答（当我将其放在一起时，他更新了他的答案），这就是我现在所在的位置......

TestPlus.mt

(* Mathematica Test File *)

(* x is a global value *)
x=0;

SetUp[] := Module[{}, x=1;];
TearDown[] := Module[{}, x=0;];

(* test SetUp[] *)
SetUp[];       
Test[x, 1, TestID->"SetUp-20120103-F2U9V6"]

(* test TearDown[] *)
TearDown[];
Test[x, 0, TestID->"TearDown-20120103-O4R6M7"]

(* test plus --contrived tests-- *)
SetUp[];
Test[x+0, 1, TestID->"Plus-20120103-S5D9X6"]
TearDown[];

SetUp[];
Test[x+1, 2, TestID->"Plus-20120103-D7Q3E0"]
TearDown[];

SetUp[];
Test[x+2, 3, TestID->"Plus-20120103-F0S4P9"]
TearDown[];

Answer 1

MUnit 文件是普通的包文件，它们是按顺序读取和执行的 - 或者至少这是我对它们的经验。您只需在测试之前和之后添加包含公共代码的行，它们将分别在所有测试之前和之后执行。

如果您想为每个测试单独调用设置和拆卸过程，您可以在每个测试之前和之后添加相应的行（调用）。您可能会发现编写一个预处理器很方便，它将您的测试作为包加载（例如，通过使用 Import["Tests.tm","HeldExpressions"] - 您的测试位于本例中为 Tests.tm），插入相应的行，然后再次保存文件。这将需要对所保存的代码进行一些流畅的操作，但可以相当快地掌握，并且如果您有很多测试，则非常方便。

编辑

作为一种更轻量级的替代方案，您可以定义类似宏的快捷方式。以下是测试文件内容示例：

(* Mathematica Test File *)

before[]:= (Print["Before Test: ",f[2]];f[x_]:=x^3);
after[] := (ClearAll[f];Print["After Test: ",f[2]]);

SetAttributes[withCodeAfter,HoldRest];
withCodeAfter[before_,after_]:=(after;before)

SetAttributes[{wrapTest,wrapTest1},HoldAll]
wrapTest[code_]:= withCodeAfter[before[];code,after[]]  
wrapTest1[code_]:=Block[{f},f[x_]:=x^3;code];

wrapTest@
Test[f[2],
  8,
  TestID -> "MyTest1"
]

wrapTest1@
Test[f[2],
  8,
  TestID -> "MyTest2"
]

函数 before 和 after 模仿您的设置/拆卸函数。函数 withCodeAfter 是一个辅助宏，它首先执行代码 before，然后执行代码 after，但最终返回 的结果之前。函数 wrapTest 和 wrapTest1 说明了两种可能性：您可以定义单独的“before”和“after”函数并将代码与它们夹在中间，或者您可以使用 块并定义“around”宏，有时这可能更方便。无论哪种方式，测试都会有效。您还可以混合使用这些方法。在这两种情况下，样板代码量都是最少的 - 只需在每次测试之前添加 wrapTest@ 行即可。

Answer 2

我无法在评论中获得正确的格式，因此我将其作为答案...

好吧，我想我已经在您的答案中剖析了代码，请告诉我我是否正确。

---

定义评估“测试用例”之前和之后评估的内容。附注，您在 before 中定义 f，在 after 中取消定义 f。

(* Mathematica Test File *)

before[]:= (Print["Before Test: ",f[2]];f[x_]:=x^3);
after[] := (ClearAll[f];Print["After Test: ",f[2]]);

---

定义函数withCodeAfter。它需要两个表达式，第一个表达式 before 在传入时进行求值。第二个表达式 after 传入时未求值，并且是要在其中求值的第一个表达式withCodeAfter。计算的第一个表达式 before 由 withCodeAfter 返回。

SetAttributes[withCodeAfter,HoldRest];
withCodeAfter[before_,after_]:=(after;before)

---

定义函数wrapTest。它需要一个表达式，code，该表达式在未计算的情况下传入。该表达式 code 是复合表达式 before[];code 的第二个表达式，该复合表达式作为第一个表达式 before 传递，到 withCodeAfter。复合表达式 before[];code 在传递到 withCodeAfter 时进行计算。求值表达式的值 code 由 withCodeAfter 在 after 求值之后返回。 withCodeAfter 返回的值由 wrapTest 返回。

SetAttributes[{wrapTest},HoldAll]
wrapTest[code_]:= withCodeAfter[before[];code,after[]]

---

与调用 wrapTest[Test[f[2], 8, TestID -> > 是一样的“我的测试1”]]

wrapTest@
Test[f[2], 8, TestID -> "MyTest1"]