25 lines
330 B
Perl
25 lines
330 B
Perl
|
use Test2::V0;
|
||
|
|
use Path::Tiny;
|
||
|
|
|
||
|
|
require './part1.pm';
|
||
|
|
require './part2.pm';
|
||
|
|
|
||
|
|
my @input = path('input')->lines;
|
||
|
|
|
||
|
|
0 and subtest part1 => sub {
|
||
|
|
is P1->solution(@input) => 1221;
|
||
|
|
};
|
||
|
|
|
||
|
|
subtest part2 => sub {
|
||
|
|
is P2->solution(qw/
|
||
|
|
F10
|
||
|
|
N3
|
||
|
|
F7
|
||
|
|
R90
|
||
|
|
F11 /) => 286, 'example';
|
||
|
|
|
||
|
|
is P2->solution(@input ) => 59435;
|
||
|
|
};
|
||
|
|
|
||
|
|
done_testing();
|