我正在使用 Test::WWW::Mechanize::Catalyst 为基于 Perl Catalyst 的 Web 应用程序编写测试用例。我卡在某个地方,我想通过打印变量/哈希值来排除故障。但问题是它只显示 Catalyst App 的控制台日志。如何在控制台中打印变量值?就像在催化剂 $c->log->info($variable value) 中一样。
最佳答案
当您使用 prove
运行测试时,您需要添加 -v
标志以查看所有测试输出。
$ prove -v t/
这样它就不会吃掉所有的 TAP 输出。
然后您可以使用 diag
from Test::More将注释输出到 TAP,或 the warn
builtin .
use Test::More;
pass 'first test';
diag 'this is a diagnostical message';
my $res = pass 'another test';
warn $res;
done_testing;
产生此输出(在 Windows 上):
$ prove -v foo.pl
foo.pl .. # this is a diagnostical message
1 at foo.pl line 7.
ok 1 - first test
ok 2 - another test
1..2
ok
All tests successful.
Files=1, Tests=2, 0 wallclock secs ( 0.02 usr + 0.02 sys = 0.03 CPU)
Result: PASS
然而,我通常做的是使用Data::Printer的 p
函数,它也像警告一样写入 STDERR。它比 Data::Dumper 更强大并且可以很好地显示对象。 p
的调试输出也将在 TAP 中的某个地方结束。
如果应用程序正在进行大量日志记录,它可能会变得困惑,因此关闭 Catalyst 日志是一个选项。为此,请在将环境变量 CATALYST_DEBUG
设置为 0
的情况下运行测试。
$ CATALYST_DEBUG=0 prove -v t/
如果您希望来自测试的调试输出进入 Catalyst 日志,则需要获取上下文。这有点棘手,但有可能。
use Test::More
use Test::WWW::Mechanize::Catalyst;
use Catalyst::Test 'MyApp';
use Data::Printer;
my $mech = Test::WWW::Mechanize::Catalyst->new(catalyst_app => 'MyApp');
$mech->get_ok("/");
my($res, $c) = ctx_request('/');
$c->log->warn(np $res); # this will go to the Catalyst log
该代码同时使用了 Test::WWW::Mechanize::Catalyst和 Catalyst::Test .如果您传递相同的应用程序名称,它们将不会互相干扰,并且该应用程序只会启动一次。
我正在使用 Catalyst::Test 中的 get_ok
和 ctx_request
函数展示常规机械测试。它从该请求返回一个 HTTP::Response 对象和上下文 $c
。您可以在上下文中运行 ->log
,您的调试将进入 Catalyst 日志。我正在使用 Data::Printer 中的 np
,它返回 Data::Printer 生成的调试信息,而不是将其写入 STDOUT,这样我就可以将其放入 Catalyst 日志中。
关于perl - 无法在 Perl Catalyst 应用程序中使用 Test::WWW::Mechanize::Catalyst 在测试用例中打印变量/哈希,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/40690531/