テストに適当に名前をつける

2010-12-14

Perl | 17:51 |

テストに名前をつけておかないと prove -v 見てても何やっているところかわからないけど書くのが面倒なのでとりあえずデフォルトで適当に名前つけてくれないかなーと思って、こういうのを書きました。

Test::Builder::ok が呼ばれたときに、名前が指定されていない場合は呼び出し元の第一引数になっている変数名を使います。シンプルに変数が渡されていないと名前が取れなかったり、万能ではないのですが、とりあえずこれである程度見栄えはよくなりそうです。