adventofcode/2020/04/tests2.t
2021-12-05 11:51:21 -05:00

20 lines
381 B
Perl

use Test2::V0;
BEGIN { push @INC, '.'; }
use List::AllUtils qw/ pairmap /;
use part2;
is { pairmap { $a => !!$b } validate_passport(
pid => '087499704', hgt => '74in',
ecl => 'grn', iyr => 2012, eyr => 2030, byr => 1980,
hcl => '#623a2f')
} => {
map {
$_ => 1 } qw/ pid hgt ecl iyr eyr byr hcl /
};
is valid_passports_2('input') => 131;
done_testing();