Почти, что надо.
Маленький минус --- теряется информация о строке к которой определен тест
Если добавить

{
app => sub { return [ 200, [ foo => "\021bar" ], [ 'OK' ] ]; },
die => qr/Response headers MUST NOT contain characters below octal.+Header:
foo/,
 line => get_line(),
},

Будет почти что надо

30 июня 2016 г., 19:46 пользователь Akzhan Abdulin <[email protected]
> написал:

> оно?
>
>
> https://github.com/plack/Plack/blob/master/t/Plack-Middleware/lint_wrong_header_info.t
>
> 30 июня 2016 г., 19:25 пользователь Гришаев Анатолий <[email protected]>
> написал:
>
>> Добрый день 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")
>> //////////////////////////
>>
>> Получается куча повторяющего кода, в котором теряется суть
>>
>> Можно ли этого избежать и писать более красиво?
>>
>>
>>
>>
>>
>> --
>> Moscow.pm mailing list
>> [email protected] | http://moscow.pm.org
>>
>>
>
> --
> Moscow.pm mailing list
> [email protected] | http://moscow.pm.org
>
>
-- 
Moscow.pm mailing list
[email protected] | http://moscow.pm.org

Ответить