一定の確率で何かが起きるメソッドが、ホントにその確率で起きているかテストしたくなったので書いてみた。統計確率とか分からんので、いろいろと調べながらなので全く自信ない！まるっと間違えてる可能性あるw ツッコミ大歓迎。

使い方

dice.t

use Test::ChiSquare;

chisquare_ok( [[23, 20], [16, 20], [21, 20], [19, 20], [13, 20], [28, 20]], 0.05, 'dice' );

done_testing();

サイコロを121回振っていたので修正しました >_<

chisquare_ok の第一引数は、 [観測値, 期待値] の配列。
上の例はさいころを120回振ったときのそれぞれの目の観測値と期待値を配列にしてる。120回振ったらそれぞれの目の期待値は一律20だよね？
第2引数は有意水準。

内部の動き

実際に、 rand() つかってさいころ作って試してみたけど何度か test が fail した。さいころを振る回数（試行回数）が少ないのかも。

そもそもカイ二乗を求めるっぽいその名の通りのモジュール ( Statistics::ChiSquare ) もあったんだけど、カイ二乗分布の表を二次元配列で持っていたりとか、返って来る結果がメッセージだったりとかでスルーした。