http://subtech.g.hatena.ne.jp/motemen/20101214/1292316676 を見た直後に書いてたコードを長いこと放置していたので

• https://github.com/cho45/Test-Name-FromLine

にちょっと変えたのを置いてみました。

• 行番号と該当テストの行

を name に入れるようにしただけです。use するだけで適当に使えると便利なので、同じようなモジュールがなければ CPAN にあげたい気がします。

こんな感じになります↓

    ok 1 - L28: is $_->res->code, 405;
    ok 2 - L32: is $_->res->status_line, '400 api_key is required';
    ok 3 - L36: is $_->res->status_line, '400 api_key is invalid';
    ok 4 - L40: is $_->res->status_line, '400 s is required';
    1..4
ok 1 - api_key
    ok 1 - L54: is $_->res->status, 200;
    ok 2 - L56: cmp_deeply $res, {
    ok 3 - L79: is $_->res->status, 200;
    ok 4 - L81: cmp_deeply $res, {
    1..4
ok 2 - basic
    ok 1 - L112: is $_->res->status, 200;
    ok 2 - metadata
    ok 3 - L141: is $_->res->status, 200;
    ok 4 - metadata append
    1..4
ok 3 - metadata
1..3