use chisquare_ok.

だれか、Perl の Test モジュールのテストで fail したときどう書けばいいのか教えて >_<