File Coverage

ex/dice-roll.pl

Criterion	Covered	Total	%
statement	20	20	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	26	26	100.0

use v5.24;
use warnings;
use Test::More;
use Q::S::L;
use List::Util qw(sum0);

sub roll_dice
{
	my ($dnd) = @_;

	my ($number, $faces) = $dnd =~ m{ \A (\d+) k (\d+) \z }x;

	# each individual dice
	my @dice = map { superpos(1 .. $faces) } 1 .. $number;

	# a cup of dice
	my $set = sum0 @dice;

	return ($set, @dice);
}

my @throws = (
	"2k6",
	"8k12",
	"3k20",
);

for my $dnd (@throws) {

	note "Rolling $dnd...";
	my ($set, @dice) = roll_dice $dnd;

	# we roll them all at once
	my $result = $set->collapse;

	# this is how we can get each individual roll
	my @rolls = map { $_->collapse } @dice;

	note "we got $result, which consisted of rolls: " . join ", ", @rolls;
	is $result, (sum0 @rolls), "result ok";

	# ... and lets roll again
	$set->reset;
	$result = $set->collapse;
	@rolls = map { $_->collapse } @dice;

	note "this time we got $result, which consisted of rolls: " . join ", ", @rolls;
	is $result, (sum0 @rolls), "result ok";
}

done_testing;

__END__