adventofcode/2020/07/tests.t
2021-12-05 11:51:21 -05:00

46 lines
1.2 KiB
Perl

use Test2::V0;
use Path::Tiny;
require './part1.pm';
require './part2.pl';
my $sample = <<'END';
light red bags contain 1 bright white bag, 2 muted yellow bags.
dark orange bags contain 3 bright white bags, 4 muted yellow bags.
bright white bags contain 1 shiny gold bag.
muted yellow bags contain 2 shiny gold bags, 9 faded blue bags.
shiny gold bags contain 1 dark olive bag, 2 vibrant plum bags.
dark olive bags contain 3 faded blue bags, 4 dotted black bags.
vibrant plum bags contain 5 faded blue bags, 6 dotted black bags.
faded blue bags contain no other bags.
dotted black bags contain no other bags.
END
subtest part1 => sub {
is part1::solution(split "\n", $sample) => 4;
is part1::solution(path('input')->lines) => 278;
};
subtest part2 => sub {
is part2::solution( sample2() ) => 126, 'example';
is part2::solution(path('input')->lines) => 45157, 'solution';
};
done_testing();
sub sample2 {
return split "\n", <<'END';
shiny gold bags contain 2 dark red bags.
dark red bags contain 2 dark orange bags.
dark orange bags contain 2 dark yellow bags.
dark yellow bags contain 2 dark green bags.
dark green bags contain 2 dark blue bags.
dark blue bags contain 2 dark violet bags.
dark violet bags contain no other bags.
END
}