Test::Mojo搭配prove运行出现重复日志问题求助

我来给你分享几个除了设置MOJO_LOG_LEVEL环境变量之外的解决方案，帮你搞定用prove -v运行Test::Mojo测试时日志重复、部分日志没通过on message管道的问题：

1. 手动取消默认日志订阅，重新绑定自定义处理逻辑 #

问题的根源在于prove运行时会额外触发Test::Mojo的日志输出通道，导致默认日志和你自定义的on message逻辑同时生效。你可以在测试脚本里手动取消默认的日志订阅，只保留自己的处理逻辑：

use Test::Mojo;
my $t = Test::Mojo->new('YourApp');

# 取消所有默认的message事件订阅
$t->app->log->unsubscribe('message');

# 重新绑定你自己的日志处理逻辑
$t->app->log->on(message => sub {
    my ($log, $level, @lines) = @_;
    # 这里写你的日志处理逻辑，比如只输出指定级别或格式
    print "[$level] ", join("\n", @lines), "\n" if $level =~ /info|warn/;
});

这样就能确保所有日志都只会通过你定义的管道传输，不会出现重复输出。

2. 检测prove运行环境，动态调整日志设置 #

你可以通过环境变量HARNESS_ACTIVE判断当前是否在prove环境下运行，只在该场景下调整日志配置，不影响直接用perl运行测试的行为：

use Test::Mojo;
use Test::More;

my $t = Test::Mojo->new('YourApp');

# 仅在prove运行时调整日志
if ($ENV{HARNESS_ACTIVE}) {
    $t->app->log->unsubscribe('message');
    $t->app->log->on(message => sub {
        my ($log, $level, @lines) = @_;
        # 用Test::More的diag输出日志，和prove的测试输出风格统一
        diag("[$level] " . join(' ', @lines));
    });
}

# 后续测试代码...
done_testing();

3. 封装自定义Test::Mojo子类复用日志配置 #

如果你的项目有多个测试脚本都遇到这个问题，可以封装一个自定义的Test::Mojo子类，把日志处理逻辑封装进去，避免重复代码：

# 保存为Test::YourApp.pm
package Test::YourApp;
use base 'Test::Mojo';

sub new {
    my $class = shift;
    my $self = $class->SUPER::new(@_);
    
    # 统一配置日志处理
    $self->app->log->unsubscribe('message');
    $self->app->log->on(message => sub {
        my ($log, $level, @lines) = @_;
        print "[$level] ", join("\n", @lines), "\n";
    });
    
    return $self;
}

1;

然后在测试脚本里直接使用这个子类：

use Test::YourApp;
my $t = Test::YourApp->new('YourApp');

# 测试代码和之前一样
$t->get_ok('/')->status_is(200);

这些方案的核心思路都是避免日志被多次订阅，确保所有日志流量都经过你自定义的on message管道，从而解决重复输出和管道失效的问题。

内容的提问来源于stack exchange，提问作者Miller