Perl 單元測試的模擬文件系統

Question

有沒有一種方法或模塊可以讓我模擬一個假文件系統以用於 Perl 單元測試？

我在單元測試中使用了各種Test::*和Test::Mock*模塊，但偶爾我希望能夠偽造文件系統。 一個簡單的例子（也是最低要求）是偽造來自-r或-f文件測試運算符的結果，這樣當我調用執行文件測試的對象或模塊時，我可以更輕松地控制結果。

我知道有很多方法可以解決這個問題，例如創建臨時文件或將文件測試包裝在他們自己的函數中，然后可以模擬，但有時如果我能讓 Perl 對我撒謊就好了...因此不需要建議重寫正在測試的代碼的解決方案；-)

更新：

在剛剛找到並閱讀了這個 SO question之后，重寫代碼以使其更具可測試性看起來是更明智的選擇。 盡管如此，手指交叉...

Answer 1

這些值得一看： Filesys::Virtual和Filesys::Virtual::Async 。 我用過第一個。 與Path::Class和File::Temp混合使用，可以輕松優雅地完成各種自清潔工作。 Test::Virtual::Filesystem看起來也很有趣。