22 lines
418 B
Perl
22 lines
418 B
Perl
use lib qw~ . ~;
|
|
|
|
use Part1;
|
|
use Part2;
|
|
|
|
use Test2::V0;
|
|
use Path::Tiny;
|
|
use File::Serialize;
|
|
|
|
my $solutions = deserialize_file './solutions.yml';
|
|
|
|
subtest 'part 1' => sub {
|
|
is( Part1->new(input=>[125,17])->solve() => 55312 );
|
|
is( Part1->new(file=>'input')->solve() => $solutions->{part1} );
|
|
};
|
|
|
|
subtest 'part 2' => sub {
|
|
is( Part2->new(file=>'input')->solve() => $solutions->{part2});
|
|
};
|
|
|
|
done_testing();
|