Хабр Курсы для всех
РЕКЛАМА
Практикум, Хекслет, SkyPro, авторские курсы — собрали всех и попросили скидки. Осталось выбрать!
sub shouldSetMessageOnFailed
{
...
# Arrange
my $transaction = $self->_buildFailingTransaction();
# Act
$transaction->process();
# Assert
$self->assert_equals('some error text', $transaction->get('message'));
}Довольно часто хочется знать ответ на вопрос: А не сломал ли я то что у меня уже было?
$obj = SomeClass();
$obj->a = 2;
$obj->b = 2;
$obj->sum();
$res = $obj->c;
assert_equal($res, 4);
$obj = SomeClass(2,2);
$res = $obj->sum();
assert_equal($res, 4);
$obj->setA(1);
assert($obj->getA(), 1);
$obj->setB(2);
assert($obj->getB(), 2);
$obj->setA(1);
$obj->setB(2);
assert($obj->getA(), 1);
assert($obj->getB(), 2);
$obj->setA(1);
$obj->setB(2);
assert($obj->sum(), 3)

О влиянии TDD на разработку (мнения читателей)