21 lines
357 B
Perl
21 lines
357 B
Perl
|
use 5.38.0;
|
||
|
|
|
||
|
|
use Test2::V0;
|
||
|
|
|
||
|
|
use Path::Tiny;
|
||
|
|
|
||
|
|
use Part1;
|
||
|
|
|
||
|
|
my $input = path('input')->slurp;
|
||
|
|
my $example = path('example')->slurp;
|
||
|
|
|
||
|
|
is [ map { Part1::race_solution(@$_)} Part1::parse_file($example)]
|
||
|
|
=> [4,8,9];
|
||
|
|
|
||
|
|
is Part1::solution_1($example) => 288;
|
||
|
|
|
||
|
|
cmp_ok Part1::solution_1($input), '<' ,230202;
|
||
|
|
is Part1::solution_1($input) => 'TODO';
|
||
|
|
|
||
|
|
done_testing;
|