我该如何进行Perl机器或平台相关的TDD测试？

Question

如何测试与机器或平台相关的功能或模块呢？例如，某些功能需要查看或依赖于$^O或像Net::Ifconfig::Wrapper这样的模块？我不需要测试Net::Ifconfig::Wrapper是否返回正确的值，但我确实需要测试我对这些值的处理是否正确。

谢谢！

编辑：测试$^O比我想象的要容易：

{
    # <~> $ perl -e 'print $^O'
    # linux

    local $^O = 'linux';
    $rc = GetOSType();
    is($rc, $OS_LINUX, 'OS Check - linux');
}

出于某些原因，我认为这是一个只读变量。

- Joe Casadonte

Answer 1

为了跟进Jason的模拟对象建议，你应该看一下Misko Hevery的文章"与难以测试的第三方控件进行接口交互"。它直接解决了测试第三方组件的问题。

- LFSR Consulting

Answer 2

通常你会使用模拟对象来“伪造”那些系统调用的结果。

在测试期间，使用模拟对象并让它们返回在不同平台上预期的各种结果，以测试你的代码在这些情况下是否能正确地响应。

- Jason Cohen

---

由于某种奇怪的原因，当我发布这篇文章时，我认为我必须模拟Net::Ifconfig::Wrapper所调用的内容，而不是模拟Net::Ifconfig::Wrapper本身。我只能以临时精神错乱为辩护... - Joe Casadonte