我正在尝试使用Test :: More来测试打印到屏幕的Perl函数.
我知道这个输出可能会干扰诸如证明之类的工具.
如何捕获此输出以便我可以打印它diag(),并在输出本身上运行测试?
diag()
testing perl unit-testing
perl ×1
testing ×1
unit-testing ×1