20 lines
381 B
Perl
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();
|