7、Perl测试自动化与分发：提升代码质量的实用指南

Perl测试自动化与分发：提升代码质量的实用指南

1. 自动化测试运行

1.1 run_smoketest.pl程序解析

run_smoketest.pl 实际上是三个程序的组合：
- 借助 SVN::Client 模块，它是一个简单的Subversion客户端。
- 依靠 Test::Harness::Straps ，它是一个测试框架。
- 通过 Email::Send ，它还是一个邮件报告器。

其执行流程如下：
1. 获取现有Subversion仓库的路径。
2. 调用 update_repos() 函数：
- 创建一个新的 SVN::Client 模块。
- 使用最新代码（由CVS和Subversion中的符号常量 HEAD 标签表示）更新仓库，并递归更新其下的所有目录。
- 返回此版本的编号。
3. 调用 run_tests() 函数：
- 遍历仓库 t/ 目录中所有扩展名为 .t 的文件。
- 仅收集失败测试（即通过键为 false 的测试）的结果，并以数组形式返回。
4. 调用 send_report() 函数：
- 若没有失败测试，函数返回。
- 若有失败测试，构建一封简