Agent skill · data analytics · affaan-m
perl-testing
使用Test2::V0、Test::More、prove runner、模拟、Devel::Cover覆盖率和TDD方法的Perl测试模式。
Why this skill is useful
Provides domain-specific knowledge on Perl testing frameworks and TDD methodologies that the AI wouldn't reliably generate on its own.
What it needs
About 5k tokens when loaded. Last updated 2026-08-06. 238,342 stars on the source repository.
What this skill does
Perl 测试模式 使用 Test2::V0、Test::More、prove 和 TDD 方法论为 Perl 应用程序提供全面的测试策略。 何时激活 编写新的 Perl 代码（遵循 TDD：红、绿、重构） 为 Perl 模块或应用程序设计测试套件 审查 Perl 测试覆盖率 设置 Perl 测试基础设施 将测试从 Test::More 迁移到 Test2::V0 调试失败的 Perl 测试 TDD 工作流程 始终遵循 RED-GREEN-REFACTOR 循环。 Test::More 基础 标准的 Perl 测试模块 —— 广泛使用，随核心发行。 基本断言 SKIP 和 TODO Test2::V0 现代框架 Test2::V0 是 Test::More 的现代替代品 —— 更丰富的断言、更好的诊断和可扩展性。 为什么选择 Test2？ 使用哈希/数组构建器进行卓越的深层比较 失败时提供更好的诊断输出 具有更清晰作用域的子测试 可通过 Test2::Tools::\ 插件扩展 与 Test::More 测试向后兼容 使用构建器进行深层比较 子测试 使用 Test2 进行异常测试 测试组织与 prove 目录结构 prove 命令 .proverc 配置 夹具与设置/拆卸 子测试隔离 共享测试助手 将可重用的助手放在 t/lib/TestHelper.pm 中，并通过 use lib 't/lib' 加载。通过 Exporter 导出工厂函数，例如 createtestdb()、createtempdir() 和 fixturepath()。 模拟 Test::MockModule 对于轻量级的模拟对象，使用 Test::MockObject 创建可注入的测试替身，使用 ->mock() 并验证调用 ->calledok()。 使用 Devel::Cover 进行覆盖率分析 运行覆盖率分析 集成测试 对数据库测试使用内存中的 SQLite，对 API 测试模拟 HTTP::Tiny。 最佳实践 应做事项 遵循 TDD：在实现之前编写测试（红-绿-重构） 使用 Test2::V0：现代断言，更好的诊断 使用子测试：分组相关断言，隔离状态 模拟外部依赖：网络、数据库、文件系统 使用 prove -l：始终将 lib/ 包含在 @INC 中 清晰命名测试：'user login with invalid password fails' 测试边界情况：空字符串、undef、零、边界值 目标 80%+ 覆盖率：专注于业务逻辑路径 保持测试快速：模拟 I/O，使用内存数据库 禁止事项 不要测试实现：测试行为和输出，而非内部细节 不要在子测试之间共享状态：每个子测试都应是独立的 不要跳过 donetesting：确保所有计划的测试都已运行 不要过度模拟：仅模拟边界，而非被测试的代码 不要在新项目中使用 Test::More：首选 Test2::V0 不要忽略测试失败：所有测试必须在合并前通过 不要测试 CPAN 模块：相信库能正常工作 不要编写脆弱的测试：避免过度具体的字符串匹配 快速参考 任务 命令 / 模式 --- --- 运行所有测试 prove -lr t/ 详细运行单个测试 prove -lv t/unit/user.t 并行测试运行 prove -lr -j8 t/ 覆盖率报告 cover -test && cover -report html 测试相等性 is($got, $expected, 'label') 深层比较 is($got, hash { field k => 'v'; etc() }, 'label') 测试异常 like(dies { ... }, qr/msg/, 'label') 测试无异常 ok(lives { ... }, 'label') 模拟一个方法 Test::MockModule->new('Pkg')->mock(m => sub { ... }) 跳过测试 SKIP: { skip 'reason', $count unless $cond; ... } TODO 测试 TODO: { local $TODO = 'reason'; ... } 常见陷阱 忘记 donetesting 缺少 -l 标志 过度模拟 模拟依赖项，而非被测试的代码。如果你的测试只验证模拟返回了你告诉它的内容，那么它什么也没测试。 测试污染 在子测试内部使用 my 变量 —— 永远不要用 our —— 以防止状态在测试之间泄漏。 记住：测试是你的安全网。保持它们快速、专注和独立。新项目使用 Test2::V0，运行使用 prove，问责使用 Devel::Cover。
How to use it
Reference it in AdaL, Claude Code, Cursor or any coding agent — nothing to install:
@skills affaan-m/perl-testing--c456a2