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();