29 lines
674 B
Perl
29 lines
674 B
Perl
|
use lib qw~ . ~;
|
||
|
|
|
||
|
|
use Part1;
|
||
|
|
use Part2;
|
||
|
|
|
||
|
|
use Test2::V0;
|
||
|
|
use Path::Tiny;
|
||
|
|
use File::Serialize;
|
||
|
|
|
||
|
|
my $solutions = deserialize_file './solutions.yml';
|
||
|
|
|
||
|
|
my $sample = -f 'sample' && Part1::read_input( path('sample') );
|
||
|
|
my $input= -f 'input' && Part1::read_input( path('input') );
|
||
|
|
|
||
|
|
subtest 'part 1' => sub {
|
||
|
|
skip_all;
|
||
|
|
is Part1::solve(@$sample) => 1928;
|
||
|
|
is Part1::solve(@$input) => $solutions->{part1};
|
||
|
|
};
|
||
|
|
|
||
|
|
subtest 'part 2' => sub {
|
||
|
|
my $sample = -f 'sample' && Part2::read_input( path('sample') );
|
||
|
|
my $input= -f 'input' && Part2::read_input( path('input') );
|
||
|
|
is Part2::solve(@$sample) => 2858;
|
||
|
|
is Part2::solve(@$input) => $solutions->{part2};
|
||
|
|
};
|
||
|
|
|
||
|
|
done_testing();
|