21 lines
377 B
Perl
21 lines
377 B
Perl
|
use lib qw~ . ~;
|
||
|
|
|
||
|
|
use Part1;
|
||
|
|
use Part2;
|
||
|
|
|
||
|
|
use Test2::V0;
|
||
|
|
use Path::Tiny;
|
||
|
|
|
||
|
|
# my @sample_reports = Day2::Part1::read_file( path('sample')->slurp );
|
||
|
|
my $program = path('input')->slurp ;
|
||
|
|
|
||
|
|
subtest 'part 1' => sub {
|
||
|
|
is Day3::Part1::solve($program) => 184576302;
|
||
|
|
};
|
||
|
|
|
||
|
|
subtest 'part 2' => sub {
|
||
|
|
is Day3::Part2::solve($program) => 118173507;
|
||
|
|
};
|
||
|
|
|
||
|
|
done_testing();
|