Perl Test ::ブロック前より多く

Question

Test :: Moreには、すべてのサブテストの前にブロックを実行するメカニズムがありますか？私は自分自身がすべてのテストで同じ取り決めを書いていることを見出しています。私は以前のブロックなどに入れて自分の人生を楽にしたいのですか？私はperldocsを見ましたが、私はこれのために特別に作られたものは見ませんでしたか？

Answer 1

を自分で行うことがむしろ簡単：

use Hook::LexWrap qw(wrap); 

wrap $_, pre => sub { ... } 
    for qw(is ok ...); 

Hook::LexWrap

Answer 2

Test::Moreのテストは、すべてのテストの前Test::Builder::Module::builderを実行するように見えます。その実装をこれで置き換えることができます。

{ package Test::Builder::Module; 
    my $old_imp = \&Test::Builder::Module:builder; 
    no warnings 'redefine'; 
    sub builder { 
     Mypackage::setup_test(); 
     goto &$old_imp; 
    } 
} 

そして、それはあまりにも危険なようであれば、それは実際にこのようにそれを呼び出す：

sub is ($$;$) { 
    my $tb = Test::More->builder; 

    return $tb->is_eq(@_); 
} 

ので、あなただけの押し込みができbuilderの実装Test::Moreのために、それはその中に1を呼び出しますので、親クラス：

{ package Test::More; 
    sub builder { 
     &stuff_I_want_to_do; 
     my $inv = shift; 
     return $inv->SUPER::builder(@_); 
     # OR return Test::Builder->new; 
    } 
}