my
$diceobj
;
BEGIN { plan
tests
=> 18 };
INIT {
$diceobj
= Games::Dice::Probability->new(
"1d6"
);
}
ok(
$diceobj
->isa(
"Games::Dice::Probability"
),1);
ok(
$diceobj
->min(),1);
ok(
$diceobj
->max(),6);
ok(
$diceobj
->bounds()->[0],1);
ok(
$diceobj
->bounds()->[1],6);
ok(
$diceobj
->combinations(1),1);
ok(
$diceobj
->combinations(2),1);
ok(
$diceobj
->combinations(3),1);
ok(
$diceobj
->combinations(4),1);
ok(
$diceobj
->combinations(5),1);
ok(
$diceobj
->combinations(6),1);
ok(
$diceobj
->probability(1),0.166666666666667);
ok(
$diceobj
->probability(2),0.166666666666667);
ok(
$diceobj
->probability(3),0.166666666666667);
ok(
$diceobj
->probability(4),0.166666666666667);
ok(
$diceobj
->probability(5),0.166666666666667);
ok(
$diceobj
->probability(6),0.166666666666667);
ok(1);