#######################
# testing single die
#######################

use A_Die;

my $a_die;

$a_die = A_Die->new();
printf " Die value is: %s\n", $a_die->value;
printf " Die num_rolls is: %s\n", $a_die->num_rolls;
printf " Die history is: %s\n", $a_die->history;
print $a_die->info . "\n";
print $a_die->toString . "\n";
print $a_die->toTextArt . "\n";
for $i (0..3) {
    $a_die->roll();
    print $a_die->info . "\n";
    print $a_die->toString . "\n";
    print $a_die->toTextArt . "\n";
    
}

#######################
# testing group of dice
#######################

use Dice;

my $some_dice;

$some_dice = Dice->new();
printf "Dice num_dice is: %s\n", $some_dice->num_dice;
$some_dice->show_dice();

for $i (0..3) {
    $some_dice->add_die();
    printf "Dice num_dice is: %s\n", $some_dice->num_dice;
    $some_dice->show_dice();
}

print $some_dice->toTextArt() . "\n";
print "that's: " . $some_dice->toString() . "\n";

for $i (1..3) {
    $some_dice->roll_all();
    $some_dice->show_dice();
    print $some_dice->toTextArt() . "\n";
    print "that's: " . $some_dice->toString() . "\n";
}

print "Rolling only dice 2 and 4\n";
${$some_dice->dice}[1]->roll(); # zero offset
${$some_dice->dice}[3]->roll(); # zero offset
$some_dice->show_dice();
print $some_dice->toTextArt() . "\n";
print "that's: " . $some_dice->toString() . "\n";

print "\nremoving die from middle and end\n";
for $i (1..2) {
    print "removing die $i\n";
    print $some_dice->rem_die(${$some_dice->dice}[1]) . "\n";
    $some_dice->show_dice();
    print $some_dice->toTextArt() . "\n";
    print "that's: " . $some_dice->toString() . "\n";
}

print "\nremoving die from begining and removing last die\n";
for $i (1..2) {
    print "removing die $i\n";
    print $some_dice->rem_die(${$some_dice->dice}[0]) . "\n";
    $some_dice->show_dice();
    print $some_dice->toTextArt() . "\n";
    print "that's: " . $some_dice->toString() . "\n";
}