<div dir="ltr"><div><div><div><div><div><div><div><div><div><div>Добрый день Moscow PM!<br><br></div><br></div>Пишу тесты для сложной функции-монстра<br><br></div>На вход принимает строку  и на выход "почти" строку.<br><br><br></div>Сейчас тесты выглядят так<br>////////////////////////////<br></div>my ($want_result,  $input) = ( "вход 1", "выход 1")<br><br></div>my $r = my_func($input)<br></div>ok($r)<br></div>is($r->string, $want_result, "parse $input")<br><br>my ($want_result,  $input) = ( "вход 2", "выход 2")<br><br>my $r = my_func($input)<br>ok($r)<br>is($r->string, $want_result, "parse $input")<br>//////////////////////////<br><br></div>Получается куча повторяющего кода, в котором теряется суть<br><br></div>Можно ли этого избежать и писать более красиво?<br><div><div><br><div><div><div><div><div><div><div><br><br><div><div><div><div><br></div></div></div></div></div></div></div></div></div></div></div></div></div></div>