如何拆分Test::More测试套件为多个文件并统一运行

Test::More本身定位是单脚本内的测试断言库，仅负责输出标准TAP格式的测试结果，没有提供跨测试脚本聚合调度的内置辅助方法。但Perl标准发行版自带和Test::More配套的核心测试调度模块，不需要安装任何第三方依赖、不需要引入构建系统，就能实现你要的拆分+统一入口需求。

第一步：拆分独立组件测试脚本 #

把原来单脚本里的测试用例按组件拆分到两个独立文件，每个文件都是可独立运行的完整Test::More测试脚本，结构参考：

#!/usr/bin/env perl
use strict;
use warnings;
# 如果你自己的模块放在lib目录，加这行保证能找到模块
use lib 'lib';
# 不需要提前算测试用例数的话，直接引入Test::More即可
use Test::More;

# 这里放对应组件的所有测试用例，比如
# use_ok('MyApp::ComponentA');
# is(ComponentA->func(...), ..., '测试用例描述');
# ...所有组件的测试逻辑...

# 脚本末尾必须加，标记测试用例全部执行完成
done_testing();

两个组件脚本都写完后，给文件加可执行权限：
chmod +x run_tests_component_A.pl run_tests_component_B.pl
写完可以单独执行某个脚本验证功能正常：perl run_tests_component_A.pl

第二步：编写统一入口run_tests.pl #

推荐用Perl核心自带的TAP::Harness模块实现调度，这个模块是Perl标准安装自带的，不需要额外装任何包，每个测试脚本会在独立进程里运行，不会出现全局变量污染、测试计划冲突的问题，测试结果统计完全准确。
总入口代码参考：

#!/usr/bin/env perl
use strict;
use warnings;
use TAP::Harness;

# 初始化测试调度器，参数和你原来单脚本的运行配置保持一致即可
my $harness = TAP::Harness->new({
    # 输出详细程度：1显示每个用例执行结果，0只显示整体统计，-1静默仅输出最终结果
    verbosity => 0,
    # 如果你的模块放在lib目录，加这个配置指定模块搜索路径
    lib => [qw/lib/],
});

# 按顺序运行两个组件测试套件
my $result = $harness->runtests(
    'run_tests_component_A.pl',
    'run_tests_component_B.pl'
);

# 存在测试失败时返回非0退出码，方便命令行判断或者接入后续自动化流程
exit $result->has_errors ? 1 : 0;

写完同样加可执行权限，直接运行./run_tests.pl或者perl run_tests.pl就会顺序执行两套测试，最后输出整体的通过/失败统计、失败用例详情。

注意事项 #

• 不要直接在总入口用do/require引入两个测试脚本：这种写法会把两个脚本的代码放到同一个Perl进程执行，会出现全局变量、子程序命名冲突，测试计划重复定义的问题，仅适合代码量极小的简单测试场景，正式项目不推荐。
• 如果你想要更极简的实现，也可以直接在总入口调用Perl核心自带的prove命令，代码如下，但这种方式依赖系统PATH里能找到prove命令，兼容性不如直接用TAP::Harness：

#!/usr/bin/env perl
system('prove', 'run_tests_component_A.pl', 'run_tests_component_B.pl');
exit $? >> 8;

• 后续如果要新增组件测试，只需要写新的独立测试脚本，把文件名加到总入口的runtests参数列表里就行。

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