proveをうまく使ってテスト実行を効率化しよう

tag perl test prove

こん(にちは|ばんは).最近は卒論でC/アセンブラ,アルバイトでPerl/Objective-Cと高低レイヤーを行ったり来たりなyaottiです.
このエントリでは,テストを実行する時に便利なproveコマンド(App::Prove)の便利な機能+αについて紹介します.

基本的な使い方

prove t/foo.t

のようにして使います.perlと同じように-lや-Idir,-v, -MModule::Nameなども使えます.

prove -l -Ilib -v t/foo.t

他にも,-Pオプションでプラグインを利用することもできます.
例えばmotemenさんの書いたApp::Prove::Plugin::ProgressBar::Eachは大量のテストを実行するときに便利です.

cpanm https://github.com/motemen/App-Prove-Plugin-ProgressBar-Each/tarball/master
prove -PProgressBar::Each t/*

またproveの機能ではないですが,Test::Classを使っていて特定のテストのみを実行したいときは

TEST_METHOD=_foo prove t/foo.t

とすると_fooというテストのみ実行されます.

stateオプション

テストをperlで実行する(perl t/foo.t)のとproveで実行する一番の違い(だと個人的に思っている)のがこのstateオプションです.

prove --state=save t/**/*.t

とするとテストの実行結果の色々(詳細は後述)を.proveに保存してくれます.そして

prove --state=failed # ファイル名の指定はいらない!

を実行すると,前回失敗したテストのみ*1実行されます.
stateオプションは複数指定できるので,--state~failed,saveを指定すれば

edit ...
prove --state=failed,save
edit ...
prove --state=failed,save
...

のように編集→テストを繰り返せます.

なお,以上のオプションは毎回指定しなくても~/.provercに書いておけば毎回読んでくれます.

-v --state=failed,save -l -It/lib

.proveについて

これだけだとpodの翻訳でしかないのでちょっと追加を.
prove --state=saveのときのテスト結果は.proveに保存されます.これは以下のようにYAML形式で保存されています.

$ less .prove
---
generation: 4
last_run_time: 1292740101.18576
tests:
  t/foo.t:
    elapsed: 3.55887389183044
    gen: 5
    last_pass_time: 1292740829.4212
    last_result: 0
    last_run_time: 1292740829.4212
    last_todo: 0
    seq: 5
    total_passes: 1
  t/bar.t:
    elapsed: 5.02774810791016
    gen: 4
    last_fail_time: 1292740101.18414
    last_result: 3
    last_run_time: 1292740101.18414
    last_todo: 0
    mtime: 1292315958
    seq: 4
    total_failures: 4
version: 1
...

これを利用すると,「前回失敗したテスト」「TODOのあるテスト」などの情報を得ることができます.以下でその一例を紹介します.

.prove利用の例

#!/usr/bin/env perl
use strict;
use warnings;
use Cwd;
use Term::ANSIColor;
use YAML::Any;

my $prove_file = Cwd::getcwd() . "/.prove";
if (-f $prove_file) {
    my $test_results = YAML::Any::LoadFile($prove_file)->{tests};
    my $failed_tests = [];
    for my $file (keys %$test_results) {
        push @$failed_tests, $file if $test_results->{$file}->{last_result} > 0;
    }
    if (@$failed_tests) {
        print colored 'NG: ', 'red';
        print join ", ", @$failed_tests;
    }else {
        print colored 'OK', 'green';
    }
}

このコードを適当な場所に保存し,~/.zshrcへ

function precmd() {
    PROMPT+="$(perl ~/path/to/the/script.pl)"
}

を追記します(precmdが定義済みなら適当に追加してください).すると,
terminal
のように落ちたテストを表示させることができます.全部通っていると緑でOKと出ます.ちょっと嬉しいですね!
.proveに保存される情報についての詳細はperldoc App::Prove::State::Result::Testを見てください.

まとめ

proveには~/.provercや--stateのような便利な機能があるので,普段使ってる人も一度じっくりperldoc App::Prove::*を読んでみることをオススメします.
また,自分でApp::Prove::Plugin::*を書いてみるのも楽しいかもしれません.
proveを便利に使って,頑張ってテストを書きましょう!*2


明日はkamipoさんです!お楽しみに:)

*1: ファイル単位
*2: 自戒も込めて…