my
$diceobj
;
BEGIN { plan
tests
=> 19 };
INIT {
$diceobj
= Games::Dice::Probability->new(
"6df"
);
}
ok(
$diceobj
->isa(
"Games::Dice::Probability"
),1);
ok(
$diceobj
->min(),-6);
ok(
$diceobj
->max(),6);
ok(
$diceobj
->bounds()->[0],-6);
ok(
$diceobj
->bounds()->[1],6);
ok(
$diceobj
->probability(-6),0.00137174211248285);
ok(
$diceobj
->probability(-5),0.00823045267489712);
ok(
$diceobj
->probability(-4),0.0288065843621399);
ok(
$diceobj
->probability(-3),0.0685871056241427);
ok(
$diceobj
->probability(-2),0.123456790123457);
ok(
$diceobj
->probability(-1),0.172839506172839);
ok(
$diceobj
->probability(0),0.193415637860082);
ok(
$diceobj
->probability(1),0.172839506172839);
ok(
$diceobj
->probability(2),0.123456790123457);
ok(
$diceobj
->probability(3),0.0685871056241427);
ok(
$diceobj
->probability(4),0.0288065843621399);
ok(
$diceobj
->probability(5),0.00823045267489712);
ok(
$diceobj
->probability(6),0.00137174211248285);
ok(1);