5、测试异常与管理测试全解析

测试异常与管理测试全解析

测试异常

在编程过程中，错误时有发生。当代码检测到不可恢复的错误时，抛出异常并让更高级别的代码来处理是一种常见的做法。为了确保代码在遇到异常时能按预期工作，我们需要对这种行为进行测试。 Test::Exception 模块可以帮助我们轻松完成这项任务，它提供了测试代码块是否抛出（或不抛出）预期异常的功能。

测试异常的具体操作

假设我们有一个 add_positives() 函数，它原本只是发出警告，但现在我们希望它在遇到负数时抛出异常。以下是测试该行为的具体步骤：
1. 保存测试代码 ：将以下代码保存为 exception.t 文件。

use Test::More tests => 3;
use Test::Exception;
use Error;

sub add_positives {
    my ($l, $r) = @_;
    throw Error::Simple("first argument ($l) was negative")  if $l < 0;
    throw Error::Simple("second argument ($r) was negative") if $r < 0;
    return $l + $r;
}

throws_ok { add_positives( -7,  6 ) } 'Error::Simple';
throws_ok { add_positives