18 lines
308 B
Perl
18 lines
308 B
Perl
use 5.38.0;
|
|
|
|
use Test2::V0;
|
|
|
|
use Path::Tiny;
|
|
use File::Serialize;
|
|
|
|
use Part2;
|
|
|
|
my $input = path('input')->slurp;
|
|
my $example = path('example')->slurp;
|
|
my $solutions = deserialize_file('solutions.yml');
|
|
|
|
is Part2::solution_2($example) => 71503;
|
|
is Part2::solution_2($input) => $solutions->{2};
|
|
|
|
done_testing;
|