perl - 如何在测试中简单地将信息发送到标准输出？

Question

似乎简单地将say、print 等放入.t 中是行不通的。输出是隐藏的。那么在使用 Test::More 和 Test::Tester 时，我怎样才能简单地打印一些东西呢？我想要这个，这样我就可以在确定如何测试它的同时玩一些代码。注意:如果它被发送到 stderr 或只能使用详细查看就可以了。我还使用 diag 进行了干燥，但在测试中似乎并没有在任何地方起作用。

Answer 1

如果您直接运行测试脚本，您将看到 print 的输出——测试只是 Perl 代码。但是，如果您使用线束运行测试，您在输出中看到的内容将取决于线束，尤其是它的冗长级别，以及您是打印到 STDOUT 还是 STDERR.

另一种在测试中打印消息的方法，参见 Diagnostics在 Test::More 的文档中，特别是:

diag(...);
note(...);

用这样的脚本进行试验将很快说明事情是如何工作的:

# Example usages:
#     perl     some_test.t   # We see everything in output.
#     prove    some_test.t   # We see only diag() and STDERR.
#     prove -v some_test.t   # Everything again.

# In some_test.t
use strict;
use warnings;
use Test::More;

pass;

diag("diag()");
note("note()");
print        "STDOUT\n";
print STDERR "STDERR\n";

done_testing;