从 SUnit 迁移到 Phexample

Question

我正在尝试 Pharo 的 Phexample 和我喜欢它，但一半的单元测试在 SUnit 中，另一半在 Phexample 中，感觉很笨拙。 Phexample 是否有针对我现有测试的导入功能？

Answer 1

关于期望匹配器，PhexMatcher 的类端有一系列重写规则。此截屏视频介绍了如何使用 RB 的重写引擎：OB 中的代码批评家 (OB 截屏视频 3) 。

首先使用这些规则

RBParseTreeRewriter new
    replace: 'self assert: [ `@expression ]' with: 'self assert: `@expression';
    replace: 'self deny: `@expression' with: 'self assert: `@expression not';
    yourself.

然后使用这些规则

RBParseTreeRewriter new
    replace: 'self assert: `@value = `@expected' with: '`@value should = `@expected';
    replace: 'self assert: `@value ~= `@expected' with: '`@value should not = `@expected';
    replace: 'self assert: `@value > `@expected' with: '`@value should > `@expected';
    replace: 'self assert: `@value < `@expected' with: '`@value should < `@expected';
    replace: 'self assert: `@value >= `@expected' with: '`@value should >= `@expected';
    replace: 'self assert: `@value <= `@expected' with: '`@value should <= `@expected';
    replace: 'self assert: (`@value isKindOf: `@type)' with: '`@value should beKindOf: `@type';
    replace: 'self assert: `@expression isNil' with: '`@expression should be isNil';
    replace: 'self assert: `@expression notNil' with: '`@expression should be notNil';
    replace: 'self assert: `@expression `test not' with: '`@expression should not be `test'
        when: [:node | node arguments first receiver selector matchesRegex: '(is|has|not).+|atEnd' ];
    replace: 'self assert: `@expression `test' with: '`@expression should be `test'
        when: [:node | node arguments first selector matchesRegex: '(is|has|not).+|atEnd' ];
    replace: 'self assert: (`@collection includes: `@element) not' with: '`@collection should not be includes: `@element';
    replace: 'self assert: (`@collection includes: `@element)' with: '`@collection should be includes: `@element';
    yourself.

关于测试之间引入依赖关系，您必须手动重写您的测试。对于 JExample，有 JUnit2JExample 但可惜的是，Smalltalk 还没有自动迁移。

---

PS：如果您使用最新的 Pharo 映像，则必须使用 OB 并恢复 OB-Refactory 包才能使作用域重写规则发挥作用。只需执行

SystemBrowser default: OBSystemBrowserAdaptor.
Gofer new
    wiresong: 'ob';
    addPackage: 'OB-Refactory';
    revert