[Moscow.pm] Научите писать красивые тесты

[Гришаев Анатолий]

Добрый день Moscow PM!


Пишу тесты для сложной функции-монстра

На вход принимает строку  и на выход "почти" строку.


Сейчас тесты выглядят так
////////////////////////////
my ($want_result,  $input) = ( "вход 1", "выход 1")

my $r = my_func($input)
ok($r)
is($r->string, $want_result, "parse $input")

my ($want_result,  $input) = ( "вход 2", "выход 2")

my $r = my_func($input)
ok($r)
is($r->string, $want_result, "parse $input")
//////////////////////////

Получается куча повторяющего кода, в котором теряется суть

Можно ли этого избежать и писать более красиво?
----------- следущая часть -----------
Вложение в формате HTML было извлечено…
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20160630/1745a227/attachment.html>